如何将长数据帧转换为宽重复数据/重复数据帧？

Question

考虑我有一个数据框在三列长格式。 x列包含3个变量的名称，y和z包含2个等级。有重复测量每个y变量：

df <- data.frame(x=c(1:12), y=rep(0:2, 4), z=rep(letters[1:2], 6)) 
df$y <- as.factor(df$y) 
df <- arrange(df, y, z) 
df 

    x y z 
1 1 0 a 
2 7 0 a 
3 4 0 b 
4 10 0 b 
5 5 1 a 
6 11 1 a 
7 2 1 b 
8 8 1 b 
9 3 2 a 
10 9 2 a 
11 6 2 b 
12 12 2 b 

我怎样才能得到df_wide这个样子？

z 0 1 2 
a 1 5 3 
a 7 11 9 
b 4 2 6 
b 10 8 12 

Answer 1

do.call(cbind, lapply(split(df, df$y), function(a) 
    setNames(object = data.frame(a$x, 
           row.names = paste0(as.character(a$z), 1:NROW(a))), 
      nm = a$y[1]))) 
# 0 1 2 
#a1 1 5 3 
#a2 7 11 9 
#b3 4 2 6 
#b4 10 8 12 

Answer 2

从data.table包装就变成了 “单行程序” 使用dcast()和rowid()功能：

library(data.table) 
dcast(setDT(df), paste0(z, rowid(y, z)) ~ y, value.var = "x") 

z 0 1 2 
1: a1 1 5 3 
2: a2 7 11 9 
3: b1 4 2 6 
4: b2 10 8 12