怎么批量合并 data.frame ?

缘分也是有保质期的吗？

怎么批量合并 data.frame ?

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

分享给大家：

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

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

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

按列合并 2 次：

cbind(da,da)
  a b a b
1 1 A 1 A
2 2 B 2 B

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

lst <- list()
for (i in 1:2) {
  lst[[i]] <- da
}

# 合并
lst %>% do.call(rbind,.)
  a b
1 1 A
2 2 B
3 1 A
4 2 B

# 按列合并
lst <- list()
for (i in 1:2) {
  lst[[i]] <- da
}

# 合并
lst %>% do.call(cbind,.)
  a b a b
1 1 A 1 A
2 2 B 2 B

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

把代码用 lapply 简化一下：

lst <- list()

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

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

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

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

lst <- list()

lapply(1:3, function(x){
  lst[[x]] <- da
}) %>% bind_rows()

lapply(1:3, function(x){
  lst[[x]] <- da
}) %>% do.call('rbind',.)

lapply(1:3, function(x){
  lst[[x]] <- da
}) %>% map_dfr(rbind)

应该也还有很多其它的方法，大家自己去探索。

继续推送一下二维码，扫码即可进群：