相反的总结'在dplyr中:将一行变为多行

时间:2015-01-20 15:32:39

标签: r dplyr

dplyr中的功能是否与summarise相反,即将一行转为多行?

让我们考虑一个看起来如下的data.frame:

> testdf <- data.frame(a=c(1,1,2,2), b=c(1,2,1,2))
> testdf <- data.frame(a1=c(1,1,2,2), a2=c(1,2,1,2))
> testdf$a3 <- replicate(4, rnorm(3), simplify = F)
> testdf
  a1 a2                                a3
1  1  1 -0.6264538, 0.1836433, -0.8356286
2  1  2  1.5952808, 0.3295078, -0.8204684
3  2  1   0.4874291, 0.7383247, 0.5757814
4  2  2  -0.3053884, 1.5117812, 0.3898432

我现在想把它变成一个4 * 3 = 12行的data.frame,其中每个单元格中的每个值都是原子的。换句话说,我想扩展专栏a3。结果应如下所示:

> resdf
   a1 a2         a3
1   1  1 -0.6264538
2   1  1  0.1836433
3   1  1 -0.8356286
4   1  2  1.5952808
5   1  2  0.3295078
6   1  2 -0.8204684
7   2  1  0.4874291
8   2  1  0.7383247
9   2  1  0.5757814
10  2  2 -0.3053884
11  2  2  1.5117812
12  2  2  0.3898432

请注意,类似于上面所示的数据框架可能会出现在许多情况下,例如:处理大量数据时(出于内存效率的原因)。 this question中要求使用类似的功能。

我知道有些解决方案没有使用dplyr,但我有兴趣使用它,因为我想为分组(group_by(a2))数据子集执行此操作。

1 个答案:

答案 0 :(得分:6)

这似乎是不可能的,但在目标版本为0.5的 active discussion by the developers 下。

注意data.table目前允许这样做(请参阅@ akrun的注释),并且还允许您使用任意大小的组输入来获得任意大小的组输出,而似乎正在与{{ 1}}将要求所有组的大小相同。这是一个例子:

dplyr

此外,根据@ AlexBrown的评论,你可以这样做:

> data.table(a=1:3)[, paste(a, seq(a), sep=":"), by=a]
   a  V1
1: 1 1:1
2: 2 2:1
3: 2 2:2
4: 3 3:1
5: 3 3:2
6: 3 3:3

针对您的具体示例,但由于上述原因,这似乎不适用于unnest(testdf, a3) / group_by工作流程(即您无法直接创建summarize testdf,AFAIK)。