在 RMarkdown 中将 kable 编织为 PDF，其中包含表值中的特殊字符答案

【问题标题】：Knit a kable to PDF in RMarkdown that includes special characters in the table values在 RMarkdown 中将 kable 编织为 PDF，其中包含表值中的特殊字符
【发布时间】：2021-03-03 01:24:57
【问题描述】：

我正在尝试格式化包含 permyriad 符号“‱”的 kable。 Permyriad 意味着每 10,000 人中有 1 人，因此 1‱ = 0.01%。

我可以让它与特殊字符 σ 一起使用，如下面的屏幕截图和代码所示。正在寻找一种将“σ”替换为“‱”的方法。

我很确定 what_should_this_be、should_i_escape_or_not 和 id_like_to_use_booktabs 三个变量的神奇组合可以解决问题。

我正在使用 tinytex 包在 RStudio 中执行此操作。

这是我迄今为止尝试过的：

变量what_should_this_be 的确切值导致在最终pdf 中编织‱ 符号。 “‱”的 Unicode 值为 U+2031。

我尝试过的价值观：
- "\textperthousand" 的组合与不同数量的转义，有和没有括号，有和没有打开和关闭 $
- 直接复制粘贴 ‱ 符号并使用不同数量的转义符
- "\U2031" 具有不同数量的转义
should_i_escape_or_not 设置为TRUE 或FALSE 的各种组合。
我想使用 booktabs...但这可能要求有点高，所以我尝试了各种组合，将 id_like_to_use_booktabs 设置为 TRUE 或 FALSE。
在 RStudio > Tools > Sweave 中设置“Typeset LaTeX into PDF using:”选项的各种组合

    ```{r, echo = FALSE}

    library(magrittr)

    what_should_this_be     <- "$\\sigma$"
    should_escape_or_not    <- FALSE
    id_like_to_use_booktabs <- TRUE

    knitr::kable(
      head(mtcars) %>%
        dplyr::select(mpg) %>%
        tibble::rownames_to_column("car") %>%
        dplyr::mutate(mpg = paste0(mpg, what_should_this_be)),
      align     = "cc",
      escape    = should_escape_or_not,
      booktabs  = id_like_to_use_booktabs,
      caption   = "Works with character $\\sigma$, but what about permyriad?"
    )

    ```

【问题讨论】：

标签： r-markdown rstudio knitr kable tinytex

【解决方案1】：

可以使用textcomp 包和\textpertenthousand

---
output:
  pdf_document:
    latex_engine: xelatex
header-includes:
  - \usepackage{textcomp}
---

```{r, echo = FALSE}
  library(magrittr)
  what_should_this_be     <- "\\textpertenthousand"

  knitr::kable(
    head(mtcars) %>%
      dplyr::select(mpg) %>%
      tibble::rownames_to_column("car") %>%
      dplyr::mutate(mpg = paste0(mpg, what_should_this_be)),
    align     = "cc",
    escape    = F,
    booktabs  = T,
    caption   = "Works with character $\\sigma$, but what about permyriad?"
  )
```

【讨论】：