如何用lapply将DataFrame列表写入文件并以对象名命名？

嘿，这个问题我太熟了！很多人刚用列表批量处理数据时都会踩这个坑——lapply默认只遍历列表的元素，不会传递每个元素对应的名字，所以你用paste拼接文件名时根本抓不到目标对象名，自然效果很差。别担心，有几种优雅的方法能帮你一键搞定，完全不用写n条重复语句：

方法1：用purrr::iwalk（推荐，代码最简洁） #

purrr包的iwalk函数专门用来遍历列表，同时传递元素本身和元素的名字，完美适配你的需求。

首先如果没装purrr，先安装：

install.packages("purrr")
library(purrr)

假设你的DataFrame列表叫df_list（注意要确保列表的names是你想要的文件名前缀，比如你创建列表时是df_list <- list(customer_df = customer_df, order_df = order_df)，那名字就正确了），然后执行：

# 导出为CSV文件，文件名就是列表元素的名字+.csv
iwalk(df_list, ~write.csv(.x, file = paste0(.y, ".csv"), row.names = FALSE))

解释一下：

• .x代表当前遍历到的DataFrame元素
• .y代表这个元素对应的列表名字（也就是你要的文件名）
• 如果你想导出成其他格式，比如Excel，把write.csv换成openxlsx::write.xlsx就行，逻辑完全一样。

方法2：用Base R的mapply #

如果你不想额外装包，Base R的mapply也能实现，它支持多参数并行遍历。

同样假设你的列表是df_list，执行：

# 传递DataFrame列表和对应的名字列表
mapply(
  function(df, file_name) {
    write.csv(df, file = paste0(file_name, ".csv"), row.names = FALSE)
  },
  df_list,
  names(df_list)
)

这里mapply会把df_list的每个元素和names(df_list)的每个对应名字一起传入自定义函数，完成导出。

关键注意点 #

• 确保你的列表names是正确的！如果是通过mget批量获取的DataFrame（比如df_list <- mget(ls(pattern = "^df_"))），那names(df_list)自动就是原对象名，没问题；如果是手动创建的列表，记得给每个元素命名，比如df_list <- list(df1 = df1, df2 = df2)，别写成df_list <- list(df1, df2)（这样names会是NULL，导出的文件名会变成1.csv、2.csv）。

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