如何将R中生成的多个dataframe列表导出到单个Excel工作表

核心逻辑：所有子dataframe列结构完全一致，先将列表内所有表按行合并为单个总表，再导出到同一张Excel工作表即可，3000个样本量完全不会有性能问题。

方法1：tidyverse + writexl 方案（无Java依赖，操作最简） #

writexl包不需要依赖Java环境，运行速度快，适合大多数常规场景。
代码示例：

# 未安装包先运行：install.packages(c("dplyr", "writexl"))
library(dplyr)
library(writexl)

# 请将下方df_list替换为你自己的dataframe列表变量名
total_df <- bind_rows(df_list)

# 导出到Excel，可自行修改保存路径
write_xlsx(total_df, path = "所有投资者交易数据.xlsx", col_names = TRUE)

如果需要在总表中标记每一行对应的原列表索引，合并时可以新增标识列：

total_df <- bind_rows(df_list, .id = "原列表索引")

方法2：openxlsx 方案（支持自定义Excel格式） #

如果需要后续对工作表做格式调整、追加内容等进阶操作，可以使用openxlsx包实现：

# 未安装包先运行：install.packages("openxlsx")
library(openxlsx)

# 合并所有子表，也可替换为上方的bind_rows方法
total_df <- do.call(rbind, df_list)

# 创建工作簿和工作表写入数据
wb <- createWorkbook()
addWorksheet(wb, sheetName = "交易总表")
writeData(wb, sheet = "交易总表", x = total_df)

# 保存文件，overwrite设为TRUE可覆盖同名文件
saveWorkbook(wb, file = "所有投资者交易数据.xlsx", overwrite = TRUE)

注意事项 #

• 如果合并时报列类型不匹配的警告，可以先对所有子表统一列类型再合并，例如先用purrr::map(df_list, ~mutate(.x, across(everything(), as.character)))将所有列统一为字符型，后续再按需转换对应类型即可
• Excel单工作表最大支持1048576行，若合并后总数据量超过该上限，需要拆分到多个工作表导出

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