R中的循环函数，用于读取和保存多个数据文件

# 设置文件路径和保存路径
file_path <- "data/"
save_path <- "output/"

# 获取文件列表
file_list <- list.files(file_path)

# 使用for循环读取和保存数据文件
for (file in file_list) {
  # 读取数据文件
  data <- read.csv(paste0(file_path, file))
  
  # 进行数据处理或分析
  # ...
  
  # 保存处理后的数据
  save(file = paste0(save_path, file), data)
}

# 设置文件路径和保存路径
file_path <- "data/"
save_path <- "output/"

# 获取文件列表
file_list <- list.files(file_path)

# 使用lapply函数读取和保存数据文件
lapply(file_list, function(file) {
  # 读取数据文件
  data <- read.csv(paste0(file_path, file))
  
  # 进行数据处理或分析
  # ...
  
  # 保存处理后的数据
  save(file = paste0(save_path, file), data)
})