R语言：将多个flextable对象保存至Excel不同工作表并通过函数管理列表

1. 修复自定义函数，实现flextable添加到指定列表 #

你的现有代码存在参数顺序不匹配、列表元素添加逻辑错误的问题，调整后可以实现将生成的flextable对象加入指定列表：

library(flextable)
library(dplyr)

# 自定义函数：生成带格式的flextable，并添加到传入的列表中
fun1 <- function(data, mv1, ov1, target_list) {
  # 创建基础flextable
  ft <- flextable(data)
  
  # 设定行筛选条件和目标列，设置字体颜色
  row_filter <- reformulate(paste(mv1, "> 20"))
  target_col <- reformulate(ov1)
  ft <- color(ft, i = row_filter, j = target_col, color = "blue")
  
  # 将生成的表格添加到目标列表末尾
  target_list[[length(target_list) + 1]] <- ft
  
  # 返回更新后的列表和生成的表格（按需选择返回内容）
  list(updated_list = target_list, table = ft)
}

# 初始化两个空列表，用于分类存储不同的flextable
list1 <- list()
list2 <- list()

# 调用函数，将生成的表格存入list1
result1 <- fun1(data = head(mtcars), mv1 = "mpg", ov1 = "gear", target_list = list1)
list1 <- result1$updated_list
ft1 <- result1$table

# 再生成一个表格存入list2
result2 <- fun1(data = tail(mtcars), mv1 = "hp", ov1 = "carb", target_list = list2)
list2 <- result2$updated_list
ft2 <- result2$table

2. 将列表中的flextable保存到Excel不同工作表 #

使用flextable自带的save_as_xlsx函数，传入命名列表即可自动将每个元素对应到一个工作表（列表名称就是工作表名）：

# 整理所有要保存的表格，命名后组成列表
all_tables <- list(
  "mtcars头部数据" = list1[[1]],
  "mtcars尾部数据" = list2[[1]]
)

# 保存到指定Excel文件
save_as_xlsx(all_tables, path = "flextable_excel_output.xlsx")

如果列表中有多个表格，批量处理更高效：

# 给list1和list2的表格批量命名，合并后保存
all_tables <- c(
  setNames(list1, paste0("列表1_表", 1:length(list1))),
  setNames(list2, paste0("列表2_表", 1:length(list2)))
)

save_as_xlsx(all_tables, path = "multiple_flextables.xlsx")

进阶：精细控制Excel格式 #

如果需要更复杂的工作表设置（比如调整行高、添加标题），可以结合officer包手动构建工作簿：

library(officer)

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

# 添加第一个工作表并插入表格
add_worksheet(wb, sheet_name = "头部数据")
body_add_flextable(wb, ft1, sheet = "头部数据")

# 添加第二个工作表并插入表格
add_worksheet(wb, sheet_name = "尾部数据")
body_add_flextable(wb, ft2, sheet = "尾部数据")

# 保存工作簿
print(wb, target = "custom_excel_output.xlsx")

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