如何使用 knitr 和 xtable 旋转表格左边距名称？

Question

我正在尝试使用 knitr 和 xtable 将 table 命令的结果很好地打印在 pdf 上。

作为一个玩具示例，假设我想要使用创建的表

表(c(2,5,5,5,5,7,7,7,7,NA),c(1,5,2,2,2,2,7,7,NA,NA) )

我想得到这样的东西：

如您所见，var1 逆时针旋转了 90 度。
我怎么才能得到它？ 类似的结果，行更少或更多也可以。

我正在尝试我发现的不同方法。
我已经创建了这个 Rnw 文件，

\documentclass{article}
\usepackage{booktabs}
\usepackage{rotating}
\begin{document}

<<r table, results='asis', echo=FALSE>>=
library(knitr)
library(xtable)
var1 <- c(2,5,5,5,5,7,7,7,7,NA)
var2 <- c(1,5,2,2,2,2,7,7,NA,NA)

print(xtable(table(var1,var2)))

print.xtableFtable(xtableFtable(ftable(var1,var2), 
       method = "row.compact"))

print.xtableFtable(xtableFtable(ftable(var1,var2), 
       method = "row.compact"), rotate.rownames = TRUE)

print.xtable(xtable(table(var1,var2)), include.rownames=T,include.colnames=T)

@

\end{document}

您可以在下面看到我尝试过的三种方法的结果。

我无法得到预期的结果。

任何其他通用包或kable的解决方案也可以。

我想这可以用 \rotatebox{90} 来完成，但我不知道如何强制 xtable 使用它，也不知道如何告诉 xtable 将左侧标题放在左侧而不是就在右上角。

Answer 1

这是一种可能性。免责声明：我是包作者。

library(huxtable) 
var1 <- c(2,5,5,5,5,7,7,7,7,NA)
var2 <- c(1,5,2,2,2,2,7,7,NA,NA)
tbl <- table(var1 = var1, var2 = var2)

ht <- as_hux(tbl)
ht <- cbind(rep('', 4), ht)

ht[2,1] <- 'var1'

ht <- rbind(rep('', 6), ht)
ht[2,2] <- '' # get rid of "rownames"
ht[1,3] <- 'var2'
colspan(ht)[1,3] <- 4
rowspan(ht)[3, 1] <- 3
rotation(ht)[3, 1] <- 90
right_border(ht)[,2] <- 1
bottom_border(ht)[5, -1] <- 1
bottom_border(ht)[2, -1] <- 1
ht

在 rmarkdown PDF 文档中使用时，会产生：