Facettenetikett und x-Achse mit ggplot2 spiegeln

Question

Ich möchte die Beschriftungen auf einem facettierten Panel mit 1 Reihe und 5 Spalten spiegeln, so dass die Facettenköpfe unten erscheinen und die x-Achse oben auf den Facetten erscheint.

Der Grund ist, dass ich diese Header für eine Tabelle, die direkt unter dem Diagramm sein wird, wiederverwenden möchte.

in diesem Beispiel also ...

library(ggplot2) 

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

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

Ich würde wollen, dass die "cut" Etiketten unter dem Diagramm zu zeigen. Ich dachte, dass facet_grid den Schlüssel halten könnte, aber ist nur eine Vermutung.

Wer weiß, wie man das erreicht?

Answer 1

Getting die Facette Streifen unterhalb der Plot einfach,

library(gtable) 
g <- ggplotGrob(p) 

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

die Achsen erfordern jedoch mehr Sorgfalt, weil man die Position der Markierungen und Etiketten umgekehrt hat. basierend auf dem oben eine "vollständige" Lösung könnte sein

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

(mit offensichtlichen Einschränkungen)

: Sie können vielleicht mit diesem,

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) 

---

bearbeiten starten