如何用for循环导出多个DataFrame至CSV？导出空文件问题排查

你的代码存在几个关键错误，导致导出的是空文件，逐一修正如下：

1. 修正DataFrame名称向量 #

你定义的files_to_output里重复了"X"，漏了目标DataFrame"Z"，先修正：

files_to_output <- c("X", "Y", "Z", "W")

2. 修复语法错误 #

• 把write,csv改成write.csv（逗号改为点，这是R函数名的正确写法）
• 补全write.csv语句末尾缺失的右括号

3. 核心问题：传递实际的DataFrame对象 #

你传入write.csv的是字符串（比如"X"），而不是内存中的DataFrame对象。需要用get(file_name)将字符串转换为对应的变量。

修正后的完整代码 #

# 先定义输出文件夹路径，替换为你的实际路径
input_folder <- "./output"

files_to_output <- c("X", "Y", "Z", "W")

for (file_name in files_to_output) {
  filename <- paste0(file_name, ".csv")
  message("Exporting ", filename, " file")
  
  # 获取对应名称的DataFrame对象
  target_df <- get(file_name)
  
  # 导出csv，file.path自动处理路径分隔符，适配不同系统
  write.csv(target_df, file = file.path(input_folder, filename), row.names = FALSE)
}

可选：增加存在性检查（避免报错） #

如果担心有些DataFrame不存在，可以先检查再导出：

input_folder <- "./output"
files_to_output <- c("X", "Y", "Z", "W")

for (file_name in files_to_output) {
  filename <- paste0(file_name, ".csv")
  
  if (!exists(file_name)) {
    message("警告：对象 ", file_name, " 不存在，跳过导出")
    next
  }
  
  message("Exporting ", filename, " file")
  target_df <- get(file_name)
  write.csv(target_df, file = file.path(input_folder, filename), row.names = FALSE)
}

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