如何高效将同一ID_Data通过cbind合并到200个数据框并导出CSV？

核心思路 #

把所有需要合并的单列数据框批量收集到列表中，通过循环/映射完成合并，再批量导出为CSV文件，全程无需手动重复操作。

具体步骤与代码 #

1. 批量收集目标数据框
   假设你的200个数据框命名规则是data_1、data_2...data_200，用以下代码把它们全部存入一个列表：

   # 获取所有符合命名规则的数据框名称
   data_names <- ls(pattern = "^data_\\d+$")
   # 将数据框批量载入列表
   data_list <- mget(data_names, envir = .GlobalEnv)
   

   如果命名规则不同，调整pattern参数即可（比如"^my_data_"）。

2. 批量合并数据框
   对列表里的每个数据框，和ID_Data按列合并：

   # 用lapply批量合并，返回合并后的列表
   merged_data_list <- lapply(data_list, function(df) {
     # 可选：检查行数是否匹配，避免合并出错
     stopifnot(nrow(df) == nrow(ID_Data))
     cbind(ID_Data, df)
   })
   

   如果你习惯用dplyr，也可以用bind_cols替代cbind：

   library(dplyr)
   merged_data_list <- lapply(data_list, function(df) {
     stopifnot(nrow(df) == nrow(ID_Data))
     bind_cols(ID_Data, df)
   })
   

3. 批量保存为CSV文件
   给每个合并后的文件设置对应的文件名（比如merged_data_1.csv），然后用mapply配合fwrite批量导出：

   library(data.table)
   # 生成对应的输出文件名
   output_names <- paste0("merged_", data_names, ".csv")
   # 批量保存，指定文件路径（比如当前工作目录下的output文件夹）
   mapply(function(df, path) {
     fwrite(df, file = file.path("output", path))
   }, merged_data_list, output_names)
   

   注意：如果output文件夹不存在，先运行dir.create("output")创建。

为什么之前的名称向量循环失败？ #

大概率是没正确用get()获取数据框对象。比如如果直接循环名称字符串，得用get(name)把字符串转为数据框：

# 错误示例：直接用字符串操作
for(name in data_names) {
  # 错误：name是字符串，不是数据框
  merged <- cbind(ID_Data, name)
}

# 正确写法：用get()获取对象
for(name in data_names) {
  df <- get(name)
  merged <- cbind(ID_Data, df)
  fwrite(merged, paste0("merged_", name, ".csv"))
}

不过用列表批量处理比循环更简洁高效，也更易维护。

内容的提问来源于stack exchange，提问作者Lee