将案例转换为 R 中的变量

Question

我有一个格式为 data_format1 的数据。在此基础上，我想将案例转换为变量以获得data_format2。

您可以在此处找到 data_format1：

ArticleID<-c(1, 2, 3, 3, 4)
Word<-c("a", "b", "b", "c", "c")
Freq<-c(2, 4, 6, 3, 2)
data_format1<-cbind(ArticleID, Word, Freq)

data_format1

     ArticleID Word Freq
[1,] "1"       "a"  "2" 
[2,] "2"       "b"  "4" 
[3,] "3"       "b"  "6" 
[4,] "3"       "c"  "3" 
[5,] "4"       "c"  "2" 

data_format2 在这里给出：

ArticleID_t<-c(1, 2, 3, 4)
a<-c(2, 0, 0, 0)
b<-c(0, 4, 6, 0)
c<-c(0, 0, 3, 2)
data_format2<-cbind(ArticleID_t, a, b, c)
data_format2

     ArticleID_t a b c
[1,]           1 2 0 0
[2,]           2 0 4 0
[3,]           3 0 6 3
[4,]           4 0 0 2

Answer 1

这是一个经典的重塑问题 - 将数据从高格式转换为宽格式。 reshape2 包非常适合这种情况。

注意：您需要先将数据转换为data.frame。请记住，cbind 将获取您的数据并创建一个数组，而不是 data.frame。所以在解决方案中，我使用data.frame(...) 重新创建您的数据。

library(reshape2)
data_format1 <- data.frame(ArticleID, Word, Freq)
reshape2::dcast(data_format1, ArticleID~Word, sum)

  ArticleID a b c
1         1 2 0 0
2         2 0 4 0
3         3 0 6 3
4         4 0 0 2

更多信息请参见?reshape2::dcast。