Ich habe zwei Diagramme, die ich auf folgende Weise übereinander lege:

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)

Dazu muss die x-Achse des oberen und unteren Diagramms ausgerichtet werden. Aufgrund des Streifens links ist das facettierte Diagramm jedoch schmaler als das obere Diagramm. Ich kann den Streifen unsichtbar machen mit:

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

Dadurch wird jedoch der Platz, den der Streifen einnimmt, nicht beseitigt. Ich brauche also entweder eine Möglichkeit, den Streifen vollständig zu entfernen, oder eine Möglichkeit, mein facettiertes Diagramm in separate Diagramme aufzuteilen, aber irgendwie dieselbe Beschriftung auf der y-Achse zu verwenden. In meinem Diagramm habe ich zwei facettierte Panels, die nicht sehr hoch sind, und es ist nicht genug Platz für sie, um jeweils eine anständige y-Achse zu haben.

Irgendwelche Vorschläge?