将列拆分为多列

Question

data = data.frame("id"=1:40,
                  "group"=1:5,
                  "score"=sample(1:4,10,r=T))
table(data[which(data$group==1),]$score)
WANT=data.frame("group"=1:5,
                  "score1"=c(0,4,0,4,0),
                  "score2"=c(4,0,0,4,0),
                  "score3"=c(0,4,0,4,0),
                  "score4"=c(0,0,4,4,0))

在数据中我有“分数”，但我想为每个“分数”创建单独的列，然后按此处所示进行汇总。

我还希望拥有完整的数据框“WANT”，如果没有任何人，则输入 0，否则在行方面保持相同的结构。

Answer 1

在获得count 或“组”和“分数”的频率后，一个选项将是spread

library(tidyverse)
data %>% 
    count(group, score) %>%
    mutate(score = str_c("score", score)) %>%
    spread(score, n, fill = 0)

---

如果我们想拥有count 之后的所有组合，请使用complete

data %>% 
  count(group, score) %>% 
  complete(group, score, fill = list(n = 0))

我还希望拥有完整的数据框“WANT”，如果没有任何人，则输入 0，否则在行方面保持相同的结构。