Мне нужен ggplot 3x3 с общей легендой. Управление макетом графика при совместном использовании легенд между несколькими Графики ggplot2 вопрос и ответы решают эту проблему для графика 1x4 (а не 3x3, что мне нужно). Я пытался изменить функцию для своих нужд, после многих попыток я должен признать, что функция baptistes намного превышает мои R-знания.
Вот MWE, основанный на том же примере в упомянутом вопросе (надеюсь, его можно заимствовать).
library(ggplot2)
library(grid)
library(gridExtra)
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
p1 <- qplot(carat, price, data=dsamp, colour=clarity)
p2 <- qplot(cut, price, data=dsamp, colour=clarity)
p3 <- qplot(color, price, data=dsamp, colour=clarity)
p4 <- qplot(depth, price, data=dsamp, colour=clarity)
p5 <- qplot(carat, price, data=dsamp, colour=clarity)
p6 <- qplot(cut, price, data=dsamp, colour=clarity)
p7 <- qplot(color, price, data=dsamp, colour=clarity)
p8 <- qplot(depth, price, data=dsamp, colour=clarity)
p9 <- qplot(carat, price, data=dsamp, colour=clarity)
grid_arrange_shared_legend <- function(..., layout = rbind(c(1,2,3,4),
c(5,5,5,5))) {
plots <- list(...)
g <- ggplotGrob(plots[[1]] + theme(legend.position="bottom"))$grobs
legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
lheight <- sum(legend$height)
gl <- lapply(plots, function(x) x + theme(legend.position="none"))
grid.arrange(grobs = c(gl, list(legend)), layout_matrix = layout,
heights = grid::unit.c(unit(1, "npc") - lheight, lheight))
}
grid_arrange_shared_legend(p1, p2, p3, p4) # This works
grid_arrange_shared_legend(p1, p2, p3, p4, p5, p6, p7, p8, p9) # This is what I need
Это последняя строка в примере, который мне нужен для работы.
rbind(c(1,2,3), c(4, 5, 6), c(7,8,9), c(10,10,10))
- где цифры от 1 до 9 - это графики, а ряд 10; s - это легенда. Но вам также нужно изменить высоту, так как в настоящее время она дает высоту только для двух строк, а у вас четыре. Попробуйте изменить его наgrid::unit.c(rep(1/3*(unit(1, "npc") - lheight), 3), lheight)
- person user20650   schedule 23.10.2015