修改每个构面的x轴标签

Question

我有这个马赛克情节

我希望x轴上只有正确方面的标签。

例如，你可以看到在最后一个方面只有7个小节。我想仅为这7个条显示x轴标签。

希望我已经足够清楚了

这是我的代码和数据

p<-ggplot(data = newdata) +
       geom_mosaic(aes(weight = frequency, x = product(region),fill=factor(categ)),na.rm=TRUE) +facet_grid(~cutt) +theme(axis.text.x=element_text(angle=90, hjust= .1))+
      guides(fill=guide_legend(title = "Type of Crime", reverse = TRUE))`


 head(newdata)
   region               categ frequency median_income    cutt vec
1 alabama            burglary   0.25773         42917 39k-51k   0
2 alabama             larceny   0.67646         42917 39k-51k   0
3 alabama motor_veichle_theft   0.06581         42917 39k-51k   0
4 arizona            burglary   0.20239         50036 39k-51k   0
5 arizona             larceny   0.71590         50036 39k-51k   0
6 arizona motor_veichle_theft   0.08171         50036 39k-51k   0