Wymuś tekst osi X dla wszystkich aspektów wykresu facet_grid

Mam taki sam problem jakten użytkownik: Chciałbym zrobićfacet_grid Wykres z dyskretną osią x, a chciałbym, aby etykiety osi X były zapisywane pod każdym aspektem, a nie tylko pod dolnym rzędem faset. Na przykład:

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

Jednak wolałbym nie używać rozwiązania z tego postu, który był po prostu używanyfacet_wrap zamiastfacet_grid, ponieważ wolę drogęfacet_grid etykietuje tekst paska jedną zmienną na górze kolumn, a drugą zmienną na bokach wierszy.

Czy istnieje sposób, aby uzyskać etykiety osi X pod każdym aspektem, gdy wszystkie osie x są w rzeczywistości takie same, używającfacet_grid?

questionAnswers(2)

yourAnswerToTheQuestion