R: gridExtra - 如何将摘要绘制为表格？

Question

我在绘制简单摘要时遇到问题。

library(gridExtra)
SummaryTable <- summary(s.tvs$precio.nuevo)
grid.table(SummaryTable)

给我这个:

我想实现这样的目标:

Answer 1

升级评论:

grid.table 调用 tableGrob。

grid.table
#function (...) 
#grid.draw(tableGrob(...))
#<environment: namespace:gridExtra>

从 ?tableGrob 开始，它的第一个参数是矩阵或 data.frame。 t 将 summary 返回的命名向量强制转换为一维矩阵。或者，您可以使用 as.matrix 来生成具有一列的矩阵。

grid.newpage()
grid.table(t(summary(mtcars$mpg)))

grid.newpage()
grid.table(as.matrix(summary(mtcars$mpg)))

来自评论:

问题:我正在尝试绘制条形图和此答案中生成的表格。我得到:此代码:grid.arrange(a, tbl, ncol = 1)

要使用 grid.arrange 组合不同的表/图，它们需要是 grobs(网格 GRaphcal 对象)。因此，您不能将结果从 grid.table 传递到 grid.arrange，因为它不是 grob(它实际上直接绘制了 tableGrob)。为此，您需要传递 tableGrob。

例如:

mybar <- qplot(mtcars$mpg, geom="bar")
tbl <- tableGrob(t(summary(mtcars$mpg)))
grid.newpage()
grid.arrange(mybar, tbl)