在底部使用grid.arrange和legend时x轴位置不同的问题

Question

我必须将两个具有相同轴的绘图彼此相邻排列，并使用ggplot2和grid.arrange进行此操作。由于表示更加整洁，因此必须将图例放在底部。不幸的是，有时左图的图例条目比右图更多，因此需要第二行，从而在不同的y位置产生x轴。因此，它不仅看起来不整洁，而且无法满足比较这些图的目的。

有人可以帮忙吗？

plot_left <- some_ggplot2_fct(variable,left) + 
  theme(legend.position = "bottom")+ 
  theme(legend.background = element_rect(size = 0.5, linetype="solid", colour ="black"))

plot_right <- some_ggplot2_fct(variable,right,f)+ 
  theme(legend.position = "bottom")+ 
  theme(legend.background = element_rect(size = 0.5, linetype="solid", colour ="black"))

# adjust y axis for more easy compare
upper_lim <- max(plot_Volume_right$data$value, plot_Volume_left$data$value)
lower_lim <- min(plot_Volume_right$data$value, plot_Volume_left$data$value)
plot_Volume_left <- plot_Volume_left + ylim(c(lower_lim, upper_lim))
plot_Volume_right <- plot_Volume_right + ylim(c(lower_lim, upper_lim))

# Arrange plots in grid
grid.arrange(plot_Volume_left, plot_Volume_right,
             ncol = 2, 
             top = textGrob(strTitle, 
                            gp = gpar(fontfamily = "Raleway", fontsize = 15, font = 2)))

在图片中您可以看到结果：

您现在是否可以在不进行太多代码更改的情况下轻松解决此问题？ （基础框架很大）