r - grid.arrange のプロットとテーブルの間の空白を削除します

Question

以下の MWE に示すように、デフォルトで grid.arrange のプロットとテーブルの間に挿入される大きな間隔を削除したいと思います。

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 が原因であると思われますが、この問題を扱う答えが見つかりませんでした。

前もって感謝します！

Answer 1

grid.arrange()デフォルトでは、各セルに等しいスペースが割り当てられます。特定のグロブにぴったり合わせたい場合は、そのサイズを照会し、明示的に渡す必要があります。

library(grid)
th <- sum(table$heights) # note: grobHeights.gtable is inaccurate
grid.arrange(plots, table, heights = unit.c(unit(1, "null"), th))