Я хотел бы удалить большой интервал, который по умолчанию вставляется между графиками и таблицей в grid.arrange, как показано в MWE ниже:

require(ggplot2)
require(gridExtra)

list1=data.frame(mtcars[1:3, ])  # Dummy data
p1 = ggplot(list1, aes(mpg,cyl)) + geom_point()  # Dummy plot
p2 = ggplot(list1, aes(disp,hp)) + geom_point()  # Dummy plot
plots <- arrangeGrob(p1, p2,nrow=2)

table <- tableGrob(list1)
grid.arrange(plots, table)

Я подозреваю, что это происходит из-за tableGrob, но я не смог найти никакого ответа на этот вопрос.

Заранее спасибо!