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

Из комментариев:

Вопрос: Я пытаюсь построить в barplot и таблицы, генерируемой в этом ответе. Я получаю: 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, так как это не гроб (он фактически отображает tableGrob). Для этого вам необходимо пройти tableGrob.

Так, например:

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