Mam dwa wykresy, które umieszczam jeden nad drugim, w następujący sposób:

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)

Do tego potrzebuję, aby osie x górnego i dolnego wykresu były wyrównane, jednak ze względu na pasek po lewej stronie, wykres fasetowany jest węższy niż górny wykres. Mogę uczynić pasek niewidocznym za pomocą:

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

Nie pozbawia to jednak miejsca, które zajmuje taśma. Więc albo potrzebuję sposobu na całkowite pozbycie się paska, albo mam sposób na podzielenie mojego fasetowanego wykresu na oddzielne wykresy, ale w jakiś sposób dzieląc na nich tę samą etykietę osi Y. Na moim wykresie mam dwa fasetowane panele, które nie są zbyt wysokie, i nie ma wystarczająco dużo miejsca dla nich, aby każdy miał przyzwoitą oś y.

Jakieś sugestie?