R：ggplot2：在刻面图中将strip.text从“y”轴更改为“x”轴？

Question

为了更好地进行可视化，我需要将构面的条形文本移动到每个构面的顶部。

现在他们在右边，但我需要他们在顶部。

这是我的代码：

tvs.rangos <- ggplot(tvs , aes(rangos))
tvs.rangos + geom_histogram(aes(fill = marca), width = .7) + labs(title = "Marcas de TV por rangos de precios",
                                                                x = "rango de precios", y = "cantidad de tvs")  +
        facet_grid(ecommerce ~ .) +
        scale_fill_brewer(palette="Set3") +
        theme(axis.text.x = element_text(colour="grey10",size=16,hjust=.5,vjust=.5,face="bold"),
              axis.text.y = element_text(colour="grey10",size=18,,hjust=1,vjust=0,face="plain"),  
              axis.title.x = element_text(colour="grey40",size=12,angle=0,hjust=.5,vjust=0,face="plain"),
              axis.title.y = element_text(colour="grey40",size=12,angle=90,hjust=.5,vjust=.5,face="plain"),
              plot.title = element_text(size = 16,vjust=2),
              legend.title = element_text(colour="grey40", size=16, face="bold"),
              legend.text = element_text(colour="grey10", size=16, face="bold"),
              strip.text.y = element_text(size = 20, angle = 0))

我找到了这个话题：

ggplot2: Using gtable to move strip labels to top of panel for facet_grid

但是，我正在寻找一种更简单的方法，如果有的话。

Answer 1

如果您正在寻找替代方案，为什么不简单地使用facet_wrap（）。文本将位于每个方面的顶部。我无法访问您的数据集，但这是一个简单的示例

ggplot(data=iris, aes(x=Sepal.Length, y=Sepal.Width)) + geom_point() + facet_wrap(~Species, nrow=3)