Alinhar à esquerda duas arestas do gráfico (ggplot)

Estou usando o ggplot e tenho dois gráficos que quero exibir um sobre o outro. Usei grid.arrangedo gridExtra para empilhá-los. O problema é que eu quero que as bordas esquerdas dos gráficos se alinhem assim como as bordas 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 pergunta:
como posso fazer isso? Não sou casado com grid.arrange, mas o ggplot2 é obrigatório.

O que eu tentei:
tentei brincar com larguras e alturas, bem como ncol e nrow para fazer uma grade 2 x 2 e colocar os visuais em cantos opostos e, em seguida, brincar com as larguras, mas não consegui obter os visuais 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)

Tente isto,

 gA <- ggplotGrob(A)
 gB <- ggplotGrob(B)
 maxWidth = grid::unit.pmax(gA$widths[2:5], gB$widths[2:5])
 gA$widths[2:5] <- as.list(maxWidth)
 gB$widths[2:5] <- as.list(maxWidth)
 grid.arrange(gA, gB, ncol=1)

Editar

Aqui está uma solução mais geral (funciona com qualquer número de plotagens) usando uma versão modificada do rbind.gtableincluído emgridExtra

gA <- ggplotGrob(A)
gB <- ggplotGrob(B)
grid::grid.newpage()
grid::grid.draw(rbind(gA, gB))

Eu queria generalizar isso para qualquer número de parcelas. Aqui está uma solução passo a passo usando a abordagem de Baptiste:

plots <- list(A, B, C, D)
grobs <- list()
widths <- list()

colete as larguras para cada grob de cada parcela

for (i in 1:length(plots)){
    grobs[[i]] <- ggplotGrob(plots[[i]])
    widths[[i]] <- grobs[[i]]$widths[2:5]
}

use do.call para obter a largura máxima

maxwidth <- do.call(grid::unit.pmax, widths)

atribua a largura máxima para cada grob

for (i in 1:length(grobs)){
     grobs[[i]]$widths[2:5] <- as.list(maxwidth)
}

enredo

do.call("grid.arrange", c(grobs, ncol = 1))

Usando o pacote cowplot :

A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 

library(cowplot)
plot_grid(A, B, ncol=1, align="v")

Em http://rpubs.com/MarkusLoew/13295 está disponível uma solução realmente fácil (último item) Aplicada a este problema:

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.draw(rbind(ggplotGrob(A), ggplotGrob(B), size="first"))

você também pode usar isso para largura e altura:

require(ggplot2);require(gridExtra)
A <- ggplot(CO2, aes(x=Plant)) + geom_bar() +coord_flip() 
B <- ggplot(CO2, aes(x=Type)) + geom_bar() +coord_flip() 
C <- ggplot(CO2, aes(x=conc)) + geom_bar() +coord_flip()
D <- ggplot(CO2, aes(x=uptake)) + geom_bar() +coord_flip() 
grid.draw(cbind(
            rbind(ggplotGrob(A), ggplotGrob(B), size="first"),
            rbind(ggplotGrob(C), ggplotGrob(D), size="first"),
            size='first'))

O eggpacote envolve objetos ggplot em uma 3x3gtable padronizada , permitindo o alinhamento de painéis de plotagem entre ggplots arbitrários, incluindo os facetados.

library(egg) # devtools::install_github('baptiste/egg')
library(ggplot2)

p1 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
  geom_point() 

p2 <- ggplot(mtcars, aes(mpg, wt, colour = factor(cyl))) +
  geom_point() + facet_wrap( ~ cyl, ncol=2, scales = "free") +
  guides(colour="none") +
  theme()

ggarrange(p1, p2)

Aqui está outra solução possível usando meltdo pacote reshape2 e facet_wrap:

library(ggplot2)
library(reshape2)

dat = CO2[, c(1, 2)]
dat$id = seq(nrow(dat))
mdat = melt(dat, id.vars="id")

head(mdat)
#   id variable value
# 1  1    Plant   Qn1
# 2  2    Plant   Qn1
# 3  3    Plant   Qn1
# 4  4    Plant   Qn1
# 5  5    Plant   Qn1
# 6  6    Plant   Qn1

plot_1 = ggplot(mdat, aes(x=value)) + 
         geom_bar() + 
         coord_flip() +
         facet_wrap(~ variable, nrow=2, scales="free", drop=TRUE)

ggsave(plot=plot_1, filename="plot_1.png", height=4, width=6)

O pacote patchwork lida com isso por padrão:

library(ggplot2)
library(patchwork)

A <- ggplot(CO2, aes(x = Plant)) + geom_bar() + coord_flip() 
B <- ggplot(CO2, aes(x = Type)) + geom_bar() + coord_flip() 

A / B

^{Criado em 08/12/2019 pelo pacote reprex (v0.3.0)}

Na melhor das hipóteses, isso é um hack:

library(wq)
layOut(list(A, 1, 2:16),  list(B, 2:3, 1:16))

Mas parece muito errado.

Sei que esta é uma postagem antiga e que já foi respondida, mas posso sugerir combinar a abordagem de @baptiste purrrpara torná-la mais bonita:

library(purrr)
list(A, B) %>% 
  map(ggplotGrob) %>% 
  do.call(gridExtra::gtable_rbind, .) %>% 
  grid::grid.draw()