使用cowplot的draw_image()函数处理矢量PDF时出现严重模糊问题

我经常遇到开发者反馈这个问题——用draw_image()读取矢量PDF后输出的图像（比如PNG）模糊，核心原因是：默认情况下draw_image()依赖magick包栅格化PDF时，使用的分辨率只有72dpi（屏幕默认分辨率），远达不到印刷或高清显示的要求。矢量PDF本身是无损的，但一旦被低分辨率栅格化，就会出现边缘锯齿、细节模糊的情况。

下面给你几个可行的解决方案：

1. 读取PDF时指定高分辨率 #

直接在读取PDF时通过magick的image_read()设置density参数（即分辨率，单位dpi），再传入draw_image()。这个参数决定了栅格化PDF时的清晰度，一般300dpi就足够高清，你可以根据需求调整到600dpi甚至更高。

2. 保存输出时同步匹配分辨率 #

即使读取时用了高分辨率，如果ggsave()的dpi设置偏低，最终输出的图像还是会被压缩模糊，所以要同步设置ggsave()的dpi参数。

完整示例代码 #

library(ggplot2)
library(cowplot)
library(magick)

# 生成示例矢量PDF
p <- ggplot(iris, aes(Sepal.Length, Sepal.Width, shape = Species)) +
  geom_point() +
  scale_shape_manual(values = 21:23) +
  theme_classic()
ggsave("input.pdf", p, width = 6, height = 4.2)

# 关键：用高分辨率读取PDF
high_res_img <- image_read("input.pdf", density = 300) # 300dpi，可按需调整

# 用draw_image()嵌入高分辨率图像
fig <- ggdraw() + draw_image(high_res_img)

# 保存时同步设置高分辨率
ggsave("output.png", fig, width = 6, height = 4.2, dpi = 300)

额外提示 #

如果你的需求是输出完全矢量的文件（比如PDF），而不是栅格化的PNG，那draw_image()可能不是最优选择——因为它本质是把PDF转成图像嵌入。这种情况下可以尝试用grid包的grid.draw()直接导入矢量PDF，或者直接在ggplot中组合图形对象，避免导出再导入的步骤。

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