具有两个变量的扩展键

Question

我需要使用两个变量来扩展一个数据框，但我不能使用 tidyr 包来做到这一点。 在我的示例中，我想将月份变量添加到键中，例如 key = c("level", "month")

我做了什么：

library(tidyr)
library(dplyr)

set.seed(123)

name <- sample(letters[1:5], 10, replace = T)
level <- sample(1:3, 10, replace = T)
month <- sample(1:12, 10, replace = T)

df <- data.frame(name, level, month)

df  %>% 
  group_by(name, month, level) %>%
  summarise(n = n()) %>% 
  ungroup() %>% 
  spread(., level, n, sep = "_")

谢谢

Answer 1

tidyr 的开发版本中的一个选项是 pivot_wider（根据 'month'、'level' 的组合，'n' 似乎是 spread）

library(dplyr)
library(tidyr) # 0.8.3.9000
df %>% 
  group_by(name, month, level) %>%
  summarise(n = n()) %>% 
  ungroup() %>%
  pivot_wider(names_from = c('month', 'level'), values_from = 'n')
# A tibble: 5 x 11
#  name  `5_3` `3_3` `4_1` `12_2` `1_1` `9_3` `10_1` `10_3` `7_1` `11_1`
#  <fct> <int> <int> <int>  <int> <int> <int>  <int>  <int> <int>  <int>
#1 a         1    NA    NA     NA    NA    NA     NA     NA    NA     NA
#2 b        NA     1     1      1    NA    NA     NA     NA    NA     NA
#3 c        NA    NA    NA     NA     1     1      1      1    NA     NA
#4 d        NA    NA    NA     NA    NA    NA     NA     NA     1     NA
#5 e        NA    NA    NA     NA    NA    NA     NA     NA    NA      1

---

如果我们想使用spread，那么unite 到单个列并使用spread。它也应该适用于最新的CRAN 版本的tidyr (0.8.3)

df %>% 
  group_by(name, month, level) %>%
  summarise(n = n()) %>% 
  ungroup %>%
  unite(monthlevel, month, level) %>%
  spread(monthlevel, n)

---

或者使用来自data.table的dcast

library(data.table)
dcast(setDT(df)[, .N, .(name, month, level)], name ~ month + level, value.var = 'N')