如何用R从数据框列表自动导出并格式化多份Excel文档？

我曾在另一线程发布过相似问题，收获了很大帮助。请问是否可以从数据框列表导出并设计多份Excel文档？例如，我希望列标题加粗并添加列筛选器。谢谢！

以下是我当前的代码：

library(purrr)
library(writexl)
library(readxl)

df1 <- mtcars[c("cyl", "mpg")]
df2 <- mtcars[c("cyl", "hp")]
df3 <- mtcars[c("cyl", "disp")]

path <- tempdir()

list(
  df1, df2, df3
) %>% 
  purrr::set_names(paste("Spreadsheet", LETTERS[1:3])) %>% 
  purrr::map(~ split(.x, .x$cyl)) %>% 
  purrr::transpose() %>%  
  purrr::iwalk(~writexl::write_xlsx(.x, file.path(path, paste0("results_", .y, ".xlsx"))))

writexl仅支持导出无格式Excel，要实现标题加粗和列筛选器这类格式需求，推荐使用openxlsx包（功能全面且无需依赖Java环境）。以下是修改后的代码，完全保留原有逻辑的同时添加了所需格式：

library(purrr)
library(openxlsx)

# 构造数据框列表
df1 <- mtcars[c("cyl", "mpg")]
df2 <- mtcars[c("cyl", "hp")]
df3 <- mtcars[c("cyl", "disp")]
path <- tempdir()

# 定义表头加粗样式
header_style <- createStyle(textDecoration = "bold")

# 处理数据并导出带格式的Excel
list(df1, df2, df3) %>% 
  set_names(paste("Spreadsheet", LETTERS[1:3])) %>% 
  map(~ split(.x, .x$cyl)) %>% 
  transpose() %>%  
  iwalk(function(data_list, file_suffix) {
    # 创建空工作簿
    wb <- createWorkbook()
    # 遍历数据框，添加工作表并设置格式
    walk2(data_list, names(data_list), function(df, sheet_name) {
      addWorksheet(wb, sheetName = sheet_name)
      # 写入数据并应用表头样式
      writeData(wb, sheet = sheet_name, x = df, headerStyle = header_style)
      # 为表头行添加列筛选器
      addFilter(wb, sheet = sheet_name, rows = 1, cols = 1:ncol(df))
    })
    # 保存工作簿
    saveWorkbook(wb, file.path(path, paste0("results_", file_suffix, ".xlsx")), overwrite = TRUE)
  })

关键细节说明： #

• 表头加粗：通过createStyle定义加粗样式，在writeData中用headerStyle参数绑定到表头行。
• 列筛选器：使用addFilter指定表头行（第1行）和所有数据列，自动为目标区域添加筛选功能。
• 完全保留原有业务逻辑：按cyl字段拆分数据、生成对应命名的Excel文件、每个文件包含多个对应工作表。

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