将底轴与拼凑对齐？

Question

My problem is similar to this one: How to left-align faceted-plots with patchwork? . I'm trying to align the bottom axes in patchwork. My actual plot is a lot more complex than this MWE-- I've tried facet_wrap, ggarrange, and cowplot, and patchwork gets the closest to what I want by far. I'm so close to getting this right so any help would be really appreciated!

require(ggplot2)
require(patchwork)

g1 <- ggplot() + 
  geom_point(aes(x = sort(rnorm(100)), y = sort(rnorm(100)))) + 
  geom_abline(slope = 1, linetype = 'dashed') + 
  coord_fixed()
g2 <- ggplot() + 
  geom_point(aes(x = sort(rnorm(100)), y = 2*sort(rnorm(100)))) + 
  geom_abline(slope = 1, linetype = 'dashed') + 
  coord_fixed()
(g1 + g2) + plot_layout(widths = c(1,1))

Answer 1

If coord_fixed() is removed, then it works fine with ggarrange function of ggpubr package

require(ggplot2)
library(ggpubr)

g1 <- ggplot() + 
  geom_point(aes(x = sort(rnorm(100)), y = sort(rnorm(100)))) + 
  geom_abline(slope = 1, linetype = 'dashed') 

g2 <- ggplot() + 
  geom_point(aes(x = sort(rnorm(100)), y = 2*sort(rnorm(100)))) + 
  geom_abline(slope = 1, linetype = 'dashed') 

ggarrange(g1, g2, ncol = 2)