Hola tod en 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]]