x 레이블을 ggplot의 패싯 레이블 위에 놓는 방법 R

Question

패싯 레이블 (3, 4, 5)을 x 값 (4, 6, 8) 아래로 이동하고 싶습니다. 내 현재 코드 : 현재

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

, 그것은 다음과 같습니다

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") 

:

나는이처럼 보이는 뭔가를 찾고 있어요