水平线的调整在xtableList

Question

我正在使用漂亮的xtable包来创建通过Rmarkdown转换为PDF的乳胶表。要在列名后面的水平线上，以下工作正常：

tt <- diag(5)

print(xtable(tt),hline.after=0)

为了解释列和行，我想在表格下面添加一些文字。但是，如果我按照建议here使用xtableList，则调整水平线不再有效。

ttlist <- list(tt)

attr(ttlist, "message") <- c("Rows contain x", "Colums contain y")

print(xtableList(ttlist),hline.after=0)

对于如何让xtableList在除c（-1,0，nrow（x））的默认值之外的其他地方绘制水平线，我会非常高兴。

Answer 1

如果您打开使用其他套餐（例如我的！），请尝试：

library(huxtable)
ht <- as_hux(diag(5))
bottom_border(ht)[1,] <- 1
ht <- add_footnote(ht, "Rows contain x, columns contain y") # for example