更改字体后，RMarkdown 不会编织 ggplot2 绘图

Question

下图是在 R 中生成的（没有任何问题），使用以下代码：

library(tidyverse)
library(extrafont)
loadfonts()

x <- rexp(100)

data.frame(info = x) %>% 
ggplot() + 
geom_histogram(aes(x = info), col = "red", fill = "red", alpha = 0.5) +
theme_minimal() +
theme(text = element_text(family="LM Roman 10"))

如您所见，绘图的字体设置为“LM Roman 10”，感谢post，我能够做到这一点，它在 R 中完美运行。

但是，当我尝试使用 RMarkdown 将图像放置在 LaTeX 文档中时，出现以下错误：

Quitting from lines 10-22 (min_example.Rmd) 
Error in grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  : 
  invalid font type
Calls: <Anonymous> ... drawDetails -> drawDetails.text -> grid.Call.graphics
Además: There were 50 or more warnings (use warnings() to see the first 50)
Ejecución interrumpida
    

这是min_example.Rmd的代码

---
title: "Untitled"
author: "Javier Rojas"
date: "2/9/2020"
output: pdf_document
---


```{r, echo=FALSE}

library(tidyverse)
library(extrafont)
loadfonts()

x <- rexp(100)

data.frame(info = x) %>% 
ggplot() + 
geom_histogram(aes(x = info), col = "red", fill = "red", alpha = 0.5) +
theme_minimal() +
theme(text = element_text(family="LM Roman 10"))
```

我使用的是运行 macOS High Sierra 和 R 3.6.1 的 Mac 计算机

Answer 1

通常很容易解决。问题应该是，您的计算机中没有安装字体。

您必须下载字体的 .otf 文件，例如(https://fonts2u.com/lmroman10-regular.font) 并将其安装在您的操作系统上。

如果你不知道怎么做，就用谷歌搜索（例如“安装额外字体 Windows”），网上有很多教程。

-编辑- 我有点快 - 没有意识到问题只是来自于在 rmarkdown 中运行它。请尝试以下操作：

```{r, fig.showtext=TRUE, echo=FALSE}
library("tidyverse")
library("showtext")

x <- rexp(100)

font_add("LM Roman 10", regular = "lmroman10-regular.otf")

data.frame(info = x) %>% 
ggplot() + 
geom_histogram(aes(x = info), col = "red", fill = "red", alpha = 0.5) +
theme_minimal() +
theme(text = element_text(family="LM Roman 10"))
      
```

添加fig.showtext=TRUE、library("showtext") 和font_add("LM Roman 10", regular = "lmroman10-regular.otf") 很重要。

我刚刚将 .otf 放在我的项目文件夹中 - 但我认为您也可以给它另一个路径。