는 data.frame

Question

의 이름의 벡터를 통해 다른 컬럼의 합계를 집계 I 다음 data.frame 있습니다

> DF <- data.frame(names = I(list(c("a", "b", "c"), c("a"), c("c", "d"))), 
        counts = c(1, 2, 3)) 
> DF 
    names counts 
1 a, b, c  1 
2  a  2 
3 c, d  3 

가 어떻게 각 이름의 총 수를 요약 결과를 얻을 수 있습니까를? 같은 뭔가 :

name sum 
a  3 
b  1 
c  4 
d  3 

Answer 1

시도

DF1 <- data.frame(name=unlist(DF$names), 
      val=rep(DF$counts,sapply(DF$names, length))) 

또는

DF1 <- do.call(rbind,Map(data.frame, name=DF$names, val=DF$counts)) 

aggregate(val~name, DF1, sum) 
# name val 
#1 a 3 
#2 b 1 
#3 c 4 
#4 d 3 

또는

DF2 <- transform(stack(setNames(DF$names, DF$counts)), 
           ind=as.numeric(as.character(ind))) 
    aggregate(ind~values, DF2, sum)