У меня та же проблема, что и этот пользователь: я хотел бы сделать график facet_grid с дискретной осью х, и я бы хотел этикетки оси 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?
