R语言列表元素合并问题：循环合并失败及Excel导出需求

首先，我注意到你现在是把每个数据框单独命名成df_abc、df_def这类变量，其实更高效的方式是先把这些数据框统一放到一个列表里，这样不管是循环还是直接批量合并都更方便。

步骤1：把单独的data.frame整合到列表中 #

如果你已经有了df_abc、df_def、df_ghi、df_jkl这四个数据框，可以用mget()函数快速把它们放进一个列表：

# 把指定名称的data.frame统一放到列表里
df_list <- mget(c("df_abc", "df_def", "df_ghi", "df_jkl"))

这样就不用手动一个个添加，后续操作都可以基于这个列表来做。

步骤2：批量合并所有data.frame #

方法1：用基础R的do.call()（无需额外包） #

如果你习惯用基础R，可以直接用do.call()把rbind()应用到列表的所有元素上，实现按行合并：

mer3 <- do.call(rbind, df_list)

如果你的需求是按列合并，把rbind换成cbind即可。

方法2：用dplyr的bind_rows()（适配列名不一致的情况） #

如果你的数据框存在列名不完全匹配的情况，dplyr的bind_rows()会更友好——它会自动匹配列名，缺失的列会填充NA：

# 先安装加载dplyr（没装过的话取消注释第一行）
# install.packages("dplyr")
library(dplyr)

mer3 <- bind_rows(df_list)

为什么你的循环可能失败？ #

很多人写循环时容易踩的坑是初始值设置不对，比如一开始把mer3设为NULL，第一次循环rbind时就会出错。比如错误的写法：

# 错误示例：初始值为NULL，第一次rbind会报错
mer3 <- NULL
for(df in df_list) {
  mer3 <- rbind(mer3, df)
}

正确的循环写法应该先把第一个元素赋值给mer3，再循环合并剩下的：

# 正确的循环写法
mer3 <- df_list[[1]]
for(i in 2:length(df_list)) {
  mer3 <- rbind(mer3, df_list[[i]])
}

不过说实话，上面的批量合并方法比循环更简洁高效，尤其是数据量大的时候。

步骤3：导出到Excel表格 #

推荐用openxlsx包导出，功能丰富且无需Java依赖：

# 安装加载openxlsx（没装过的话取消注释第一行）
# install.packages("openxlsx")
library(openxlsx)

# 导出mer3到Excel文件，关闭行名输出更美观
write.xlsx(mer3, file = "merged_result.xlsx", rowNames = FALSE)

如果追求轻量，也可以用writexl包：

# install.packages("writexl")
library(writexl)

write_xlsx(mer3, path = "merged_result.xlsx")

完整示例代码 #

把所有步骤整合起来的完整代码如下：

# 假设你已经有了df_abc、df_def、df_ghi、df_jkl
df_list <- mget(c("df_abc", "df_def", "df_ghi", "df_jkl"))

# 合并数据框
library(dplyr)
mer3 <- bind_rows(df_list)

# 导出到Excel
library(openxlsx)
write.xlsx(mer3, file = "merged_result.xlsx", rowNames = FALSE)

内容的提问来源于stack exchange，提问作者Ravi Shankar Singh