1

Tengo un código con el que elaboro dos gráficos a partir de mis datos (variable dependiente "en", variables independientes "time", "coor", "cont":

en <- c(3,3,2.8,2.9,2.5,2,2.1,2,1.25,1,0.4,0.6)
time <- c(1,1,1,1,2,2,2,2,3,3,3,3)
coor <- c(0,1,0,1,0,1,0,1,0,1,0,1)
cont <- c(0,0,1,1,0,0,1,1,0,0,1,1)

library(ggplot2)

f <-subset(global_data,coor==0)
plot1<-ggplot(f, aes(time)) + 
  geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) + 
  scale_y_continuous(limits = c(0, 3)) +
  guides(fill=FALSE) +
  theme(axis.text=element_text(size=14),
        axis.title=element_text(size=14,face="bold"))
d <-subset(global_data,coor==0.5)
plot2<-ggplot(d, aes(time)) + 
  geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) + 
  scale_y_continuous(limits = c(0, 3)) +
  guides(fill=FALSE) +
  theme(axis.text=element_text(size=14),
        axis.title=element_text(size=14,face="bold"))

Ahora junto los gráficos:

grid.arrange(plot1,plot2,ncol=2)

La leyenda original, que oculto en los gráficos mediante guides(fill=FALSE) está generada por los 10 niveles de la variable denominada "cont". Me gustaría que esa leyenda apareciera en la parte de abajo de mi multigráfico.

He intentado varias soluciones sin éxito.

Gracias.

2
  • ¿Podrías compartir al menos un ejemplo mínimo de los datos, como para reproducir la gráfica? Saludos. Commented el 20 mar. 2018 a las 21:32
  • si no me equivoco mucho, porque los datos originales corresponden a un fichero inmeso, el ejemplo que he añadido serviría de ejemplo mínimo. Muchas gracias
    – pyring
    Commented el 21 mar. 2018 a las 9:43

2 respuestas 2

1

Lo que podrías hacer es usar theme(legend.position="bottom"), ajuste un poco tus datos, a contle di los 10 niveles que mencionas y genere algunos casos más. El ejemplo quedaría así:

library(ggplot2)
library(gridExtra)

set.seed(1100)
en <- c(3,3,2.8,2.9,2.5,2,2.1,2,1.25,1,0.4,0.6)
time <- c(1,1,1,1,2,2,2,2,3,3,3,3)
coor <- c(0,0.5,0,0.5,0,0.5,0,0.5,0,0.5,0,0.5)
cont <- c(1,2,3,4,5,6,7,8,9,10)

global_data <- data.frame(en=sample(en,100,replace=TRUE),
                          time=factor(sample(time,100,replace=TRUE)),
                          coor=sample(coor,100,replace=TRUE),
                          cont=factor(sample(cont,100,replace=TRUE)))

f <-subset(global_data,coor==0)
plot1<-ggplot(f, aes(time)) + 
    geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) + 
    scale_y_continuous(limits = c(0, 3)) +
    theme(axis.text=element_text(size=14),
          axis.title=element_text(size=14,face="bold")) +
    theme(legend.position="bottom")

d <-subset(global_data,coor==0.5)
plot2<-ggplot(d, aes(time)) + 
    geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) + 
    scale_y_continuous(limits = c(0, 3)) +
    theme(axis.text=element_text(size=14),
          axis.title=element_text(size=14,face="bold")) +
    theme(legend.position="bottom")

grid.arrange(plot1,plot2,ncol=2)

El resultado final: introducir la descripción de la imagen aquí

Puede molestar un poco tener las dos leyendas en ambos gráfico, en particular por que es básicamente el mismo indicador, podemos dejar una sola leyenda usando guides(fill=FALSE) en uno de los gráficos, pero ahí lo que ocurriría es que un gráfico sería más pequeño que el otro por que obviamente debe dejar espacio para ubicar la leyenda. Otra posibilidad interesante (fuente) podría ser usar facet_wrap(), que te permite organizar varios gráficos en función de una formula, en este caso usaremos coor y estableciendo cuantas columnas vamos a querer, automáticamente los gráficos se irán ajustando y como verás la leyenda se dibuja una sola vez.

gg <- ggplot(global_data, aes(x=interaction(time, cont), y=en))
gg <- gg + geom_boxplot(aes(fill=cont))
gg <- gg + facet_wrap(~coor, ncol=2)
gg <- gg + labs(x="")
gg <- gg + theme_bw()
gg <- gg + theme(strip.background=element_rect(fill="black"))
gg <- gg + theme(strip.text=element_text(color="white", face="bold"))
gg <- gg + theme(legend.position="bottom")
gg <- gg + theme(axis.text.x = element_text(angle = 90, hjust = 1, size=8))
gg

El resultado final:

introducir la descripción de la imagen aquí

2
  • Muchas gracias. La primera solución que propones la había intentado, pero en efecto, un gráfico queda más grande que el otro. La segunda solución es muy buena. Sin embargo, el problema es que mis datos reales tienen 10 niveles para la variable "coor", así que me queda todo como muy comprimido. Volviendo a tu primera solución, estaba pensando en si podría "extraer" la leyenda de una de las gráficas y añadirla al grid.arrange. A ver si doy con la clave ;)
    – pyring
    Commented el 21 mar. 2018 a las 16:07
  • Muchas gracias... una consulta. Cuando trato de guardar el grafico como objeto para exportarlo, me sale NULL
    – user267683
    Commented el 27 ene. 2022 a las 23:30
1

En adición a la buena respuesta ya dada, dejo a continuación una alternativa que he encontrado y que da bastante flexibilidad a la hora de compartir la leyenda y generar el gráfico.

Primero el código que ya conocemos para generar los datos y los gráficos:

library(ggplot2)
library(gridExtra)

set.seed(1100)
en <- c(3,3,2.8,2.9,2.5,2,2.1,2,1.25,1,0.4,0.6)
time <- c(1,1,1,1,2,2,2,2,3,3,3,3)
coor <- c(0,0.5,0,0.5,0,0.5,0,0.5,0,0.5,0,0.5)
cont <- c(1,2,3,4,5,6,7,8,9,10)

global_data <- data.frame(en=sample(en,100,replace=TRUE),
                          time=factor(sample(time,100,replace=TRUE)),
                          coor=sample(coor,100,replace=TRUE),
                          cont=factor(sample(cont,100,replace=TRUE)))

f <-subset(global_data,coor==0)
plot1<-ggplot(f, aes(time)) + 
    geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) + 
    scale_y_continuous(limits = c(0, 3)) +
    theme(axis.text=element_text(size=14),
          axis.title=element_text(size=14,face="bold")) +
    theme(legend.position="bottom")

d <-subset(global_data,coor==0.5)
plot2<-ggplot(d, aes(time)) + 
    geom_boxplot(coef =1.5, aes(x=time, y=en, fill=cont), outlier.size = NULL) + 
    scale_y_continuous(limits = c(0, 3)) +
    theme(axis.text=element_text(size=14),
          axis.title=element_text(size=14,face="bold")) +
    theme(legend.position="bottom")

A continuación la función para extraer las leyendas y combinarlas en una sola al pie del multigráfico:

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)

}

Finalmente utilizamos la función para realizar el multigráfico. Nótese la flexibilidad que permite el manejo de número de columnas y filas.

grid_arrange_shared_legend(plot1, plot2, nrow = 1, ncol = 2)

A continuación el resultado:

introducir la descripción de la imagen aquí

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.