更改R Markdown中的GGPLOT2字体：编织到PDF时失败（但在编织到HTML时不会）

Question

我有一个通过knitr，pandoc和latex将其编译到PDF的R Markdown文件。它包含使用GGPLOT2创建的几个数字。我想更改图中使用的字体以匹配用于主体文本的字体。

编织到HTML时，以下代码正常，即图形出现在轴上新罗马时出现。但是，在编织到PDF时会引发错误。

---
title: "Font test"
author: "Westcroft to Apse"
date: '2022-05-24'
output:
  pdf_document: default
  html_document:
    df_print: paged
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(dplyr)
library(ggplot2)

theme_set(theme_bw(base_family = "Times New Roman"))
```

```{r}
mtcars %>%
  ggplot(aes(x = wt, y = mpg)) +
  geom_point()
```

这是我尝试编织PDF时出现在“渲染”选项卡中的错误消息：

Line 21 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
In addition: There were 50 or more warnings (use warnings() to see the first 50)
Execution halted

如何解决此问题？

编辑：要明确，这不是关于使用时代新罗马的问题。实际上，这不是我要使用的字体。我只是在这里以此为例，说明了相同代码将如何呈现为HTML而不是对PDF。

Answer 1

您在使用Windows吗？如果是这样，问题在于R在您的参考文献中无法识别字体“ Times New Roman”。将名称更改为“ Serif”，以将新罗马作为情节的字体设置。

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(dplyr)
library(ggplot2)

theme_set(theme_bw(base_family = "serif"))
```

```{r}
mtcars %>%
ggplot(aes(x = wt, y = mpg)) +
geom_point()
```

根据此 post font“ font“ times new times new Roman”可访问为“ Serif”。您可以使用命令Windowsfonts（）：

$serif
[1] "TT Times New Roman"

$sans
[1] "TT Arial"

$mono
[1] "TT Courier New"