R语言批量处理CSV文件：循环读写修改脚本的疑问

嘿，你的自动化思路完全没问题，但代码里有两个关键小细节需要修正，咱们来一步步调整：

问题1：读取文件时的变量引用错误 #

你写的 read.csv("i", header=T) 里的 "i" 是固定字符串，R会傻乎乎地去找一个名叫i的文件，而不是循环中迭代的每个CSV文件名。正确写法是直接用变量i，去掉引号：

df <- read.csv(i, header=TRUE)

问题2：逐行求和的逻辑错误 #

sum(df$value1, df$value2) 会把value1列和value2列的所有元素全部加起来，得到一个单一的数值，然后把这个数值重复赋值给df$sum的每一行。如果你想逐行计算对应位置的value1和value2的和，应该用逐元素相加的方式：

df$sum <- df$value1 + df$value2

要是后续需要处理更多列，用rowSums会更灵活，还能轻松处理NA值：

df$sum <- rowSums(df[, c("value1", "value2")], na.rm=FALSE)

（na.rm设为TRUE时会自动忽略NA值，按需调整就行）

修正后的完整代码 #

我还优化了文件匹配规则（确保只抓以.csv结尾的文件，避免误选类似test.csv.bak的文件），以及用write.csv替代write.table（更适配CSV格式，不用手动指定分隔符）：

# 获取当前目录下所有CSV文件的完整路径
data <- list.files(path=".", pattern="\\.csv$", full.names=TRUE)

# 循环处理每个文件
for(i in data) {
  # 读取CSV文件
  df <- read.csv(i, header=TRUE)
  
  # 计算每行的value1和value2之和
  df$sum <- df$value1 + df$value2
  
  # 将修改后的数据写回原文件（注意会覆盖原文件，建议先备份！）
  write.csv(df, file=i, row.names=FALSE)
}

⚠️ 重要提醒：这段代码会直接覆盖原CSV文件，建议先备份文件或者先输出到新目录测试没问题，再替换原文件哦！

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