Общая легенда 3x3 ggplots

Мне нужен 3x3 ggplot с общей легендой. Вопрос Controlling the plot layout when sharing legends between several ggplot2 graphs вопрос и ответы решают это для графика 1x4 (а не 3x3, что мне нужно). Я попытался изменить функцию для своих нужд, после многих попыток я должен признать, что функция баптистов намного превосходит мои R-знания.Общая легенда 3x3 ggplots

Это 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

Это последняя строка в примере, в котором я нуждаюсь.

источник

2015-10-23 Chris

вам нужно изменить расположение ... 'rbind (с (1,2,3), с (4, 5, 6) , c (7,8,9), c (10,10,10)) '- где числа от 1 до 9 являются графиками, а строка из 10; s - легендой. Но вам также нужно изменить высоту, так как она только дает высоту для двух рядов, и у вас их четыре. Попробуйте изменить его на 'grid :: unit.c (rep (1/3 * (единица (1,« npc ») - lheight), 3), lheight)' – user20650

Похоже, что приведенный пример кода будет работать только с одним рядом графиков. Вы можете изменить его, чтобы быть более accomidating:

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(rep((unit(1, "npc") - lheight)*(1/(nrow(layout)-1)),nrow(layout)-1), lheight)) 
} 

grid_arrange_shared_legend(p1, p2, p3, p4, p5, p6, p7, p8, p9, layout=rbind(1:3, 4:6, 7:9, rep(10,3)))

источник

2015-10-23 16:30:16 MrFlick

Общая легенда 3x3 ggplots

ответ

Смежные вопросы