Eu estou usando ggplot e tenho dois gráficos que eu quero exibir em cima uns dos outros. eu useigrid.arrange de gridExtra para empilhá-los. O problema é que quero que as arestas esquerdas dos gráficos se alinhem, assim como as arestas direitas, independentemente dos rótulos dos eixos. (o problema surge porque os rótulos de um gráfico são curtos enquanto o outro é longo).

A questão:
Como posso fazer isso? Eu não sou casado com grid.arrange mas o ggplot2 é uma obrigação.

O que eu tentei:
Eu tentei jogar com larguras e alturas, bem como ncol e nrow para fazer uma grade de 2 x 2 e colocar o visual em cantos opostos e, em seguida, jogar com as larguras, mas eu não conseguia o visual em cantos opostos.

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)