'Labels on top' mit facet_grid oder 'space option' mit facet_wrap

facet_grid Erlaube mir die Größe jeder Facettenbreite gemäß der Anzahl der Elemente auf der y-Achse space Streit)

df <- data.frame(label = c("Variable one", rep("Variable two", 2), rep("Variable three", 3)), item = c("A", "B", "C", "D", "E", "F"), value = rnorm(6))
ggplot(df, aes(x = value, y = item)) + 
geom_point() + 
facet_grid(label ~ ., scales = "free_y", space = "free_y") + 
ylab("") + 
theme(strip.text.y = element_text(angle=0))

Aber ich möchte Facettenbeschriftungen oben, also wechsle ich zufacet_wrap und verlor dasspace Argument (Facetten haben alle die gleiche Breite):

ggplot(df, aes(x = value, y = item)) + 
geom_point() + 
facet_wrap(~ label, scales = "free_y", ncol = 1) + 
ylab("")

Ist es möglich, das Beste aus beiden Welten zu erhalten?

Vielen Dank im Voraus für deine Hilfe

Antworten auf die Frage(4)

Ihre Antwort auf die Frage