Jak przenieść etykiety powierzchni do mojego wykresu?

Question

mogę utworzyć aspektach fabuły jak tak, to z 3 działek ułożone pionowo:

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_grid(Species ~ .) 

Czy możliwe jest przeniesienie etykiet na górze każdego wykresu, jak byliby jeśli zrobiłam pozioma układanie z facet_grid(. ~ Species)?

Powodem, dla którego chcę, jest to, że moje wykresy są długimi wykresami serii czasowych, więc chcę mieć pełną szerokość dla każdego z nich, ale etykiety (które zasadniczo funkcjonują jako tytuły do ​​wyjaśnienia aspektów) dla każdego wykresu są zbyt długie, aby zmieścić się w obszarze małej etykiety po prawej stronie działki.

Answer 1

Tak. Użyj facet_wrap zamiast facet_grid i należy również określić argument ncol=1:

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_wrap(~Species, ncol=1) 

Answer 2

Spróbuj tego:

ggplot(iris, aes(Petal.Length)) + stat_bin() + facet_wrap(~Species,nrow = 3)