Lewe wyrównanie dwóch krawędzi wykresu (ggplot)

Używam ggplot i mam dwa wykresy, które chcę wyświetlać jeden na drugim. użyłemgrid.arrange od gridExtra do ich układania. Problem polega na tym, że chcę, aby lewe krawędzie wykresów były wyrównane, a także prawe krawędzie, niezależnie od etykiet osi. (problem pojawia się, ponieważ etykiety jednego wykresu są krótkie, a drugie długie).

Pytanie:
Jak mogę to zrobić? Nie jestem żonaty z grid.arrange, ale ggplot2 jest koniecznością.

Co próbowałem:
Próbowałem grać na szerokościach i wysokościach, a także ncol i nrow, aby utworzyć siatkę 2 x 2 i umieścić wizualizacje w przeciwległych rogach, a następnie zagrać z szerokościami, ale nie mogłem uzyskać efektów wizualnych w przeciwnych rogach.

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 
grid.arrange(A, B, ncol=1)

questionAnswers(8)

yourAnswerToTheQuestion