R语言多CSV文件处理函数纠错：读取清洗导出无输出求助

原代码的核心问题 #

• 错误将所有CSV合并成单个数据框，而非逐个处理并导出独立文件
• 导出逻辑完全失效：定义了无意义的out函数，还试图把函数而非处理后的数据写入文件；同时file_names是多文件路径向量，不能直接作为单个输出路径使用
• 未明确加载依赖包（比如dplyr/tidyverse用于select，data.table用于读写）

修正后的代码 #

先确保加载所需依赖包：

library(data.table)
library(dplyr) # 也可以用 library(tidyverse) 替代

重写后的处理函数：

# 获取当前文件夹下所有CSV文件的路径
file_names <- list.files(pattern = "\\.csv$")

# 定义批量处理函数
tidy_up_fxn <- function(file_paths) {
  # 遍历每个CSV文件
  for (file in file_paths) {
    # 1. 读取单个CSV文件
    df <- data.table::fread(file)
    
    # 2. 执行指定的3项处理操作
    df$Class <- gsub("null", "OTHER", df$Class)
    df$Class <- gsub(': ', ',', df$Class)
    df <- df %>% select(Image, everything(), -Name)
    
    # 3. 生成输出文件名（加_cleaned后缀，避免覆盖原文件）
    output_file <- gsub("\\.csv$", "_cleaned.csv", file)
    
    # 4. 导出处理后的文件
    data.table::fwrite(df, file = output_file, sep = ",")
    cat("已完成处理：", output_file, "\n") # 可选：打印进度，方便跟踪
  }
}

# 运行函数
tidy_up_fxn(file_names)

关键修改说明 #

• 改用for循环逐个处理文件，满足「每个文件单独处理导出」的需求
• 针对每个输入文件生成专属输出文件名，避免误删原文件
• 明确加载依赖包，确保所有函数能正常调用
• 新增进度打印（可选），可以直观看到处理进度

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