RMarkdown - 使用 kable 的表格中的不同字体类型？

我正在使用 RMarkdown 生成 pdf 文档。是否可以使用 kable_styling 更改表格中的字体类型？如果没有，您能推荐其他包吗？

library(dplyr)
library(kableExtra)

kable(mtcars, align = "c", booktabs = TRUE) %>% 
  kable_styling(font_size = 12) %>% 
  row_spec(0, bold = T, color = "white", background = "gray")

这有点棘手，因为在 LaTeX 中更改字体很棘手。我没有 Segoe UI 字体（这是 Windows 字体，对吧？），但这里有一些适合我的字体，可以在 MacOS 中进行不同的字体更改。

首先，您需要使用xelatex乳胶引擎。 （你可能可以使用pdflatex，但命令会有所不同，我不知道它们。）

其次，您需要定义一个命令来切换到您想要的字体。在下面的代码中我称之为\comicfont并将其设置为切换到 Comic Sans MS。

第三和第四，您需要定义环境来生成这种字体的表格。您需要两个环境，具体取决于您是否希望表内联（ctable) 或带有标题的浮动 (capctable).

然后，当您希望表格采用新字体时，您可以设置table.envir相应环境的名称。它被设置在kable_styling()对于内联表和kable用于浮动桌子。这是一个对我有用的例子：

---
title: 'Untitled'
output: 
  pdf_document:
    latex_engine: xelatex
header-includes:
  - \newfontfamily\comicfont[Path=/Library/Fonts/]{Comic Sans MS}
  - \newenvironment{ctable}{\comicfont }{}
  - \newenvironment{capctable}[1][t]{\begin{table}[#1]\centering\comicfont}{\end{table}}
---

```{r}
library(knitr)
library(kableExtra)
kable(head(mtcars), booktabs=TRUE, align = "c") %>% 
  kable_styling(table.envir="ctable", font_size=12) %>%
  row_spec(0, bold = T, color = "white", background = "gray")
kable(head(mtcars), booktabs=TRUE, align = "c", 
      caption = "This table floats", table.envir = "capctable") %>% 
  kable_styling(font_size=12) %>%
  row_spec(0, bold = T, color = "white", background = "gray")
```

这个帖子https://tex.stackexchange.com/a/63975 https://tex.stackexchange.com/a/63975给出了一个 Windows 上的示例，可能会有帮助。

编辑添加：table.envir参数为kable_styling是一个相当新的补充；你应该确保你有最新版本kableExtra安装。