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

我想在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")

---

如果将图形设备设置为“cairo\u pdf”，则字体将嵌入。您可以使用

knitr:：opts\u 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")
```