将列表中的data.frame堆叠到单个data.frame中，将名称（list）保留为一个额外列

我有一个数据帧列表，我想将其合并为一个data.frame。以下是我的列表：

my_list <- list(
    m=data.frame(a = letters[1:5], b = 1:5, c = rnorm(5)), 
    n=data.frame(a = letters[1:5], b = 6:10, c = rnorm(5)))

> my_list
$m
  a b          c 
1 a 1  0.1151720  
2 b 2 -0.3785748  
3 c 3 -0.1446305  
4 d 4 -0.4300272  
5 e 5  1.1982312  

$n
  a  b          c 
1 a  6  1.2079439 
2 b  7 -1.2414251 
3 c  8  0.4362390 
4 d  9 -0.5844525 
5 e 10  0.1420070 

我的清单我的清单
百万美元
a、b、c
1A 10.1151720
2b2-0.3785748
3 c 3-0.1446305
4 d 4-0.4300272
5 e 5 1.1982312
$n
a、b、c
1 a 6 1.2079439
2 b 7-1.241421
3 c 8 0.4362390
4 d 9-0.5844525
5 e 10 0.1420070

我希望将它们堆叠在一起，但不会丢失data.frame（“m”、“n”）名称的上下文。理想情况下，原始数据帧的名称将作为附加列包含在最终数据帧中。一种方法是在使用rbind.fill之前添加额外的列：

for(i in 1:length(my_list)) my_list[[i]][, 4] <- names(my_list)[i]
library(plyr)
rbind.fill(my_list)

   a  b          c V4
1  a  1  0.1151720  m
2  b  2 -0.3785748  m
3  c  3 -0.1446305  m
4  d  4 -0.4300272  m
5  e  5  1.1982312  m
6  a  6  1.2079439  n
7  b  7 -1.2414251  n
8  c  8  0.4362390  n
9  d  9 -0.5844525  n
10 e 10  0.1420070  n    

---

对于（i in 1:length（my_list））my_list[[i]][，4]您可以使用另一种列寻址方式来解决这两个问题：

for(i in 1:length(my_list)) my_list[[i]]$names <- names(my_list)[i]

顺便说一句，这里不需要plyr，同样的效果可以通过

do.call(rbind, my_list)

这太让我恼火了，因为这很容易做到，但我只想找到一个简便的方法。您也可以通过便利包装器
qdap:：list\u df2df
来实现这一点：

library(qdap)
list_df2df(my_list, "V4")

##    V4 a  b           c
## 1   m a  1 -0.37622031
## 2   m b  2  0.43700001
## 3   m c  3  0.65035652
## 4   m d  4 -0.09290962
## 5   m e  5  0.16675182
## 6   n a  6 -2.43296495
## 7   n b  7  1.91099315
## 8   n c  8  0.03232916
## 9   n d  9 -1.18901280
## 10  n e 10  0.42399969

另一种可能性：

library(plyr)
ldply(my_list)
#    .id a  b          c
# 1    m a  1 -0.1294107
# 2    m b  2  0.8867361
# 3    m c  3 -0.1513960
# 4    m d  4  0.3297912
# 5    m e  5 -3.2273228
# 6    n a  6 -0.7717918
# 7    n b  7  0.2865486
# 8    n c  8 -1.2205120
# 9    n d  9  0.4345504
# 10   n e 10  0.8001769

谢谢，看起来很棒：）这不起作用，可能是因为我列表中的
NA
元素<代码>ldply

虽然有效。

library(plyr)
ldply(my_list)
#    .id a  b          c
# 1    m a  1 -0.1294107
# 2    m b  2  0.8867361
# 3    m c  3 -0.1513960
# 4    m d  4  0.3297912
# 5    m e  5 -3.2273228
# 6    n a  6 -0.7717918
# 7    n b  7  0.2865486
# 8    n c  8 -1.2205120
# 9    n d  9  0.4345504
# 10   n e 10  0.8001769