R：如何在原始df中按单列分组n个数据框？答案

【问题标题】：R: How can I make n data frames grouped by a single column in the original df?R：如何在原始df中按单列分组n个数据框？
【发布时间】：2018-12-04 19:57:57
【问题描述】：

我有一个具有“值”的数据框，后跟 Decile_Category_1、Decile_Category_2、...、Decile_Category_n。

我想让 n 个单独的 df 按它们的十分位数分组，然后想在每个数据透视表上制作一个图表。除了输入 group_by n 次之外，还有什么快速的方法？

编辑：示例开始 DF：

Value  Dec_Cat_1    Dec_Cat_2   Dec_Cat_3
100    1            3             1      
200    3            3             3
400    1            6             3 
...    ...          ...          ...

结束 DF1

Dec_Cat_1   Value
1           500
2           xxx
3           200
4           xxx
5           xxx          
6           xxx
7           xxx
8           xxx
9           xxx
10          xxx

结束 DF2

Dec_Cat_2   Value
1           xxx
2           xxx
3           300
4           xxx
5           xxx          
6           400
7           xxx
8           xxx
9           xxx
10          xxx

对于原始数据框中的每一列，依此类推。

【问题讨论】：

看看这是否有帮助：Reshaping data.frame from wide to long format.
您能否提供一个示例数据框以及您想要的输出示例？
@Lamia，我添加了一个示例，说明 df 的外观以及我希望它如何结束
请考虑How to make a great R reproducible example。

标签： r loops lapply

【解决方案1】：

## Dataset
df = read.table(text="Value  Dec_Cat_1    Dec_Cat_2   Dec_Cat_3
100    1            3             1      
200    3            3             3
400    1            6             3", h=T)

如果您要处理多个数据帧，您可能希望将它们放在一个列表中。首先，将您的 n 列数据框分成一个包含 n-1 个数据框的列表：

l1 = lapply(df[-1],function(x) cbind(df[1],x))
$Dec_Cat_1
  Value x
1   100 1
2   200 3
3   400 1

$Dec_Cat_2
  Value x
1   100 3
2   200 3
3   400 6

$Dec_Cat_3
  Value x
1   100 1
2   200 3
3   400 3

然后，使用dplyr 和tidyr 中的函数，您可以总结出您的价值：

library(dplyr)
library(tidyr)
res = lapply(l1,function(d) d %>% group_by(x) %>% summarise(Value = sum(Value)) %>% complete(x = 1:10))
> res
$Dec_Cat_1
# A tibble: 10 x 2
       x Value
   <int> <int>
 1     1   500
 2     2    NA
 3     3   200
 4     4    NA
 5     5    NA
 6     6    NA
 7     7    NA
 8     8    NA
 9     9    NA
10    10    NA

$Dec_Cat_2
# A tibble: 10 x 2
       x Value
   <int> <int>
 1     1    NA
 2     2    NA
 3     3   300
 4     4    NA
 5     5    NA
 6     6   400
 7     7    NA
 8     8    NA
 9     9    NA
10    10    NA

$Dec_Cat_3
# A tibble: 10 x 2
       x Value
   <int> <int>
 1     1   100
 2     2    NA
 3     3   600
 4     4    NA
 5     5    NA
 6     6    NA
 7     7    NA
 8     8    NA
 9     9    NA
10    10    NA

【讨论】：