如何將匕首符號包含到 kable 列中 header

Question

我在 Rmd 文件中有一張表要打印到 pdf，其中我需要在列 header 中添加一個匕首符號。基本測試代碼是：

---
title: "Untitled"
author: "L. G. Hunsicker"
date: "4/29/2022"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = F)
library(magrittr)
library(knitr)
library(kableExtra)
```

```{r test}
df <- data.frame(x = 1:10)
names(df)[1] <- 'maxCpep (ng/mL) &#x2020;' 
df %>% kbl()

```

我嘗試了幾種方法來打印匕首符號，但每一次努力，結果都是匕首符號的代碼只是打印為文本或引發錯誤（使用反斜杠）。 我試過使用 bquote、\dagger、\dagger 等。我還嘗試使用上標“a”作為替代。 同樣，kbl 只打印文字代碼文本，而不替換所需的符號。 必須有一種直接的方法可以將特殊字符或數學字符串插入 kable header，但我一直找不到。
在此先感謝您對此問題的任何幫助。 拉里·亨西克

Answer 1

可以直接加個Unicode轉義：

df <- data.frame(x = 1:10)
names(df)[1] <- 'maxCpep (ng/mL) \u2020' 
df %>% kbl()

Answer 2

使用intToUtf8獲取特殊字符。

names(df)[1] <- paste('maxCpep (ng/mL)', intToUtf8(8224))