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

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)))

来自评论：

问题：我正在尝试绘制条形图和此答案中生成的 table 。我得到：Error in gList(list(grobs = list(list(x = 0.5, y = 0.5, width = 1, height = 1, : only 'grobs' allowed in "gList" 使用此代码时：grid.arrange(a, tbl, ncol = 1)

要使用 grid.arrange 组合不同的 tables / 图，它们需要是 grobs（网格图形对象）。所以你不能将结果从 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)

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

R: gridExtra - How to plot a Summary as table?

r

gridextra