如何在循环导出DataFrame为.csv文件时保留原始列名

你的代码存在两个关键问题，导致导出的CSV列名被自动添加DataFrame名称前缀：

• 列表元素提取方式错误：使用df[i]返回的是包含单个DataFrame的子列表，而非直接返回DataFrame对象，write.csv处理子列表时会自动给列名加上元素名称前缀。
• 文件名拼接逻辑错误：paste0(df,names(list)[i], ".csv")的写法完全错误，df是整个列表对象，names(list)也无法正确获取你的DataFrame列表的元素名称。

修正后的代码 #

# 假设你的DataFrame列表名为df
for(i in 1:length(df)){
  write.csv(df[[i]], paste0(names(df)[i], ".csv"), row.names = FALSE, na = "")
}

关键修改说明 #

1. 用df[[i]]替代df[i]：双括号[[ ]]会直接提取列表中的单个DataFrame对象，而非子列表，这样write.csv就会使用DataFrame本身的原始列名。
2. 修正文件名生成逻辑：names(df)[i]可以正确获取列表中第i个DataFrame的名称，拼接后生成对应的CSV文件名，避免了原代码中的对象拼接错误。

测试验证（可选） #

你可以用以下测试代码验证效果：

# 构造测试用DataFrame列表
Table1 <- data.frame(Col1 = 1:3, Col2 = 4:6, Col3 = 7:9, Col4 = 10:12)
Table2 <- data.frame(Col1 = 13:15, Col2 = 16:18, Col3 = 19:21, Col4 = 22:24)
Table3 <- data.frame(Col1 = 25:27, Col2 = 28:30, Col3 = 31:33, Col4 = 34:36)
df <- list(Table1 = Table1, Table2 = Table2, Table3 = Table3)

# 运行导出代码
for(i in 1:length(df)){
  write.csv(df[[i]], paste0(names(df)[i], ".csv"), row.names = FALSE, na = "")
}

导出后的CSV文件列名将保持Col1、Col2等原始名称，不会再添加前缀。

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