在乳胶中使用 kable 向分组行的行名添加上标时缩进受到干扰
Indenting disturbed when adding superscript to rowname of a grouped row using kable in latex
如何在 latex 环境( link 中使用 kable 创建的 table 的特定行的名称添加上标给出降价的解决方案)。我试过以下:
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
我通常不使用 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)))
为了加上标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)
输出为:
如何在 latex 环境(
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
我通常不使用 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)))
为了加上标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)
输出为: