Lật nhãn mặt và trục x với ggplot2

Question

Tôi đang tìm cách lật nhãn trên bảng mặt của 1 hàng và 5 cột sao cho các tiêu đề khía cạnh xuất hiện ở dưới cùng và trục x xuất hiện trên đầu các mặt.

Lý do là tôi muốn sử dụng lại các tiêu đề đó cho một bảng sẽ nằm ngay bên dưới biểu đồ.

Vì vậy, trong ví dụ này ...

library(ggplot2) 

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

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

tôi sẽ muốn "cắt" nhãn để hiển thị bên dưới bảng xếp hạng. Tôi đã nghĩ rằng facet_grid có thể giữ chìa khóa, nhưng chỉ là một phỏng đoán.

Bất kỳ ai biết cách thực hiện điều này?

Answer 1

Lấy dải khía cạnh dưới đây cốt truyện rất dễ dàng,

library(gtable) 
g <- ggplotGrob(p) 

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

các trục, tuy nhiên, cần được chăm sóc hơn vì người ta phải đảo ngược vị trí của các dấu tick và nhãn. Bạn có lẽ có thể bắt đầu với điều này,

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) 

---

Edit: dựa trên trên, một "hoàn thành" giải pháp có thể là

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

(với hãy cẩn thận rõ ràng)