修改R中的循环以在计算值旁边添加文件名

# 获取文件列表
file_list <- list.files(path = "文件路径", pattern = "*.csv", full.names = TRUE)

# 创建一个空的结果列表
result <- list()

# 循环处理每个文件
for (file in file_list) {
  # 读取文件
  data <- read.csv(file)
  
  # 在计算值旁边添加文件名
  data$filename <- file
  
  # 将结果添加到结果列表中
  result[[file]] <- data
}

# 合并所有结果
final_result <- do.call(rbind, result)