I realize that the align.plots function from the ggExtra package has been deprecated and removed. However, I am using my own version as it seems to
align.plots
ggExtra
To solve the problem using the align.plots method, specify respect=TRUE on the layout call:
respect=TRUE
grid_layout <- grid.layout(nrow=2, ncol=2, widths=c(1,2), heights=c(2,1), respect=TRUE)