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.