Wie verschiebe ich x Etiketten über Facettenetiketten in ggplot in R

Question

Ich möchte die Facettenetiketten (3, 4, 5) unter die x-Werte (4, 6, 8) verschieben. Mein aktueller Code:

library(ggplot2) 
ggplot(mtcars) + aes(factor(cyl), wt) + 
geom_bar(stat = "summary", fun.y = "mean") + 
facet_grid(~gear, switch = "x") 

derzeit sieht es wie folgt aus:

Ich bin auf der Suche nach etwas, das wie folgt aussieht:

Answer 1

library(ggplot2) 
ggplot(mtcars) + aes(factor(cyl), wt) + 
geom_bar(stat = "summary", fun.y = "mean") + 
facet_grid(~gear, switch = "x") + 
theme(strip.placement = "outside")