有没有办法使用gplots :: textplot with tables :: tabular？

Question

我想将一个漂亮的格式化表格打印到图形设备上。我知道有textplot()，但似乎不支持tabular()包中的tables函数，我用它来组装我的表。

是否有解决方法，也许还有另外一对可以帮助我的功能？

编辑： 这是我想要做的一个例子：

dat <- data.frame(
    id=paste("id", 1:10), 
    loc=sample(c("north", "south"), 10, replace=TRUE), 
    val1=rnorm(10), 
    val2=rnorm(10)
)
tab <- tabular(id + 1 ~ (val1 + val2)*loc*sum, data=dat)
#textplot(tab) # won't do it

（对表格的调用将变得更加复杂，我目前正在逐步学习它......）

任何暗示都表示赞赏！我现在正在考虑将text与等宽字体一起使用，但也许有更好的东西？

EDIT2： 这是公认的解决方案：

textplot(capture.output(tab))

Answer 1

您可以将capture.output与tabular输出的打印格式一起使用，然后将结果传递给textplot。或者您可以将表格的结果转换为矩阵并将其传递给plotrix包中的addtable2plot函数。

Answer 2

我一直致力于更新gridExtra::grid.table，以支持tabular()的基本功能。你可以尝试一下：

# requires gtable
library(devtools) 
source_gist(2013903)

Answer 3

我知道唯一可能接受LaTeX输入的图形设备是tikzDevice::tikz。您可能希望包含要发送到tables::tabular的代码，我们可以看到输出是否自然处理。