如何使用R中的kableExtra:：kable（）函数在标题中正确显示脚注标记

我想使用R中的

kableExtra

包中的

kable（）

，使用

footnote\u marker\u number（）

函数向标题项添加脚注标记，特别是通过上面的

add\u header\u（）

函数。在这种特定情况下，文档指定将

double\u escape

参数设置为

TRUE

。我已经这样做了，但我无法使表格正确显示脚注标记。以下是我尝试的一个可复制的示例：

library(tidyverse)
library(kableExtra)

kw0 <- paste0("test",footnote_marker_number(1,double_escape = T))

mtcars %>%
  kbl("html",escape=F,booktabs=T) %>%
  add_header_above(header = c(" " = 6,
                   setNames(6,kw0))) %>%
  footnote(number = c("test"))

库（tidyverse）
图书馆（kableExtra）
kw0%
kbl（“html”，escape=F，booktabs=T）%>%
在上面添加标题（标题=c（“”=6，
集合名（6，kw0））%>%
脚注（编号=c（“试验”））

---

我希望看到标记的正确显示，相反，我在表中看到

test1

。我在这里研究了有关堆栈溢出（）的类似问题，但这并没有解决问题。希望您能提供指导。

您需要将

escape=FALSE

添加到上述

add_header_

参数中

以下是解决方案：

library(tidyverse)
library(kableExtra)

kw0 <- paste0("test",footnote_marker_number(1, double_escape = T))

mtcars %>%
  kbl("html",escape=F,booktabs=T) %>%
  add_header_above(header = c(" " = 6,
                              setNames(6,kw0)), escape = F) %>%
  footnote(number = c("test"))

库（tidyverse）
图书馆（kableExtra）
kw0%
kbl（“html”，escape=F，booktabs=T）%>%
在上面添加标题（标题=c（“”=6，
集合名（6，kw0）），转义=F）%>%
脚注（编号=c（“试验”））

-输出