在使用乳胶中的kable将上标添加到分组行的rowname时,缩进受到干扰

时间:2018-05-05 04:58:16

标签: r latex knitr sweave

如何在 latex 环境中为使用kable创建的表格的特定行的名称添加上标(this链接为markdown提供解决方案)。我试过以下:

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

但这不起作用。

  

For image of result click this

编辑: 第一个问题是用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)
  

New Result image

2 个答案:

答案 0 :(得分: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)

输出为:

enter image description here

答案 1 :(得分:0)

我通常不使用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)))

enter image description here