데이터 프레임 내 및 그룹 전체에서 그룹을 컨디셔닝하는 동안 고유하지 않은 인스턴스의 빈도

Question

개인이 해당 연도에 근무한 회사에 대한 정보가 포함 된 고용 데이터를 분석합니다. 각 연도는 별도의 데이터 프레임입니다.

1 년 동안 여러 회사에서 근무한 개인뿐만 아니라 특정 연도에 여러 회사에서 근무한 개인을 신속하게 파악할 수 있기를 바랍니다. 내 목표는 주어진 회사가 한 해 (단일 데이터 프레임)와 수년에 걸쳐 "출구"(직원을 변화시키는 회사)를 경험하는 횟수에 대한 빈도를 계산하는 것입니다.

데이터 프레임 (들)을 다음과 같이 구성되어 있습니다 :

year1 <- data.frame(individual=c("1", "2", "3", "4", "2", "6", "7", "3", "9", "10"), 
       firm=c("A", "B", "C", "D", "A", "C", "D", "B", "B", "C")) 

year2 <- data.frame(individual=c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10"), 
       firm=c("A", "B", "D", "D", "A", "C", "D", "A", "B", "C")) 

나는 개인과 기업 사이의 모든 고유하지 않은 단체를 검색하여, 해당 연도 내에서이 작업을 수행하는 방법에 상당히 확신하지만, 여러 데이터 개체/년 동안이 작업을 수행하는 방법에 대한 손실이 있습니다. 다시 말하지만, 저는 특정 개인보다는 회사를위한 "출구"의 빈도에 관심이 있습니다.

exit(withinyear)_byfirm 
exit(betweenyear)_byfirm 

Answer 1

카운트가 아닌 비율 :

within <- function(y) { 
    # A vector of length > 1 in the aggregate function means that the person has 
    # changed jobs. 
    # `[` ignores the value 0 if there are other values present, and returns a 
    # zero-length vector if not. Often a source of confusion, but perfect here. 
    table(levels(y$firm)[aggregate(firm~individual, data=y, 
           function(x) {z<- unique(x)     
               if(length(z) > 1) head(z, -1) else 0})$firm]) 
} 

between <- function(year1, year2) { 
    # Last place worked in year1 
    y1 <- rbind(do.call(rbind, by(year1, year1$individual, FUN=tail, 1))) 

    # First place worked in year2 
    y2 <- rbind(do.call(rbind, by(year2, year2$individual, FUN=head, 1))) 

    # Combine these and look for duplicate individuals with the prior function 
    y <- rbind(y1, y2) 
    within(y) 
} 

결과 :

> within(year1) 

B C 
1 1 

> within(year2) 
character(0) 

> between(year1, year2) 

A B 
1 1