在R中加载多个.csv文件，编辑它们并另存为以字符字符串列表命名的新.csv文件

# 获取文件夹中的所有.csv文件名
file_names <- list.files(path = "文件夹路径", pattern = "\\.csv$", full.names = TRUE)

# 创建一个空列表用于存储加载的数据
data_list <- list()

# 循环加载每个.csv文件并存储到列表中
for (file in file_names) {
  data <- read.csv(file)
  data_list[[file]] <- data
}

library(dplyr)

# 对于每个加载的数据，进行编辑操作
for (file in file_names) {
  data <- data_list[[file]]
  
  # 编辑操作示例：筛选出满足条件的数据
  filtered_data <- data %>% filter(condition)
  
  # 将编辑后的数据存储回列表中
  data_list[[file]] <- filtered_data
}

# 根据字符字符串列表命名规则，另存为新的.csv文件
for (i in 1:length(file_names)) {
  file <- file_names[i]
  data <- data_list[[file]]
  
  # 根据命名规则生成新的文件名
  new_file <- paste0("新文件名", i, ".csv")
  
  # 将编辑后的数据保存为新的.csv文件
  write.csv(data, file = new_file, row.names = FALSE)
}