R语言遍历文件并生成汇总输出表问题求助

我最近在处理一个批量计算任务：需要从多个文件中执行一系列计算，最终生成一个包含所有文件计算结果的汇总输出表。我尝试先列出文件夹内的所有文件，再用for循环或lapply函数遍历处理，但过程中还是遇到了问题。以下是我编写的简化示例代码（包含模拟文件创建逻辑）：

# 创建新文件夹"trials"
setwd("C:/Users/.../Desktop")
dir.create("trials")

# 进入trials文件夹
setwd("C:/Users/.../Desktop/trials")

# 模拟创建多个trial文件（示例：创建3个csv文件）
for(i in 1:3){
  df <- data.frame(value = rnorm(100))
  write.csv(df, paste0("trial_", i, ".csv"), row.names = FALSE)
}

# 尝试遍历文件但遇到问题的部分（原代码未完成）
pathFiles <- "C:/Users/.../Desktop/trials"
# 这里原本打算遍历文件，但执行计算和汇总时出错

针对这个批量处理需求，我们可以按以下步骤来实现：

1. 正确获取目标文件列表 #

首先用list.files()获取文件夹内指定格式的文件，避免手动拼接路径出错：

# 获取trials文件夹下所有csv文件的完整路径
file_list <- list.files(path = "C:/Users/.../Desktop/trials", 
                        pattern = "*.csv", 
                        full.names = TRUE)

2. 定义单个文件的处理函数 #

把需要执行的计算逻辑封装成函数，方便批量调用：

process_single_file <- function(file_path){
  # 读取文件
  df <- read.csv(file_path)
  
  # 执行自定义计算（示例：计算均值、中位数、标准差）
  result <- data.frame(
    file_name = basename(file_path),
    mean_value = mean(df$value),
    median_value = median(df$value),
    sd_value = sd(df$value)
  )
  
  return(result)
}

3. 批量处理所有文件 #

用lapply遍历文件列表，批量应用处理函数：

# 批量处理所有文件
all_results <- lapply(file_list, process_single_file)

4. 合并结果生成汇总表 #

把所有单个文件的结果合并成一个数据框，就是最终的汇总表：

# 合并成汇总表
summary_table <- do.call(rbind, all_results)

# 查看或导出汇总表
print(summary_table)
write.csv(summary_table, "../summary_results.csv", row.names = FALSE)

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