r - 不需要的轴 w/ facet_wrap with scales = "free_x"

Question

也许这是一个不确定的重复（链接）。

我想用coord_flip，facet_wrap和论据scales = "free"。如果这样做，这会在不必要的刻面之间添加不需要的比例。

library(ggplot2)

ggplot(mtcars, aes(x=as.factor(gear),  y=carb, fill=vs)) +
    geom_bar(position="dodge", stat="identity") +
    coord_flip() + 
    facet_wrap(~ carb, ncol=2)  

产生：

但是添加scales = "free"会使轴/刻度出现在刻面的中间，而不是像上面那样在底部。我怎样才能让他们走开。

ggplot(mtcars, aes(x=as.factor(gear),  y=carb, fill=vs)) +
    geom_bar(position="dodge", stat="identity") +
    coord_flip() + 
    facet_wrap(~ carb, ncol=2, scales="free_x")