Rotar etiquetas de facetas conmutadas en ggplot2 facet_grid

facet-grid

Question

Me gustaría trazar algunos gráficos de barras uno encima del otro usando 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")

Uso el argumento de ggplot2::facet_grid() de ggplot2::facet_grid() para permitir que las etiquetas de faceta se muestren en el eje y en lugar de en la parte superior de cada faceta. El problema es que las etiquetas de facetas se trazan verticalmente y, por lo tanto, se recortan. ¿Hay alguna manera de trazar las etiquetas faceta horizontalmente? Todas las preguntas que encontré hasta ahora están relacionadas con la rotación de las etiquetas del eje x solamente, no las etiquetas de facetas.

Answer 1

Solo necesita agregar el theme() y especificar el ángulo en 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))