将上标添加到使用 kable / kableExtra for Rmarkdown 格式化的表格的一个单元格

Question

我在用 kable 和 kableExtra 格式化的表格中有一个脚注，用于 Rmarkdown 生成的 pdf。我需要 NYC 有上标 ( NYC^1) 来指向脚注，但不知道该怎么做。有什么建议么？

df <- data.frame(city=c("NYC","LA","CHI","MIA"),
                 score=sample(1:100, 4, replace=T))

library(kableExtra)
library(kable)

kable(df, 
      digits = 2,
      format = "latex",
      align="c",
      row.names = FALSE,
      booktabs=T) %>%
  kable_styling(bootstrap_options = c("hover"),
                full_width = F,
                font_size = 12,
                position = "left") %>%
  footnote(number = c("2017 data missing"))

Answer 1

我没有给你一个优雅的答案。这是一种通过替换生成的乳胶字符串中的字符串来破解它的方法。

library(kableExtra)
library(stringr)

df <- data.frame(city=c("NYCHACKIT","LA","CHI","MIA"),score=sample(1:100, 4, replace=T))

tmp <- knitr::kable(df,  
      digits = 2,
      format = "latex",
      align="c",
      row.names = FALSE,
      booktabs=T) %>%
  kable_styling(bootstrap_options = c("hover"),
                full_width = F,
                font_size = 12,
                position = "left") %>%
  footnote(number = c("2017 data missing"))

knitr::asis_output(str_replace(tmp, "HACKIT", "$^{1}$"))