Eu tenho o mesmo problema queeste usuário: Eu gostaria de fazer umfacet_grid traçar com um eixo x discreto e gostaria que os rótulos do eixo x fossem escritos em cada faceta, e não apenas abaixo da linha inferior das facetas. Por exemplo:

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

No entanto, eu prefiro não usar a solução desse post, que era só usarfacet_wrap ao invés defacet_gridporque eu prefiro o caminhofacet_grid rotula o texto da faixa com uma variável no topo das colunas e a outra variável nos lados das linhas.

Existe uma maneira de obter rótulos do eixo x em cada faceta, quando todos os eixos x são realmente os mesmos, usandofacet_grid?