Adicione uma legenda comum para ggplots combinados

138

Eu tenho dois ggplots com os quais alinhar horizontalmente grid.arrange. Examinei várias postagens no fórum, mas tudo o que tento parece ser comandos que agora são atualizados e têm outro nome.

Meus dados são assim;

# Data plot 1                                   
        axis1     axis2   
group1 -0.212201  0.358867
group2 -0.279756 -0.126194
group3  0.186860 -0.203273
group4  0.417117 -0.002592
group1 -0.212201  0.358867
group2 -0.279756 -0.126194
group3  0.186860 -0.203273
group4  0.186860 -0.203273

# Data plot 2   
        axis1     axis2
group1  0.211826 -0.306214
group2 -0.072626  0.104988
group3 -0.072626  0.104988
group4 -0.072626  0.104988
group1  0.211826 -0.306214
group2 -0.072626  0.104988
group3 -0.072626  0.104988
group4 -0.072626  0.104988

#And I run this:
library(ggplot2)
library(gridExtra)


groups=c('group1','group2','group3','group4','group1','group2','group3','group4')

x1=data1[,1]
y1=data1[,2]

x2=data2[,1]
y2=data2[,2]

p1=ggplot(data1, aes(x=x1, y=y1,colour=groups)) + geom_point(position=position_jitter(w=0.04,h=0.02),size=1.8)

p2=ggplot(data2, aes(x=x2, y=y2,colour=groups)) + geom_point(position=position_jitter(w=0.04,h=0.02),size=1.8)

#Combine plots
p3=grid.arrange(
p1 + theme(legend.position="none"), p2+ theme(legend.position="none"), nrow=1, widths = unit(c(10.,10), "cm"), heights = unit(rep(8, 1), "cm")))

Como extrairia a legenda de qualquer um desses gráficos e a adicionaria ao final / centro do gráfico combinado?

jO.
fonte
2
Ocasionalmente tenho esse problema. Se você não deseja facetar a plotagem, a solução mais fácil que conheço é apenas salvar uma com uma legenda, use o Photoshop / Ilustrator para colá-la nas plotagens de legenda em branco. Deselegante eu sei - mas prático, rápido e fácil.
Stephen Henderson
@StephenHenderson Essa é uma resposta. Faceta ou pós-processo com o editor gfx.
Brandon Bertelsen

Respostas:

107

Atualização 2015-fev

Veja a resposta de Steven abaixo


df1 <- read.table(text="group   x     y   
group1 -0.212201  0.358867
group2 -0.279756 -0.126194
group3  0.186860 -0.203273
group4  0.417117 -0.002592
group1 -0.212201  0.358867
group2 -0.279756 -0.126194
group3  0.186860 -0.203273
group4  0.186860 -0.203273",header=TRUE)

df2 <- read.table(text="group   x     y   
group1  0.211826 -0.306214
group2 -0.072626  0.104988
group3 -0.072626  0.104988
group4 -0.072626  0.104988
group1  0.211826 -0.306214
group2 -0.072626  0.104988
group3 -0.072626  0.104988
group4 -0.072626  0.104988",header=TRUE)


library(ggplot2)
library(gridExtra)

p1 <- ggplot(df1, aes(x=x, y=y,colour=group)) + geom_point(position=position_jitter(w=0.04,h=0.02),size=1.8) + theme(legend.position="bottom")

p2 <- ggplot(df2, aes(x=x, y=y,colour=group)) + geom_point(position=position_jitter(w=0.04,h=0.02),size=1.8)

#extract legend
#https://github.com/hadley/ggplot2/wiki/Share-a-legend-between-two-ggplot2-graphs
g_legend<-function(a.gplot){
  tmp <- ggplot_gtable(ggplot_build(a.gplot))
  leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")
  legend <- tmp$grobs[[leg]]
  return(legend)}

mylegend<-g_legend(p1)

p3 <- grid.arrange(arrangeGrob(p1 + theme(legend.position="none"),
                         p2 + theme(legend.position="none"),
                         nrow=1),
             mylegend, nrow=2,heights=c(10, 1))

Aqui está o gráfico resultante: 2 parcelas com legenda comum

Roland
fonte
2
ambas as respostas apontam para a mesma página wiki que pode ser atualizada à medida que novas versões do ggplot2 quebram o código.
baptiste
Mais de seis anos depois, essa resposta resolveu meu problema. Obrigado!
SPK.z 10/01/19
Isso pode ser simples para algumas / a maioria das pessoas, mas eu não entendi imediatamente, por isso pensei em comentar. Se você deseja que a legenda comum esteja no topo da plotagem (e não abaixo), tudo que você precisa fazer é mudar os argumentos. No exemplo acima, mylegend é anterior arrangeGrob(). Você também precisa inverter as alturas (ieheights=c(1,10)
ljh2001
113

Você também pode usar o ggarrange do pacote ggpubr e definir "common.legend = TRUE":

library(ggpubr)

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) 

ggarrange(p1, p2, p3, p4, ncol=2, nrow=2, common.legend = TRUE, legend="bottom")

insira a descrição da imagem aqui

Huiyan Wan
fonte
1
É possível que isso não funcione dentro de um aplicativo brilhante (ou flexdashboard) com renderPlot ()? Funciona perfeitamente bem em um script R normal com plotagens normais. Mas quando eu faço exatamente a mesma coisa com plotagens feitas com renderPlot () no meu painel de flexões, nada aparece.
Tingolfin
1
Obrigado por isso - eu acho que este foi de longe a solução mais fácil para o que eu estava procurando
Komal Rathi
Isso é incrível! Obrigado!
yanes
@Tingolfin Às vezes, tive que envolver print(ggarrangeobject)um dos meus ggarrangeobjetos quando precisava que ele fosse plotado por alguma outra função, que pode ser semelhante à solução para o seu renderPlot()?
Brandon
common.legend = TRUEé tudo o que eu preciso!
Aryo
62

A resposta de Roland precisa ser atualizada. Consulte: https://github.com/hadley/ggplot2/wiki/Share-a-legend-between-two-ggplot2-graphs

Este método foi atualizado para o ggplot2 v1.0.0.

library(ggplot2)
library(gridExtra)
library(grid)


grid_arrange_shared_legend <- function(...) {
    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)
    grid.arrange(
        do.call(arrangeGrob, lapply(plots, function(x)
            x + theme(legend.position="none"))),
        legend,
        ncol = 1,
        heights = unit.c(unit(1, "npc") - lheight, lheight))
}

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)
grid_arrange_shared_legend(p1, p2, p3, p4)

Observe a falta de ggplot_gtablee ggplot_build. ggplotGrobé usado em seu lugar. Este exemplo é um pouco mais complicado do que a solução acima, mas ainda o resolveu para mim.

Steven Lockton
fonte
10
Olá, tenho 6 parcelas e gostaria de organizar as 6 parcelas como 2 linha × 3 col e desenhar a legenda na parte superior, então como alterar a função grid_arrange_shared_legend? Obrigado!
Just
4
@just_rookie você encontrou uma solução em como alterar a função para que se possa usar diferentes arranjos ncol e nrow em vez de apenas ncol = 1?
Giuseppe
Oi, eu tentei esta solução, ela funciona bem, no entanto, ao imprimi-la, obtive 2 páginas em pdf em vez de apenas 1, a primeira fica em branco enquanto a última contém meu enredo, por que tenho esse comportamento? graças,
HanniBaL90
para qualquer um como obter o mesmo isse que eu, aqui está uma solução alternativa: stackoverflow.com/questions/12481267/...
HanniBaL90
1
Ótimas coisas aqui. Alguma idéia de como se pode adicionar um único título para todas as parcelas?
Pertinax #
27

Uma solução nova e atraente é usar patchwork. A sintaxe é muito simples:

library(ggplot2)
library(patchwork)

p1 <- ggplot(df1, aes(x = x, y = y, colour = group)) + 
  geom_point(position = position_jitter(w = 0.04, h = 0.02), size = 1.8)
p2 <- ggplot(df2, aes(x = x, y = y, colour = group)) + 
  geom_point(position = position_jitter(w = 0.04, h = 0.02), size = 1.8)

combined <- p1 + p2 & theme(legend.position = "bottom")
combined + plot_layout(guides = "collect")

Criado em 2019-12-13 pelo pacote reprex (v0.2.1)

MSR
fonte
2
Se você alterar ligeiramente a ordem dos comandos, poderá fazer isso em uma linha: combined <- p1 + p2 + plot_layout(guides = "collect") & theme(legend.position = "bottom")
mlcyo
17

Eu sugiro usar cowplot. Da vinheta R :

# load cowplot
library(cowplot)

# down-sampled diamonds data set
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]

# Make three plots.
# We set left and right margins to 0 to remove unnecessary spacing in the
# final plot arrangement.
p1 <- qplot(carat, price, data=dsamp, colour=clarity) +
   theme(plot.margin = unit(c(6,0,6,0), "pt"))
p2 <- qplot(depth, price, data=dsamp, colour=clarity) +
   theme(plot.margin = unit(c(6,0,6,0), "pt")) + ylab("")
p3 <- qplot(color, price, data=dsamp, colour=clarity) +
   theme(plot.margin = unit(c(6,0,6,0), "pt")) + ylab("")

# arrange the three plots in a single row
prow <- plot_grid( p1 + theme(legend.position="none"),
           p2 + theme(legend.position="none"),
           p3 + theme(legend.position="none"),
           align = 'vh',
           labels = c("A", "B", "C"),
           hjust = -1,
           nrow = 1
           )

# extract the legend from one of the plots
# (clearly the whole thing only makes sense if all plots
# have the same legend, so we can arbitrarily pick one.)
legend_b <- get_legend(p1 + theme(legend.position="bottom"))

# add the legend underneath the row we made earlier. Give it 10% of the height
# of one plot (via rel_heights).
p <- plot_grid( prow, legend_b, ncol = 1, rel_heights = c(1, .2))
p

parcelas combinadas com legenda na parte inferior

Gregor Sturm
fonte
Esta foi a única maneira, que tornou possível colocar uma legenda manual no meu enredo annotate_figure(ggarrange()), usando um legend_b (). Muito obrigado, Deus te abençoe!
Jean Karlos
12

@ Giuseppe, convém considerar isso para uma especificação flexível do arranjo de parcelas (modificado aqui ):

library(ggplot2)
library(gridExtra)
library(grid)

grid_arrange_shared_legend <- function(..., nrow = 1, ncol = length(list(...)), position = c("bottom", "right")) {

  plots <- list(...)
  position <- match.arg(position)
  g <- ggplotGrob(plots[[1]] + theme(legend.position = position))$grobs
  legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
  lheight <- sum(legend$height)
  lwidth <- sum(legend$width)
  gl <- lapply(plots, function(x) x + theme(legend.position = "none"))
  gl <- c(gl, nrow = nrow, ncol = ncol)

  combined <- switch(position,
                     "bottom" = arrangeGrob(do.call(arrangeGrob, gl),
                                            legend,
                                            ncol = 1,
                                            heights = unit.c(unit(1, "npc") - lheight, lheight)),
                     "right" = arrangeGrob(do.call(arrangeGrob, gl),
                                           legend,
                                           ncol = 2,
                                           widths = unit.c(unit(1, "npc") - lwidth, lwidth)))
  grid.newpage()
  grid.draw(combined)

}

Argumentos extras nrowe ncolcontrole o layout dos gráficos organizados:

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)
grid_arrange_shared_legend(p1, p2, p3, p4, nrow = 1, ncol = 4)
grid_arrange_shared_legend(p1, p2, p3, p4, nrow = 2, ncol = 2)

insira a descrição da imagem aqui insira a descrição da imagem aqui

epsilone
fonte
Assim como na outra solução, tentei, funciona bem. No entanto, ao imprimi-lo, obtive 2 páginas em pdf em vez de apenas 1, a primeira fica em branco enquanto a última contém meu enredo, por que tenho esse comportamento? Obrigado,
HanniBaL90
para qualquer um como obter o mesmo isse que eu, aqui está uma solução alternativa: stackoverflow.com/questions/12481267/...
HanniBaL90
Alguém pode me explicar a solução? Como posso colocar a legenda no topo em vez de no fundo? Obrigado
HanniBaL90
8

Se você estiver plotando as mesmas variáveis ​​em ambas as plotagens, a maneira mais simples seria combinar os quadros de dados em um e, em seguida, use facet_wrap.

Para o seu exemplo:

big_df <- rbind(df1,df2)

big_df <- data.frame(big_df,Df = rep(c("df1","df2"),
times=c(nrow(df1),nrow(df2))))

ggplot(big_df,aes(x=x, y=y,colour=group)) 
+ geom_point(position=position_jitter(w=0.04,h=0.02),size=1.8) 
+ facet_wrap(~Df)

Gráfico 1

Outro exemplo usando o conjunto de dados de diamantes. Isso mostra que você pode até fazê-lo funcionar se você tiver apenas uma variável comum entre seus gráficos.

diamonds_reshaped <- data.frame(price = diamonds$price,
independent.variable = c(diamonds$carat,diamonds$cut,diamonds$color,diamonds$depth),
Clarity = rep(diamonds$clarity,times=4),
Variable.name = rep(c("Carat","Cut","Color","Depth"),each=nrow(diamonds)))

ggplot(diamonds_reshaped,aes(independent.variable,price,colour=Clarity)) + 
geom_point(size=2) + facet_wrap(~Variable.name,scales="free_x") + 
xlab("")

Gráfico 2

A única coisa complicada do segundo exemplo é que as variáveis ​​fatoriais são coagidas a numéricas quando você combina tudo em um quadro de dados. Então, idealmente, você fará isso principalmente quando todas as suas variáveis ​​de interesse forem do mesmo tipo.

hmgeiger
fonte
1

@Guiseppe:

Não tenho a mínima idéia do Grobs etc., mas criei uma solução para duas parcelas, deve ser possível estender para um número arbitrário, mas não em uma função sexy:

plots <- list(p1, p2)
g <- ggplotGrob(plots[[1]] + theme(legend.position="bottom"))$grobs
legend <- g[[which(sapply(g, function(x) x$name) == "guide-box")]]
lheight <- sum(legend$height)
tmp <- arrangeGrob(p1 + theme(legend.position = "none"), p2 + theme(legend.position = "none"), layout_matrix = matrix(c(1, 2), nrow = 1))
grid.arrange(tmp, legend, ncol = 1, heights = unit.c(unit(1, "npc") - lheight, lheight))
Jack
fonte
1

Se a legenda for a mesma para ambas as plotagens, existe uma solução simples usando grid.arrange(supondo que você deseje que sua legenda se alinhe com ambas as plotagens, vertical ou horizontalmente). Simplesmente mantenha a legenda da plotagem mais abaixo ou mais à direita, enquanto omite a legenda para a outra. Adicionar uma legenda a apenas um gráfico, no entanto, altera o tamanho de um gráfico em relação ao outro. Para evitar isso, use o heightscomando para ajustar manualmente e mantê-los do mesmo tamanho. Você pode até usar grid.arrangepara criar títulos de eixos comuns. Observe que isso exigirá library(grid)além de library(gridExtra). Para gráficos verticais:

y_title <- expression(paste(italic("E. coli"), " (CFU/100mL)"))

grid.arrange(arrangeGrob(p1, theme(legend.position="none"), ncol=1), arrangeGrob(p2, theme(legend.position="bottom"), ncol=1), heights=c(1,1.2), left=textGrob(y_title, rot=90, gp=gpar(fontsize=20)))

Aqui está o resultado para um gráfico semelhante para um projeto em que eu estava trabalhando: insira a descrição da imagem aqui

Wesley Lozano
fonte