更改字体后，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），然后将其安装在您的操作系统上。

如果您不知道如何执行此操作，只需在Google上搜索（例如“安装额外的字体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放在我的项目文件夹中-但我认为您也可以给它另一个路径。