R语言合并同结构data对象及单独导出CSV的问题求助

1. 合并所有数据集的错误修复 #

原代码中ls(pattern = 'data')获取的是对象名称的字符串向量，而rbindlist需要接收实际的数据集列表，直接传入字符串会导致报错。正确做法是用mget()把字符串转换成对应的数据集对象列表，再进行合并：

library(data.table)
# 获取所有以data开头且后跟数字的对象，转换为数据集列表
data_list <- mget(ls(pattern = "^data\\d+$"))
# 合并为一个大数据集
total_file <- rbindlist(data_list, use.names = TRUE, fill = TRUE)

• ^data\\d+$是正则表达式，精准匹配data1、data2这类命名的对象，避免误匹配其他含data的无关对象
• use.names = TRUE保证列名一致时正确对齐合并，fill = TRUE可应对偶尔列名不一致的情况（若数据集结构完全一致可省略）

2. 批量导出CSV的错误修复 #

原代码中paste0("data",i)只是生成对象名称的字符串，write.csv需要传入实际的数据集对象，所以要用get()获取字符串对应的对象。推荐基于已获取的对象列表循环，避免硬编码1:100导致不存在对象的报错：

方法一：基于对象列表循环（推荐） #

# 遍历数据集列表，批量导出
for (obj_name in names(data_list)) {
  write.csv(data_list[[obj_name]], file = paste0(obj_name, ".csv"), row.names = FALSE)
}

方法二：按数字循环（确认data1到data100都存在时可用） #

for (i in 1:100) {
  obj_name <- paste0("data", i)
  write.csv(get(obj_name), file = paste0(obj_name, ".csv"), row.names = FALSE)
}

• 添加row.names = FALSE避免导出时自动生成行号（可根据需求调整）

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