2

根据这篇文章中的建议，我正在尝试将衬线字体（或“字体系列”）安装到 R 中，以便可以将 ggplots 保存为 .eps 文件。尽管提供的建议有效，但我想尝试解决该问题以供将来使用。

这是生成问题的代码。

library(bayesplot)
df <- data.frame(xVar = rnorm(1e4,0,1), yVar = rnorm(1e4,2,1), zVar = rnorm(1e4,4,1))
t <- bayesplot::mcmc_trace(df) 
t

在此处输入图像描述

现在当我去保存这个数字时，我得到了这个错误

ggplot2::ggsave(filename = "tPlot.eps", 
                plot = t, 
                device = "eps", 
                dpi = 1200, 
                width = 15,
                height = 10, 
                units = "cm")

哪个抛出错误

Error in grid.Call(C_stringMetric, as.graphicsAnnot(x$label)) : 
  family 'serif' not included in postscript() device

在上一篇文章中，回答者建议我下载extrafont包。

我跑了

View(fonttable())

但是似乎没有安装衬线字体。

然后我尝试了

font_addpackage(pkg = "serif")

但我得到了错误

Error in font_addpackage(pkg = "serif") : 
  Unknown font package type: not type1 or ttf.

有谁知道如何安装衬线字体以便 R 可以识别/使用它？

4

1 回答 1

2

使用软件包extrafont，必须先安装字体，然后才能将其提供给用户。这是通过 function 完成的font_import。

library(extrafont)

font_import()    # This takes several minutes

现在我们可以看到安装和可用的字体是什么。从文档中，help("fonts").

描述

显示在字体表中注册的字体（并且可用于嵌入）

fonts_installed <- fonts()

serif1 <- grepl("serif", fonts_installed, ignore.case = TRUE)
sans1 <- grepl("sans", fonts_installed, ignore.case = TRUE)

fonts_installed[serif1 & !sans1]

sum(serif1 & !sans1)
#[1] 458

有 458 种字体可用。
查看字体表的另一种方法是使用函数fonttable，但返回的字体不一定可用于嵌入。从help("fonttable").

描述

返回完整的字体表

请注意，该函数返回一个数据帧，因此调用str下面（省略输出）。

df_font <- fonttable()
str(df_font)

serif2 <- grepl("serif", df_font$FontName, ignore.case = TRUE)
sans2 <- grepl("sans", df_font$FontName, ignore.case = TRUE)

df_font$FontName[serif2 & !sans2]

最后看看绘图功能是否在 postscript 设备上工作。

library(bayesplot)

df <- data.frame(xVar = rnorm(1e4,0,1), yVar = rnorm(1e4,2,1), zVar = rnorm(1e4,4,1))
p <- bayesplot::mcmc_trace(df)
p

ggplot2::ggsave(filename = "tPlot.eps", 
                plot = p, 
                device = "eps", 
                dpi = 1200, 
                width = 15,
                height = 10, 
                units = "cm")
于 2019-08-15T10:35:21.297 回答