用Cowplot对齐多个图

Question

我有以下代码：

p_all<-plot_grid( p_as + theme(legend.position="none"), 
              p_cd + theme(legend.position="none"),
              p_cu + theme(legend.position="none"),
              p_pb + theme(legend.position="none"),
              p_ni + theme(legend.position="none"),
              p_zn + theme(legend.position="none"),
              p_hg + theme(legend.position="none"),
              p_cr + theme(legend.position="none"),
       align = 'v',
       hjust = 0,
       ncol = 2
)

p_all2<-plot_grid( p_all, legend_b, ncol = 1, rel_heights = c(6, .2))
p_all2

grid.arrange(arrangeGrob(p_all2, 
                     left = textGrob(label=expression(paste('mg'~g^-1~'Trockenmasse')), rot = 90, vjust = 1),
                     right = textGrob(label = "W (m)", rot=270, vjust =1.5)))

将产生以下图形：

我必须像使用sec_axis一样使用plot_grid在第二个y轴上显示水位。

我怎样才能使底部的最后2个图与其他图具有相同的大小。我知道差异在于尺寸是由于x轴造成的。是否有一种方法也可以通过使用axis.title.x = element_blank()和axis.ticks.x = element_blank()从最后两个图中删除x轴，然后将x轴添加到最后两个图正下方的单独行中？