Skip to content

[R-es] posición leyenda

2 messages · Carmen Guzmán, Carlos Ortega

Original
Carmen Guzmán
# 
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"
)
Carlos Ortega
# 
Hola,

Prueba con la función "layout()" con la que puedes definir mejor las zonas
de representación de cada elemento. Mejor que con "par()".

Gracias,
Carlos Ortega
www.qualityexcellence.es

El jue., 28 may. 2020 a las 17:54, Carmen Guzmán (<guatespain en gmail.com>)
escribió: