r - 有没有办法将 gplots::textplot 与 tables::tabular 一起使用？

Question

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

是否有解决方法，也许是另一对可以帮助我的函数？

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

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

(tabular的调用会越来越复杂，目前正在一步步学习中...)

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

编辑2:这是公认的解决方案:

textplot(capture.output(tab))

Answer 1

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