extrafont：获取我安装Ghostscript的路径

Question

我在GitHub上使用ggplot2和extrafont以及Winston Chang's教程extrafont。我的问题是我无法按照嵌入字体的步骤进行操作。特别是，我不知道计算机上Ghostscript程序的路径（即＆＃34; C：/ Program Files / gs / gs9.05 / bin / gswin32c.exe＆＃34;）。

作者说你应该＆＃34;调整路径以匹配你的Ghostscript的安装，＆＃34;见下面的引用

  

首先，如果您正在运行Windows，您可能需要告诉它Ghostscript程序的位置，以嵌入字体。 （请参阅下面的Windows安装说明。）

     

仅在Windows上需要 - 每个R会话运行一次

# Adjust the path to match your installation of Ghostscript
Sys.setenv(R_GSCMD = "C:/Program Files/gs/gs9.05/bin/gswin32c.exe")
As the name suggests, embed_fonts() will embed the fonts:

embed_fonts("font_plot.pdf", outfile="font_plot_embed.pdf")
embed_fonts("font_ggplot.pdf", outfile="font_ggplot_embed.pdf")
# If outfile is not specified, it will overwrite the original file

问题是如何找到路径？我试着粘贴它，但这不起作用。

以下是我的代码：

library("ggplot2")
library(extrafont)
font_import()
fonts()
loadfonts()  #everything works up to this point

Sys.setenv(R_GSCMD = "C:/Program Files/gs/gs9.05/bin/gswin32c.exe") 

embed_fonts("font_plot.pdf", outfile="font_plot_embed.pdf")
embed_fonts("font_ggplot.pdf", outfile="font_ggplot_embed.pdf")



Poverty.f1<- ggplot(mydt, aes(Year , Pov1))
Poverty.f1 + geom_point(color = "blue") + my_theme() +
  ggtitle('Poverty Over Time') + 
  labs(x="Year", y= "Poverty Headcount Ratio at 1 Dollar a Day") + 
  scale_x_continuous(breaks=seq(1985, 2012, 3)) 
  stat_smooth(method = "lm") 
ggsave("Fig_Poverty_f1.pdf")

我在my_theme（）中使用的字体是Palatino Linotype，它在Rstudio查看器中工作，但在保存的PDF文件中不起作用。