0

我有从 rmd 文件呈现的 pdf 文件，并且在将 pdf 页面转换为 png 时遇到问题。在我演示了一个类似的问题以便更好地理解之后：

我生成了一个 ggplot 并保存为 pdf(mtcars.pdf)。

a <- ggplot(mtcars, aes(x=wt, y=mpg)) + geom_point() +
  ggtitle("Fuel Efficiency of 32 Cars") +
  xlab("Weight (x1000 lb)") + ylab("Miles per Gallon") +
  theme(text=element_text(family="Times New Roman"))
print(a)

mtcars.pdf 如下：

在此处输入图像描述

现在我正在尝试使用 pdftools 的 pdf_convert 函数将 pdf 转换为 png 文件。

pdfs <- c("mtcars.pdf")
library(pdftools)
sapply(pdfs, function(x)
  pdf_convert(x, format = "png", pages = 1, filenames = NULL, dpi = 300, opw = "", upw = "", verbose = TRUE))

但我得到的情节没有任何轴上的文本数据，并得到如下错误消息：

“将第 1 页转换为 mtcars_1.png...PDF 错误：找不到 'TimesNewRomanPSMT' 的字体”

我尝试了其他几种字体，但 pdf_convert 函数无法识别它们中的任何一种。它给出的输出图像如下：

在此处输入图像描述

有什么方法可以将ggplot的所有内容从pdf转换为png？

4

0 回答 0