如何使用 R 中的 kableExtra::kable() 函数在 header 中正确显示脚注标记

Question

我想使用 R 中 kableExtra 包中的 kable() 通过 footnote_marker_number() 函数向 header 项添加脚注标记，特别是通过 add_header_above()函数。在这种特定情况下，文档指定 double_escape 参数设置为 TRUE。我已经这样做了，但是我无法让 table 正确显示脚注标记。这是我尝试过的可重现示例：

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"))

我希望看到标记的正确显示，相反，我在 table 中看到了 test<sup>1</sup>。我在 Stack Overflow (kableExtra: Dynamic add_header_above labeling) 上看过类似的问题，但这并没有解决问题。非常感谢对此的任何指导。

Answer 1

您需要将 escape = FALSE 添加到 add_header_above 参数。

解决方法如下：

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"))

-输出

如何使用 R 中的 kableExtra::kable() 函数在 header 中正确显示脚注标记

How to correctly display footnote marker in header using kableExtra::kable() function in R

r

knitr

r-markdown

kableextra