Функция draw_image() из cowplot приводит к размытым PDF-файлам

Question

Чтение векторизованного PDF иногда приводит к получению сильно размытого изображения с draw_image() функция из коровьего участка:

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

# make pdf input as example
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)

# now draw with draw_image() and then write as png
fig <- ggdraw() + draw_image("input.pdf")
ggsave("output.png", fig, width = 1, height = .7, dpi = 1200) # blurred image

Тем не менее, чтение SVG работает нормально:

fig <- ggdraw() +
  draw_image("http://jeroen.github.io/images/tiger.svg")
ggsave("output.png", fig, width = 1, height = .7, dpi = 1200)

Также с помощью:

magick::image_read_pdf("input.pdf")

приводит к не размытому выводу.

Answer 1

Я не совсем уверен, почему SVG и PDF-файлы обрабатываются по-разному, или что именно происходит, когда вы читаете PDF-файлы с magick::image_read() (который является то, что draw_image() использует внутренне), но одним из решений является использование magick::image_read_pdf() Внутри draw_image(), Функция magick::image_read_pdf() преобразует PDF в растровое изображение, и мы можем указать нужное разрешение с помощью density аргумент:

fig <- ggdraw() + draw_image(magick::image_read_pdf("input.pdf", density = 600))
ggsave("output.png", fig, width = 1, height = .7, dpi = 1200)