如何用简便方法将R中多个dataframe导出到单个Excel文件？

方法：使用openxlsx包（无Java依赖，操作简便） #

这个包可以轻松将列表中的每个DataFrame导出到Excel文件的不同工作表中，完美适配你900个变量的场景。

1. 安装并加载包

install.packages("openxlsx")
library(openxlsx)

2. 创建空工作簿并批量写入数据

# 创建空Excel工作簿
wb <- createWorkbook()

# 遍历l2列表，将每个DataFrame写入对应工作表（表名用原变量名）
lapply(names(l2), function(var_name) {
  # 添加工作表，命名为原变量名
  addWorksheet(wb, sheetName = var_name)
  # 将DataFrame写入该工作表
  writeData(wb, sheet = var_name, x = l2[[var_name]])
})

# 保存工作簿到指定路径
saveWorkbook(wb, "变量频数汇总表.xlsx", overwrite = TRUE)

补充优化：用purrr::walk2更高效 #

如果不需要返回值，用walk2替代lapply更轻量化：

library(purrr)

wb <- createWorkbook()
walk2(l2, names(l2), function(df, sheet_name) {
  addWorksheet(wb, sheet_name)
  writeData(wb, sheet_name, df)
})
saveWorkbook(wb, "变量频数汇总表.xlsx", overwrite = TRUE)

注意事项 #

• 列表l2自带变量名（从原数据集df的列名继承），所以工作表会自动以变量名命名，方便对应查看
• 如果列表无命名，可手动生成表名，比如paste0("Sheet_", seq_along(l2))
• overwrite = TRUE 参数允许覆盖已存在的同名文件，避免重复操作报错

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