Ich möchte den großen Abstand entfernen, der standardmäßig zwischen den Diagrammen und der Tabelle in einem grid.arrange eingefügt wird, wie in der folgenden MWE gezeigt:

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)

Ich vermute, dass dieses Verhalten auf den tableGrob zurückzuführen ist, aber ich konnte keine Antwort auf dieses Problem finden.

Danke im Voraus