У меня есть два графика, которые я размещаю один над другим, следующим образом:

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)

Для этого мне нужно, чтобы оси x верхнего и нижнего графиков выровнялись, однако из-за полосы слева граненый граф уже, чем верхний граф. Я могу сделать полосу невидимой, используя:

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

Однако это не избавляет от места, которое занимает полоса. Поэтому мне либо нужен способ полностью избавиться от полоски, либо есть способ разбить мой граненый граф на отдельные графы, но каким-то образом разделить одну и ту же метку оси Y между ними. На моем графике у меня есть две граненые панели, которые не очень высоки, и для них недостаточно места, чтобы каждая имела ось Y приличного размера.

Какие-либо предложения?