회전 내가 사용하여 서로 facet_grid 위에 일부 barplots 음모

Question

싶습니다 facet_grid ggplot2에면 라벨을 전환 각 패싯의 꼭대기 대신에 축이 있어야합니다. 문제는 패싯 레이블이 세로로 플롯되어 잘린 점입니다. 패싯을 수평으로 플롯 할 수있는 방법이 있습니까? 지금까지 발견 한 모든 질문은 패싯 레이블이 아닌 x 축 레이블 만 회전하는 것과 관련이 있습니다.

Answer 1

당신은 단지 테마를 (추가) 및

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