在 rmarkdown 文档中的 ggplot2 图表中嵌入字体

Question

我想在 ggplot2 图表中使用非标准字体，然后将其嵌入到 rmarkdown 文档中，该文档被编织成 PDF。我目前的工作流程是在图表中指定字体，然后编织，然后在创建的 PDF 上运行 extrafonts::embed_fonts。我的问题是：我可以直接在 rmarkdown 文档中指定字体应该嵌入到输出的 PDF 中吗？

最小示例：

---
title: "Untitled"
output: beamer_presentation
---

```{r}
library(extrafont)
library(ggplot2)
loadfonts()
qplot(iris$Sepal.Length) + theme_light(base_family = "CM Roman")
```

knitr::knit2pdf("test.rmd")
embed_fonts("test.pdf")

Answer 1

如果将图形设备设置为 "cairo_pdf"，将嵌入字体。您可以使用 knitr::opts_chunk$set

对单个块或整个文档执行此操作

我在下面使用了一种非常明显不同的字体，以便清楚地看到字体确实被设置了。

包名为 "extrafont" 而不是 "extrafonts"

---
title: "Untitled"
output: beamer_presentation
---

```{r, echo=FALSE, message = FALSE}
knitr::opts_chunk$set(warning=FALSE, message=FALSE, echo = FALSE, dev = "cairo_pdf")
```

```{r}
library(extrafont)
library(ggplot2)
loadfonts()
```


##

```{r, fig.width = 5}
qplot(iris$Sepal.Length) + theme_light(base_family = "Vladimir Script")
```

在 rmarkdown 文档中的 ggplot2 图表中嵌入字体

Embedding fonts in ggplot2 charts in rmarkdown documents

fonts

r

ggplot2

knitr

r-markdown