Нарушение отступа при добавлении верхнего индекса к имени строки сгруппированной строки с использованием kable в латексе

Question

Как добавить верхний индекс к имени определенной строки таблицы, созданной с использованием kable в latex среде ( эта ссылка дает решение для уценки). Я попробовал следующее:

at2=cbind(1:5,6:10,11:15)
rownames(at2)=c("one", "two", "three", "four$^1$", "five")
kable(at2,format = "latex",booktabs=T)

Но это не работает.

Чтобы увидеть результат нажмите здесь

EDIT: Первая проблема решена с помощью escape = FALSE, но теперь появилась новая проблема, связанная с отступом. Я использую group_rows, который автоматически создает отступ. Использование escape создает проблему с этим отступом. Код:

at2=cbind(1:5,6:10,11:15)
rownames(at2)=c("one", "two", "three", "four$^1$", "five")
kable(at2,format = "latex",booktabs=T,escape = FALSE,col.names = month.abb[1:3])%>%
 group_rows("group1",1,2)%>%
 group_rows("group2",3,5)

Новое изображение результата

Answer 1

Для добавления верхнего индекса footnote_marker_number должно быть удобно

library(knitr)
library(kableExtra)
library(dplyr)

#sample data
at2 <- cbind(1:5, 6:10, 11:15)
rownames(at2) <- c("one", "two", "three", paste0("four", footnote_marker_number(1, "latex")), "five")

kable(at2, format = "latex", escape = F, col.names = month.abb[1:3]) %>%
  group_rows("group1", 1, 2) %>%
  group_rows("group2", 3, 5)

Вывод:

Answer 2

Я обычно не использую kable, но я нашел решение вашей проблемы с пакетом xtable.

library(xtable)
print(xtable(at2, auto = T), type='latex', sanitize.text.function=identity,
 comment=FALSE, include.colnames = F,hline.after = c(0,nrow(at2)))