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 (<guatesp...@gmail.com>)
escribió:
> 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
>
--
Saludos,
Carlos Ortega
www.qualityexcellence.es
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
