我想创建一个使用拉丁现代罗马字体的 R-plot 并将其导出为 pdf。我找到了extrafont提供此类附加字体的软件包。一开始我的Ghostscript有一些问题，我的电脑上没有安装，安装后也没有找到。然而，像这样为 R 提供 .exe 的完整路径Sys.setenv(R_GSCMD = "C:/Program Files/gs/gs9.52/bin/gswin64.exe")，解决了这个问题。类似于我在互联网上找到的许多示例，然后我编写了以下脚本*：
require("extrafont")
loadfonts(device = "win")
dat <- data.frame(x = seq(1, 20), y = c(
1, 2, 4, 5, 7, 8, 9, 11, 21, 43, 30, 91, 100, 200, 238, 490, 700, 900, 920, 1000
))
file <- paste(fig_dir, "/test.pdf", sep = "")
pdf(file = file, width = 5, height = 5*0.75)
par(family = "LM Roman 10")
plot(x~y, data = dat, main = "LaTeX Font Plot", ylab = "y-lab", xlab = "This is the x-label")
dev.off()
embed_fonts(file = file, outfile = str_replace(file, ".pdf", "_embed.pdf"))
这里，fig_dir是包含导出图形的文件夹的目录。
第一个问题是一条警告消息，告诉我符号0x2d的宽度未知。然而，.pdf 被导出。然而，主要问题是后续embed_fonts()命令，因为它只是永远运行。不幸的是，我不会收到任何错误消息，我只是永远不会得到结果。也许有人暗示问题可能出在哪里，甚至面临类似的问题？
*字体先前已安装：
font_import(prompt = FALSE, pattern = "lmroman")
loadfonts(device = dev)