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

Question

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

有没有一个变通的方法，也许另一对函数可以帮助我呢？

编辑:这是我正在尝试做的一个例子：

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

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

Answer 2

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

# requires gtable
library(devtools) 
source_gist(2013903)

​

​

Answer 3

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