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

Question

我无法绘制简单的摘要。

SummaryTable <- summary(s.tvs$precio.nuevo)
grid.table(SummaryTable)
re.findall(r'(b+ab+)+',mystring);

给我这个：

我想实现这样的目标：

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

来自评论：

问题： 我正在尝试绘制一个条形图和在这个答案中生成的表格。我在使用此代码时获得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组合不同的表/图，它们需要是grobs（网格GRaphcal OBjects）。因此，您无法将结果从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)