r - 修改每个构面的 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