如何简化此 R 代码以 rbind 列表的所有表？ [复制]

Question

必须有一个简单的方法来rbind列表中的所有表，怎么做？

rbind(tempOut[[1]], tempOut[[2]], tempOut[[3]], tempOut[[4]], 
                 tempOut[[5]], tempOut[[6]], tempOut[[7]], tempOut[[8]], 
                 tempOut[[9]], tempOut[[10]], tempOut[[11]], tempOut[[12]],
                 tempOut[[13]], tempOut[[14]], tempOut[[15]], tempOut[[16]],
                 tempOut[[17]], tempOut[[18]], tempOut[[19]], tempOut[[20]],
                 tempOut[[21]], tempOut[[22]], tempOut[[23]], tempOut[[24]],
                 tempOut[[25]], tempOut[[26]], tempOut[[27]], tempOut[[28]], 
                 tempOut[[29]], tempOut[[30]], tempOut[[31]], tempOut[[32]])

Answer 1

1) do.call 使用第一行提供可重现的测试输入（其中BOD 是内置的6 行数据框），我们使用do.call 和rbind，如图所示。不使用任何包。

tempOut <- list(BOD, 10*BOD, 100*BOD) # test input

do.call("rbind", tempOut)

给予：

   Time demand
1     1    8.3
2     2   10.3
3     3   19.0
4     4   16.0
5     5   15.6
6     7   19.8
7    10   83.0
8    20  103.0
9    30  190.0
10   40  160.0
11   50  156.0
12   70  198.0
13  100  830.0
14  200 1030.0
15  300 1900.0
16  400 1600.0
17  500 1560.0
18  700 1980.0

2) 减少第二种选择是：

Reduce("rbind", tempOut)

3) 包 还有一些包提供此功能，包括data.table 中的rbindlist、dplyr 中的bind_rows 和plyr 中的rbind.fill。

3a) purrr::map_dfr 如果您想跟踪每行来自哪个表，则特别感兴趣的是 purrr 解决方案 - 另请注意 data.table 的 rbindlist 有一个 @ 987654331@ 参数根据@Henrik 的评论。

library(dplyr) # map_dfr from purrr also requires dplyr
library(purrr)
map_dfr(tempOut, identity, .id = "id")

给予：

   id Time demand
1   1    1    8.3
2   1    2   10.3
3   1    3   19.0
4   1    4   16.0
5   1    5   15.6
6   1    7   19.8
7   2   10   83.0
8   2   20  103.0
9   2   30  190.0
10  2   40  160.0
11  2   50  156.0
12  2   70  198.0
13  3  100  830.0
14  3  200 1030.0
15  3  300 1900.0
16  3  400 1600.0
17  3  500 1560.0
18  3  700 1980.0