在grid.arrange和ranginggrob中对齐图形

Question

我使用以下代码在一张图中排列了8张图，显示了洪水事件期间8种重金属的浓度：

p_all<-grid.arrange(arrangeGrob(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"),
                         ncol = 2,
                         left = textGrob(label=expression(paste('mg'~g^-1~'Trockenmasse')), rot = 90, vjust = 1),
                         right = textGrob(label = "W (m)", rot=270, vjust =1.5)), 
             legend, 
             ncol=1, heights=c(15,1))

结果如下：

如何确保所有绘图板具有相同的尺寸，以便对齐。我不能使用facet_wrap，因为我有一个辅助轴，并且由于金属的比例不同，因此无法针对每种金属在facet_wrap中调整辅助轴。