r - facet_grid プロットのすべてのファセットに対して X 軸のテキストをオンにします

Question

私はこのユーザーと同じ問題を抱えています:facet_grid個別の x 軸でプロットを作成したいのですが、ファセットの一番下の行の下だけでなく、各ファセットの下に x 軸のラベルを書きたいと思います。 . 例えば：

# Drop some factor levels to make the plot smaller 
diamondSub <- subset(diamonds, (cut=="Ideal" | cut=="Premium") & 
                     (color=="E" | color=="I"))

# Note that scales="free_x" has no practical effect here
ggplot(diamondSub, aes(x=clarity, y=price)) + 
  geom_blank()+ 
  geom_boxplot() +
  facet_grid(cut~color, scales="free_x")

ただし、その投稿のソリューションを使用しないことfacet_wrapをfacet_gridお勧めしfacet_gridます.行。

を使用して、すべての x 軸が実際には同じである場合、各ファセットの下に x 軸ラベルを取得する方法はありfacet_gridますか?