Eu tenho dois gráficos que estou colocando um acima do outro, da seguinte maneira:

library(ggplot2)
library(gridExtra)
p1 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p2 <- ggplot(mtcars, aes(mpg, wt)) + geom_point()
p2 <- p2 + facet_grid(cyl ~ .)
grid.arrange(p1, p2, ncol=1)

Para isso eu preciso dos eixos x dos gráficos superior e inferior para alinhar, no entanto, devido à faixa à esquerda, o gráfico facetado é mais estreito que o gráfico superior. Eu posso fazer a tira invisível usando:

theme(strip.text.y = element_blank())
theme(strip.background = element_blank())

No entanto, isso não elimina o espaço que a faixa ocupa. Então, eu preciso de uma maneira de me livrar completamente da faixa ou de dividir meu gráfico facetado em gráficos separados, mas de alguma forma compartilhando o mesmo rótulo do eixo y entre eles. No meu gráfico, tenho dois painéis facetados que não são muito altos, e não há espaço suficiente para cada um deles ter um eixo y de tamanho decente.

Alguma sugestão?