r - 使用Extrafont程序包检索Windows字体后，Fonts表仍然为空

Question

为了将字体名称为Calibri的ggplots保存到pdf文件中，我尝试使用extrafont包，以便能够在ggplot2中使用此字体类型。

这些是我采取的步骤：

font_import()

获得所有字体后（在此过程中似乎没有什么错），我得到了这个错误：

Scanning afm files in <<library path>>/extrafontdb/metrics
Error in if (grepl("Bold", weight)) { : argument is of length zero

以及以下错误：

Warning messages:
1: In readLines(srcfile) :
  invalid input found on input connection 'C:<<path>>\AppData\Local\Temp\26\RtmpANG4o2/fonts/ahronbd.afm'
2: In readLines(srcfile) :
  incomplete final line found on 'C:<<path>>\AppData\Local\Temp\26\RtmpANG4o2/fonts/ahronbd.afm'

etc. 

当我运行此代码时：

loadfonts()
fonts()

输出是NULL

当我尝试使用ggsave()将ggplot保存为pdf时，错误提示：

Error in grid.Call.graphics(L_text, as.graphicsAnnot(x$label), x$x, x$y,  : 
  invalid font type

我猜最后一个错误并不令人惊讶，因为字体表似乎是空的。

这里出了什么问题以及如何解决这个问题？

编辑我以为我找到了解决方案。当我使用loadfonts(device="win")代替loadfonts()时，一切似乎一开始都很顺利，但是我错了。 fonts()仍然为空。

Answer 1

对于任何恼怒的搜索，我在Windows上都遇到了同样的问题，并使用以下方法解决了该问题：

font_import(paths = "C:/Path_to_font")

现在，fonts()应该填充。我在字体预览和相关设置中找到了字体的路径，然后单击相关字体。大概您的大多数字体都在同一位置。