带有scale =“free_x”的不需要的轴w / facet_wrap

Question

也许这是重复的，不确定（LINK）。

我想使用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")