Поверните переключаемые метки факела в ggplot2 facet_grid

Я хотел бы построить некоторые барьеры друг на друга, используя facet_grid:

library(ggplot2)

df <- group_by(mpg, manufacturer) %>%
  summarise(cty = mean(cty), hwy = mean(hwy)) %>%
  ungroup()

df <- melt(df, id.vars = "manufacturer")

ggplot() +
  geom_bar(data =df, aes(x = variable, y = value), stat = "identity") +
  facet_grid(manufacturer ~ ., switch = "y")

Я использую аргумент switch ggplot2::facet_grid(), чтобы метки меток отображались по оси y, а не поверх каждой грани. Проблема в том, что метки фасетов строятся вертикально и, следовательно, обрезаются. Есть ли способ нанести грань фасета по горизонтали? Все вопросы, которые я нашел до сих пор, связаны только с поворотными метками оси x, а не с метками фасетов.

Ответ 1

Вам просто нужно добавить theme() и указать угол в strip.text.y

library(ggplot2)
df <- group_by(mpg, manufacturer) %>%
  summarise(cty = mean(cty), hwy = mean(hwy)) %>%
  ungroup()

df <- melt(df, id.vars = "manufacturer")

ggplot() +
  geom_bar(data =df, aes(x = variable, y = value), stat = "identity") +
  facet_grid(manufacturer ~ ., switch = "y")+
 theme(strip.text.y = element_text(angle = 180))