Изменить метку оси X для каждого фасета

Question

У меня есть этот мозаичный сюжет

Я хотел бы иметь только метку на оси X для людей в правильном фасете.

Например, вы можете видеть, что в последнем аспекте есть только 7 баров. Я хотел бы показать только метки оси X для этих 7 баров.

Надеюсь, я достаточно ясно

вот мой код и данные

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