获取此示例变量
df <- data.frame(month=rep(1:3,2),
student=rep(c("Amy", "Bob"), each=3),
A=c(9, 7, 6, 8, 6, 9),
B=c(6, 7, 8, 5, 6, 7))
我可以使用spread
来自tidyr
将其更改为宽格式。
> df[, -4] %>% spread(student, A)
month Amy Bob
1 1 9 8
2 2 7 6
3 3 6 9
但是我怎样才能传播两个值,例如两者A
和B
,这样输出就类似于
month Amy.A Bob.A Amy.B Bob.B
1 1 9 8 6 5
2 2 7 6 7 6
3 3 6 9 8 7
最佳答案
这是一个使用data.table
的可能既简单又非常有效的解决方案
library(data.table) ## v >= 1.9.6
dcast(setDT(df), month ~ student, value.var = c("A", "B"))
# month Amy_A Bob_A Amy_B Bob_B
# 1: 1 9 8 6 5
# 2: 2 7 6 7 6
# 3: 3 6 9 8 7
或者一个可能的tidyr
解决方案
df %>%
gather(variable, value, -(month:student)) %>%
unite(temp, student, variable) %>%
spread(temp, value)
# month Amy_A Amy_B Bob_A Bob_B
# 1 1 9 6 8 5
# 2 2 7 7 6 6
# 3 3 6 8 9 7
<小时/>
编辑2019年10月22日
正如 @gjabel 的评论中提到的,较新的 tidyr 版本 (v1.0.0+)
现在有 pivot_wider
和 pivot_longer
函数(当前处于 maturing 状态),因此,更新的方法是
pivot_wider(data = df,
id_cols = month,
names_from = student,
values_from = c("A", "B"))
# # A tibble: 3 x 5
# month A_Amy A_Bob B_Amy B_Bob
# <int> <dbl> <dbl> <dbl> <dbl>
# 1 1 9 8 6 5
# 2 2 7 6 7 6
# 3 3 6 9 8 7
关于R 用 tidyr 扩展多列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30592094/