将上标添加到表格的一个单元格中，表格格式为kable/kableExtra，用于Rmarkdown

我在一个表格中有一个脚注，格式为kable和kableExtra，用于生成Rmarkdown pdf。我需要纽约市的上标（

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

df%
kable_样式（引导选项=c（“悬停”），
全宽=F，
字体大小=12，
position=“left”）%>%
脚注（编号=c（“2017年数据缺失”））

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

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

库（kableExtra）
图书馆（stringr）
df%
脚注（编号=c（“2017年数据缺失”））
knitr:：asis_输出（str_replace（tmp，“HACKIT”，“$^{1}$”）

谢谢，如果我在创建df时将

纽约

替换为

“NYC^1^”

，但只有在我从kable调用中删除format=“latex”）时，我才能让它工作。不幸的是，这意味着我也不能使用kable_样式。我尝试使用

df[1,1]这非常有效（我尝试将
$^{1}$
插入原始df，而不是在调用kable之后）。谢谢