R语言如何通过循环将列表内多个数据框按对应名称保存为csv文件

你的嵌套循环逻辑存在本质错误：外层每遍历到1个数据框，内层就会遍历全部文件名，把当前数据框用所有文件名重复写入一次。以3个数据框、3个文件名为例，整段代码会执行9次写文件操作，最后所有csv文件存储的都是列表中最后一个数据框的内容，必然出现反复覆盖的问题。
这个需求完全不需要嵌套循环，也不需要并行逻辑，只要保证数据框列表和文件名列表长度相等、元素顺序一一对应（列表第1个数据框匹配第1个文件名，第2个匹配第2个，以此类推），用单轮配对遍历即可实现。

方法1：索引式单循环（新手友好，兼容性最好） #

直接按位置索引同步取对应的数据框和文件名，仅跑一层循环，逻辑直观不容易出错：

# 前置校验：两个列表长度不一致时直接报错，避免索引越界
stopifnot(length(dataframe_list) == length(names))

for (i in seq_along(dataframe_list)) {
  # 按索引取当前要保存的数据框
  target_df <- dataframe_list[[i]]
  # 按索引拼当前要使用的文件名
  target_file <- paste0(names[i], ".csv")
  # 写入文件
  write.csv(target_df, target_file, row.names = FALSE)
}

方法2：mapply 批量处理（基础R向量化写法） #

用基础R内置的mapply函数，自动把两个等长列表的元素按位置配对，依次传入保存函数执行，不需要手动写循环：

# 定义单文件保存的辅助函数
save_single_csv <- function(df, file_prefix) {
  write.csv(df, paste0(file_prefix, ".csv"), row.names = FALSE)
}

# 配对传入数据框列表和文件名列表，批量执行保存
mapply(FUN = save_single_csv, dataframe_list, names)

方法3：purrr::walk2 批量处理（tidyverse 生态写法） #

如果你日常使用tidyverse系列工具，可以用walk2函数，它专门适配两个输入配对、执行无返回值操作（比如写文件、绘图这类输出结果的操作）的场景：

library(purrr)

walk2(
  .x = dataframe_list,
  .y = names,
  .f = ~write.csv(.x, paste0(.y, ".csv"), row.names = FALSE)
)

提示：正式写入前可以先打印两个列表的元素顺序做核对，避免因为列表顺序错位导致文件内容和文件名不匹配。

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