在gtable图中强制相等边距

Question

我想用gtable绘制大小相等的地块网格。我首先为每行创建一个绘图列表，然后将该列与：

col_list = list()
for (j in c(1:n_col)){
  col_list[[j]] = do.call(rbind, c(row_list[[j]], size="last"))
}
g = do.call(cbind, c(col_list, size="last"))
grid.draw(g)

其中每个row_list包含一个ggplotGrob图。有些绘图对标题和x轴标签具有条件格式。

不幸的是，在绘制图像时，我挤压了底部的图：

谢谢！