Hola tod@s, al utilizar 2 gráficos en uno con *par(mfrow=c(1,2)), *solo deseo poner leyenda por dentro a uno de los gráficos. Lo he hecho, pero deseo que la leyenda quede mas cerca del borde, ya que al máximizar la ventana extra x11(), la leyenda sale casi a la mitad del gráfico a pesar de usar topright con el código legend('topright', legend = levels(Presas$Season), col = 1:4, cex = 0.7, pch = 16). Copio todo el código a continuación. Gracias
x11() par(mfrow=c(1,2), mar=c(5,5,5,1) + .1) I.nought = -15.479969 I1 = I.nought + 0 I2 = I.nought + -0.319291 I3 = I.nought + -5.606254 B = 0.051463 plot(x = Presas$Lat, y = Presas$C, col = Presas$Season, pch = 16, xlab = "Latitude", ylab = "C") abline(I1, B, lty=1, lwd=2, col = 1) abline(I2, B, lty=1, lwd=2, col = 2) abline(I3, B, lty=1, lwd=2, col = 3) legend("topleft", c("a"), inset=c(0,-0.07), xpd=TRUE, horiz=TRUE, bty="n" ) I.nought = 26.34891 I1 = I.nought + 0 I2 = I.nought + 0.84785 I3 = I.nought + -13.00021 B = -0.13421 plot(x = Presas$Lat, y = Presas$N, col = Presas$Season, pch = 16, xlab = "Latitude", ylab = "N") legend('topright', legend = levels(Presas$Season), col = 1:4, cex = 0.7, pch = 16) abline(I1, B, lty=1, lwd=2, col = 1) abline(I2, B, lty=1, lwd=2, col = 2) abline(I3, B, lty=1, lwd=2, col = 3) legend("topleft", c("b"), inset=c(0,-0.07), xpd=TRUE, horiz=TRUE, bty="n" ) [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es