怎么批量合并 data.frame ?

嗯…，这是个困扰我很久的问题了，想通过指定一个数量 i，就可以合并多少个一样的数据框，今天在做 QPCR-explorer 细节优化的时候想了一下解决了。

分享给大家：

  1. library(tidyverse)
  2. library(purrr)
  3. # 新建一个数据data.frame
  4. da <- data.frame(a=1:2,b=LETTERS[1:2])
  5. da
  6. da
  7.   a b
  8. 1 1 A
  9. 2 2 B

假如我们想按行合并 2 次，是不是可以这样做：

  1. rbind(da,da)
  2.   a b
  3. 1 1 A
  4. 2 2 B
  5. 3 1 A
  6. 4 2 B

按列合并 2 次：

  1. cbind(da,da)
  2.   a b a b
  3. 1 1 A 1 A
  4. 2 2 B 2 B

这样还不是要自己一个一个打上去？哈哈哈，写个循环试试：

  1. lst <- list()
  2. for (i in 1:2) {
  3.   lst[[i]] <- da
  4. }
  6. # 合并
  7. lst %>% do.call(rbind,.)
  8.   a b
  9. 1 1 A
  10. 2 2 B
  11. 3 1 A
  12. 4 2 B
  14. # 按列合并
  15. lst <- list()
  16. for (i in 1:2) {
  17.   lst[[i]] <- da
  18. }
  20. # 合并
  21. lst %>% do.call(cbind,.)
  22.   a b a b
  23. 1 1 A 1 A
  24. 2 2 B 2 B

看起来是可以的，我们只要把 for 循环里的 2 换成想要合并的次数就可以了。

把代码用 lapply 简化一下：

  1. lst <- list()
  3. lapply(1:2, function(x){
  4.        lst[[x]] <- da
  5.        }) %>% Reduce(rbind,.)
  6.   a b
  7. 1 1 A
  8. 2 2 B
  9. 3 1 A
  10. 4 2 B

也可以用 replicate 函数，感觉这个还挺简洁的：

  1. replicate(2,da,simplify = F) %>% bind_rows()
  2.   a b
  3. 1 1 A
  4. 2 2 B
  5. 3 1 A
  6. 4 2 B

lapply 合并的函数还可以接好多个，结果都是一样的：

  1. lst <- list()
  3. lapply(1:3, function(x){
  4.   lst[[x]] <- da
  5. }) %>% bind_rows()
  7. lapply(1:3, function(x){
  8.   lst[[x]] <- da
  9. }) %>% do.call('rbind',.)
  11. lapply(1:3, function(x){
  12.   lst[[x]] <- da
  13. }) %>% map_dfr(rbind)