如何堆叠数据框的行

Question

我无法将 data.frame 中的行堆叠成一行。我的数据如下所示：

v1       v2      v3      index     
var1     ad      b1      1    
var2     sa      b2      2     
var3     4       b3      3     
var1     5       b4      1     
var2     6       b5      2    
var3     2       b6      3
.        .       .       . 
.        .       .       . 
.        .       .       . 

我正在尝试转置数据，以便 v1 成为我的 colnames 并且它们也被堆叠。我熟悉本机转置命令t() 并将列名分配为第一行。但是，我不确定如何堆叠行。我确实分解了每组转置的行（以三个为单位），然后将它们绑定在一个循环中，但它非常慢，因为我的数据集是 1gb。

var1   var2  var3
ad     sa     4
b1     b2     b3
5      6      2
b4     b5     b6
.      .      .
.      .      .
.      .      .

感谢您的帮助！

Answer 1

reshape2 中的 recast 函数非常适合此功能。但在使用它之前，您需要将index-column 转换为更好的分组变量：

# transform 'index' into a grouping variable
dat$index <- cumsum(c(0, head(dat$index, -1) > tail(dat$index, -1)))

# reshape into the new format
library(reshape2)
recast(dat, variable + index ~ v1, id.var = c('v1','index'))[,3:5]

现在您的数据如下所示：

  var1 var2 var3
1   ad   sa    4
2    5    6    2
3   b1   b2   b3
4   b4   b5   b6