小编Ami*_*son的帖子

我想将构面标签（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")

目前，它看起来像这样：

我正在寻找看起来像这样的东西：