Forzar el texto del eje X para todas las facetas de un diagrama de facet_grid

Tengo el mismo problema queeste usuario: Me gustaría hacer unfacet_grid trazar con un eje x discreto, y me gustaría que las etiquetas del eje x se escribieran debajo de cada faceta en lugar de solo debajo de la fila inferior de facetas. Por ejemplo:

# 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")

Sin embargo, prefiero no usar la solución de ese post, que fue solo para usarfacet_wrap en lugar defacet_grid, porque prefiero el caminofacet_grid etiqueta el texto de la tira con una variable en la parte superior de las columnas, y la otra variable en los lados de las filas.

¿Hay una manera de obtener etiquetas de eje x bajo cada faceta, cuando todos los ejes x son en realidad iguales, usandofacet_grid?