在R中使用writexl包结合变量路径批量写入Excel文件

首先你的原代码存在一个小问题：双引号内的{name_list[[i]]}不会被自动解析为对应文件名，需要用字符串拼接的方式生成正确路径，比如paste()或者glue::glue()。

如果要更优雅地实现批量写入，推荐使用purrr包的map2()函数，它专门用于对两个长度相同的列表进行逐元素配对操作，代码更简洁且可读性更强，同时完全符合你要求的使用writexl包的条件：

# 先确保安装并加载所需包
install.packages(c("writexl", "purrr"))
library(writexl)
library(purrr)

# 生成带路径的完整文件名列表
full_paths <- file.path("C:/example_path", paste0(name_list, ".xlsx"))

# 用map2批量写入
map2(df_list, full_paths, ~write_xlsx(.x, path = .y, col_names = FALSE))

代码说明： #

• file.path()是R内置的路径拼接函数，能自动适配不同操作系统的路径分隔符，比手动拼接更稳妥。
• map2()的第一个参数是数据框列表df_list，第二个是完整路径列表full_paths，~定义了配对操作：把每个数据框.x写入到对应的路径.y中。
• 这种写法避免了手动维护循环索引，代码更简洁，也更符合R的函数式编程风格。

如果不想依赖purrr包，也可以优化原for循环，让代码更规范：

library(writexl)

# 先检查两个列表长度是否一致（避免出错）
stopifnot(length(df_list) == length(name_list))

for (i in seq_along(df_list)) {
  file_path <- file.path("C:/example_path", paste0(name_list[[i]], ".xlsx"))
  write_xlsx(df_list[[i]], path = file_path, col_names = FALSE)
}

优化点： #

• 用seq_along(df_list)代替1:length(df_list)，当列表为空时不会出错（1:length(NULL)会生成1:0，而seq_along(NULL)生成空向量）。
• 提前用file.path()和paste0()生成正确路径，代码更清晰。
• 加入stopifnot()做前置检查，避免因两个列表长度不一致导致的错误。

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