패싯 레이블과 x 축을 ggplot2로 뒤집기

Question

패싯 헤더가 아래쪽에 나타나고 패싯 상단에 x 축이 표시되도록 한 행과 5 열 패싯 패널의 레이블을 뒤집기를 원합니다.

그 이유는 그래프 바로 아래에있는 테이블에 해당 헤더를 다시 사용하기 위해서입니다.

그래서이 예에서는

...

library(ggplot2) 

my.hist<-ggplot(diamonds, aes(clarity)) + geom_bar() 

my.hist + facet_wrap(~ cut, ncol=5) + coord_flip() 

나는 "컷"레이블이 차트 아래에 표시 할 것입니다. facet_grid가 키를 잡을 수 있다고 생각했지만 추측 일뿐입니다.

누구든지이 작업을 수행하는 방법을 알고 있습니까? 줄거리는 간단합니다 아래

Answer 1

하나는 눈금 및 레이블의 위치를 ​​반전하기 때문에

library(gtable) 
g <- ggplotGrob(p) 

strips <- gtable_filter(g, "strip_t", trim=FALSE) 
grid.newpage() 
grid.draw(rbind(g, strips[3,], size="first")) 

축, 그러나 더 많은주의를 필요로 패싯 스트립 얻기. 당신은 아마

tweak_axis <- function(a){ 
    inner <- a[["children"]]["axis"][[1]] 
    inner[["grobs"]] <- rev(inner[["grobs"]]) 
    inner$grobs[[2]]$y <- inner$grobs[[2]]$y - unit(0.15, "cm") 
    a[["children"]]["axis"][[1]] <- inner 
    a 
} 

axes <- gtable_filter(g, "axis_b", trim=FALSE) 
axes$grobs <- lapply(axes$grobs, tweak_axis) 
grid.newpage() 
grid.draw(axes) 

---

편집이 시작 할 수 있습니다, 위의 기반으로 "완전한"솔루션이 될 수있다 (명백한 사항에 유의)

grid.newpage() 
g2 <- g 
new_axes <- lapply(g2$grobs[grepl("axis_b", g2$layout$name)], tweak_axis) 
g$grobs[grepl("strip_t", g$layout$name)] <- new_axes 
g$grobs[grepl("axis_b", g$layout$name)] <- g2$grobs[grepl("strip_t", g2$layout$name)] 
# heights should be changed too, but it's kind of ok here 
xlab <- 7; title <- 1:2 
grid.draw(rbind(g[xlab,], g[-c(title, xlab), ], size="last"))