r语言 - 将上标添加到表格的一个单元格中，该单元格的格式为 rmarkdown 的 kable / kableExtra

Question

我在用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"))

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