如何在R中批量将30个带名称的DataFrame导出至单个Excel工作表

我之前处理过类似的需求，用openxlsx包就能完美实现——它支持精准控制Excel单元格的写入位置，刚好能满足你把多个DataFrame连同名称依次放到同一张工作表里的要求。下面是具体的实现步骤和代码：

步骤1：安装并加载依赖包 #

首先确保你安装了openxlsx，如果没装的话先运行：

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

步骤2：批量收集你的DataFrame #

如果你所有的DataFrame都是类似dfname1、dfname2这样的命名（比如都以df开头），可以用mget()批量把它们装进一个列表里，省得手动一个个加：

# 批量获取所有以df开头的DataFrame到列表
df_list <- mget(ls(pattern = "^df"))

# 如果你的DataFrame命名没有规律，就手动构建列表：
# df_list <- list(dfname1 = dfname1, dfname2 = dfname2, ..., dfname30 = dfname30)

步骤3：迭代写入Excel #

接下来初始化工作簿和工作表，然后遍历列表，每次先写入DataFrame的名称，再写入数据本身，同时控制好每行的起始位置：

# 创建一个新的Excel工作簿
wb <- createWorkbook()
# 添加一张工作表，命名为你想要的名字，比如"All_DataFrames"
addWorksheet(wb, sheetName = "All_DataFrames")

# 设置起始行，从第1行开始
start_row <- 1

# 遍历每个DataFrame
for (df_name in names(df_list)) {
  current_df <- df_list[[df_name]]
  
  # 1. 写入DataFrame的名称（可以设置加粗样式让它更显眼）
  writeData(wb, sheet = "All_DataFrames", x = df_name, startRow = start_row, startCol = 1)
  # 可选：给名称加个加粗样式
  addStyle(wb, sheet = "All_DataFrames", style = createStyle(textDecoration = "bold"), 
           rows = start_row, cols = 1:ncol(current_df))
  
  # 2. 写入DataFrame的数据，起始行是名称行的下一行
  writeData(wb, sheet = "All_DataFrames", x = current_df, startRow = start_row + 1, startCol = 1)
  
  # 3. 更新下一个DataFrame的起始行：名称行1行 + 数据行数 + 1行空行（可选，去掉的话就把+1删掉）
  start_row <- start_row + 1 + nrow(current_df) + 1
}

# 最后保存工作簿到指定路径
saveWorkbook(wb, file = "all_dataframes.xlsx", overwrite = TRUE)

一些小细节调整 #

• 如果你不想留空行分隔不同的DataFrame，把start_row更新那行的+1删掉就行，这样下一个DataFrame的名称会紧跟在上一个DataFrame的最后一行。
• 如果你的DataFrame列数不一样，openxlsx会自动适配，不用担心列对齐的问题。
• 可以给表头或者名称设置更多样式，比如背景色、字体大小，用createStyle()就能实现。

这样运行完之后，你就能得到一个Excel文件，里面的工作表会按顺序显示每个DataFrame的名称，紧接着就是对应的数据，完全符合你的需求~

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