Leyenda en multiples plots
Si haceis multiples plots y quereis colocar la leyenda debajo de todos ellos o a un lado. Primero, podeis determinar los margenes o aumentar las columnas o filas con par(mfrow=c(3,2)). El comando que hay que añadir es xpd=TRUE
opar <-par(mar = c(20, 4, 4, 4)) #Con par guardamos las opciones gráficas que queremos #en este caso aumentamos los margenes plot(1:10) lines(1:10) par(xpd=TRUE) #xpd para poder usar los margenes legend(locator (1),lty=1, col="black", legend="straigh line") #locator nos permite colocar una o varias leyendas donde le señalemos con el ratón par(opar) #restauramos las opciones de graficos iniciales
