X-Achsentext für alle Facetten eines facet_grid-Diagramms aktivieren

Ich habe das gleiche Problem wiedieser Benutzer: Ich würde gerne eine machenfacet_grid Zeichnen Sie mit einer diskreten X-Achse, und ich möchte, dass die Beschriftungen der X-Achse unter jeder Facette und nicht nur unter der unteren Facettenreihe geschrieben werden. Zum Beispiel:

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

Ich würde es jedoch vorziehen, die Lösung aus diesem Beitrag nicht zu verwenden, sondern nur zu verwendenfacet_wrap anstattfacet_grid, weil ich den Weg bevorzugefacet_grid Beschriftet den Streifentext mit einer Variablen über den Spalten und der anderen Variablen an den Seiten der Zeilen.

Gibt es eine Möglichkeit, X-Achsen-Beschriftungen unter jeder Facette zu erhalten, wenn alle X-Achsen tatsächlich gleich sind?facet_grid?

Antworten auf die Frage(2)

Ihre Antwort auf die Frage