如何通过taskscheduleR让ggplot图表保留在xlsx文件中

问题根源 #

当通过taskscheduleR自动运行脚本时，R处于非交互式环境，ggplot默认会启动PDF图形设备输出图表，导致图表被写入Rplots.pdf而非被openxlsx捕获嵌入Excel，最终Excel中只留下空白占位。

解决方案 #

方案1：显式指定openxlsx专用图形设备

在生成ggplot图表前，调用openxlsx提供的setOpenxlsxGraphics()函数，强制使用临时图形设备捕获图表，完成后关闭设备。注意必须打印ggplot对象才能被设备捕获。

示例代码：

library(openxlsx)
library(ggplot2)

# 初始化工作簿和工作表
wb <- createWorkbook()
addWorksheet(wb, "数据与图表")

# 写入表格数据
data <- data.frame(
  类别 = c("A", "B", "C", "D"),
  数值 = c(23, 45, 17, 32)
)
writeData(wb, "数据与图表", data)

# 启动openxlsx图形设备（指定宽高，单位英寸）
setOpenxlsxGraphics(width = 5, height = 3)
# 生成并打印ggplot图表
plt <- ggplot(data, aes(x = 类别, y = 数值, fill = 类别)) + 
  geom_bar(stat = "identity")
print(plt)
# 关闭图形设备
dev.off()

# 将捕获的图表插入Excel指定位置
insertPlot(wb, "数据与图表", startRow = 8, startCol = 1)

# 保存工作簿（建议用绝对路径，避免调度环境路径问题）
saveWorkbook(wb, "C:/自动输出/带图表的报表.xlsx", overwrite = TRUE)

方案2：将ggplot转为grob对象插入

通过ggplotGrob()把ggplot图表转为grid图形对象（grob），直接传递给insertPlot()的grob参数，无需依赖图形设备，彻底避免设备冲突。

示例代码：

library(openxlsx)
library(ggplot2)
library(grid)

wb <- createWorkbook()
addWorksheet(wb, "数据与图表")

data <- data.frame(
  类别 = c("A", "B", "C", "D"),
  数值 = c(23, 45, 17, 32)
)
writeData(wb, "数据与图表", data)

# 将ggplot转为grob对象
plt <- ggplot(data, aes(x = 类别, y = 数值, fill = 类别)) + 
  geom_bar(stat = "identity")
plt_grob <- ggplotGrob(plt)

# 插入grob到Excel
insertPlot(wb, "数据与图表", startRow = 8, startCol = 1, grob = plt_grob)

saveWorkbook(wb, "C:/自动输出/带图表的报表.xlsx", overwrite = TRUE)

额外注意事项 #

• 路径问题：调度任务运行时的工作目录可能和手动运行不同，脚本中所有文件路径（包括输出的xlsx路径）都要使用绝对路径，或在脚本开头用setwd("你的工作目录路径")指定工作目录。
• 依赖包加载：确保调度环境中已安装所有需要的包（openxlsx、ggplot2、grid等），避免因包缺失导致运行失败。

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