如何在officer中不使用ggsave提升ggplot图像分辨率？

核心解决方案：直接在ph_with()中设置高DPI参数 #

新版本的officer包已支持在插入ggplot对象时直接指定分辨率（dpi），无需额外保存图片再读取。只需在ph_with()里添加dpi参数，设置为更高值（如300）即可提升图像清晰度，同时保持批量处理的效率。

修改后的代码示例：

library(tidyverse)
library(officer)

sample_plot <- ggplot(mtcars, aes(x = hp)) +
  geom_histogram()

template <- read_pptx()

so_deck <- template %>%
  add_slide(layout = 'Title and Content', master = 'Office Theme') %>%
  # 添加dpi参数设置高分辨率
  ph_with(value = sample_plot,
          location = ph_location_type("body"),
          dpi = 300)  # 可根据需求调整dpi数值

print(so_deck, "stack overflow test.pptx")

方法优势说明 #

• 无需ggsave：直接在插入环节生成高分辨率图像，避免批量保存/读取的额外开销，效率不受影响。
• 适配Google Slides转换：该方法生成高分辨率位图，而非dml()创建的矢量图形，不会在转Google Slides时出现格式错位。
• 兼容当前版本：替代已废弃的ph_with_vg()函数，是官方当前推荐的做法。

批量处理扩展示例 #

如果需要批量插入多个ggplot，在循环或映射中统一设置dpi参数即可：

# 示例：多个ggplot组成的列表
plot_list <- list(
  ggplot(mtcars, aes(x = mpg)) + geom_histogram(),
  ggplot(mtcars, aes(x = wt)) + geom_boxplot(),
  ggplot(mtcars, aes(x = hp, y = mpg)) + geom_point()
)

template <- read_pptx()

# 批量插入高分辨率图像
for (p in plot_list) {
  template <- template %>%
    add_slide(layout = 'Title and Content', master = 'Office Theme') %>%
    ph_with(value = p, location = ph_location_type("body"), dpi = 300)
}

print(template, "batch_plots.pptx")

内容的提问来源于stack exchange，提问作者J.Sabree