Etykieta klapki i oś X z ggplot2

Question

Chciałbym odwrócić etykiety na panelu z fasetami z 1 rzędu i 5 kolumn, tak aby nagłówki aspektów pojawiły się na dole, a oś x pojawi się na wierzchu faset.

Powodem jest to, że chcę ponownie użyć tych nagłówków dla tabeli, która będzie bezpośrednio pod wykresem.

Więc w tym przykładzie ...

library(ggplot2) 

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

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

chciałbym „cut” etykiety, aby pokazać się poniżej wykresu. Myślałem, że facet_grid może posiadać klucz, ale jest tylko odgadnięciem.

Ktoś wie, jak to osiągnąć?

Answer 1

Uzyskiwanie pasków fazowane poniżej fabuła jest prosta,

library(gtable) 
g <- ggplotGrob(p) 

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

osie, jednak wymaga więcej opieki, ponieważ ktoś musi odwrócić pozycję znacznikami i etykiety. Można może rozpocząć się z tym,

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) 

---

Edycja: na podstawie powyższego, "kompletna" rozwiązanie może być

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

(z oczywistymi zastrzeżeniami)