r - scale = "free_x" の 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")