如何用for循环将列表中各dataframe追加写入同名已有CSV（R语言）

你的问题出在两个核心点：一是用c()组合dataframe会把它们合并成单个大dataframe，而非保留独立的带名称列表；二是循环中直接调用report变量无法获取原dataframe的名称。

步骤1：创建带名称的dataframe列表 #

不要用c()，改用list()为每个元素指定与原dataframe同名的键：

# 手动创建带名称的列表
report_list <- list(report1 = report1, report2 = report2, report3 = report3)

如果是从目录批量导入的dataframe，可通过mget()简化操作（假设所有目标dataframe名称以report开头）：

# 批量获取所有以report开头的dataframe并生成列表
report_list <- mget(ls(pattern = "^report"))

步骤2：遍历列表名称并追加写入CSV #

循环时遍历列表的名称，通过名称定位对应的dataframe，同时用名称匹配CSV文件名：

for (df_name in names(report_list)) {
  # 获取当前循环的dataframe
  current_df <- report_list[[df_name]]
  # 生成对应CSV文件路径
  csv_path <- paste0(df_name, ".csv")
  
  write.table(current_df,
              file = csv_path,
              append = TRUE,
              col.names = FALSE,
              row.names = FALSE,
              sep = ",")
}

补充处理：兼容空CSV文件场景 #

如果目标CSV文件尚未创建，append=TRUE会自动生成文件，但col.names=FALSE会导致缺失表头。可添加判断逻辑，首次写入时自动补充列名：

for (df_name in names(report_list)) {
  current_df <- report_list[[df_name]]
  csv_path <- paste0(df_name, ".csv")
  
  # 文件不存在则写入列名，已存在则追加数据
  write.table(current_df,
              file = csv_path,
              append = file.exists(csv_path),
              col.names = !file.exists(csv_path),
              row.names = FALSE,
              sep = ",")
}

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