如何在R Markdown中批量导出ggplot绘图的处理后数据至Excel？

针对批量导出每个ggplot图表处理后数据的需求，这里提供两种高效解决方案：

方案1：封装绘图+导出的自定义函数 #

把绘图和数据导出逻辑打包成一个函数，每个代码块只需调用该函数即可自动完成导出，避免重复编写导出代码：

# 加载所需包
library(ggplot2)
library(writexl)

# 定义封装函数：传入绘图对象、工作表名、Excel路径，返回绘图对象不影响渲染
plot_and_export <- function(plot_obj, sheet_name, excel_path = "data_from_plot.xlsx") {
  writexl::write_xlsx(plot_obj$data, excel_path, sheet = sheet_name)
  return(plot_obj)
}

使用示例（每个绘图代码块）： #

# 绘制图表并自动导出对应数据到"plot1"工作表
plot1 <- ggplot(df1) +
  aes(x = x1, y = y1) +
  geom_col() %>%
  plot_and_export(sheet_name = "plot1")

# 第二个图表，导出到"plot2"工作表
plot2 <- ggplot(df2) +
  aes(x = x2, y = y2) +
  geom_point() %>%
  plot_and_export(sheet_name = "plot2")

方案2：批量收集已绘制的图表对象统一导出 #

如果已经完成所有图表绘制，可以将所有plot对象收集到列表中，一次性导出所有数据到对应工作表：

# 收集所有绘图对象到命名列表（键名对应工作表名）
plot_list <- list(
  plot1 = plot1,
  plot2 = plot2,
  plot3 = plot3
)

# 提取每个图表的处理后数据，生成数据列表
data_list <- lapply(plot_list, function(p) p$data)

# 一次性导出所有数据到Excel，列表键名自动作为工作表名
writexl::write_xlsx(data_list, "data_from_plot.xlsx")

补充：追加工作表（不覆盖原有文件） #

writexl默认会覆盖已有Excel文件，如果需要追加工作表而不覆盖，可以改用openxlsx包实现：

library(openxlsx)

export_append <- function(data, sheet_name, excel_path = "data_from_plot.xlsx") {
  if (file.exists(excel_path)) {
    wb <- loadWorkbook(excel_path)
    addWorksheet(wb, sheet_name)
    writeData(wb, sheet_name, data)
    saveWorkbook(wb, excel_path, overwrite = TRUE)
  } else {
    write.xlsx(data, excel_path, sheetName = sheet_name)
  }
}

# 使用示例
export_append(plot1$data, "plot1")

内容的提问来源于stack exchange，提问作者Artur Vidaurre de Almeida