r分割值

Question

列

我有这个数据帧

d    f   
"first tweet" A 
"second tweet" B 
"thrid tweet" C 

而且我想获得这个

d    A  B  C   
"first tweet" 1  0  0 
"second tweet" 0  1  0 
"thrid tweet" 0  0  1 

谢谢！

Answer 1

这里有几个问题需要考虑：

1. model.matrix

   cbind(mydf, model.matrix(~ 0 + f, data = mydf)) 
   #    d f fA fB fC 
   # 1 first tweet A 1 0 0 
   # 2 second tweet B 0 1 0 
   # 3 thrid tweet C 0 0 1 
   

2. table

   cbind(mydf, as.data.frame.matrix(table(sequence(nrow(mydf)), mydf$f))) 
   #    d f A B C 
   # 1 first tweet A 1 0 0 
   # 2 second tweet B 0 1 0 
   # 3 thrid tweet C 0 0 1 
   

3. dcast从 “reshape2”

   library(reshape2) 
   dcast(mydf, d ~ f, value.var="f", fun.aggregate=length) 
   #    d A B C 
   # 1 first tweet 1 0 0 
   # 2 second tweet 0 1 0 
   # 3 thrid tweet 0 0 1 
   

请注意，前两个选项和第三个选项之间存在差异。如果在列“d”出现重复的值时，第三个选项将会折叠（和列表）值，而前两个选项将逐行分割值。

Answer 2

另一种可能性：

library(qdap) 
mtabulate(split(dat[[2]], dat[[1]])) 

##    A B C 
## first tweet 1 0 0 
## second tweet 0 1 0 
## thrid tweet 0 0 1 

Answer 3

一个非常简单的表看起来像它可能做的伎俩。

> d <- data.frame(d = c("first tweet", "second tweet", "third tweet"), 
        f = c("A", "B", "C")) 
> tab <- table(d) 
> data.frame(d = rownames(tab), tab[,1:3], row.names = NULL) 
#    d A B C 
# 1 first tweet 1 0 0 
# 2 second tweet 0 1 0 
# 3 third tweet 0 0 1