r - 删除不属于 facet_grid(variables) 的所有不需要的 x 轴（标签以及空白绘图空间）

Question

从 2002 年到 2014 年，我有按COUNTYNAME（35 个县）和按REGIONS （8 个区域）划分的 NDVI 值的月度信息。下面是按区域绘制箱线图（x=县名和 y=十二月）和 facet_grid的脚本，并按以下顺序排列箱线图12 月的中值。在输出图中，我想做一些更改，例如

1. 仅保留COUNTYNAME和属于REGIONS的箱线图，并删除其余部分。例如。属于REGIONS 1 的COUNTYNAME的数量只有 6 个。我想删除其余的县信息（x 轴标签和空的绘图空间）。

2. 绘制变量Dec的 GRANDMEAN

.

  ggplot(farmsndvilongitudinal, aes(x= reorder(COUNTYNAME, Dec, FUN=median), 
                                     y = Dec, color=factor(Regions)))+
             geom_boxplot()+ 
             theme(axis.text.x = element_text(angle = 90, hjust = 1))+
             geom_point(stat="summary", fun.y=mean, size=2.0, color='black')+ 
             facet_grid(~Regions)