R help es - Nov 2013 - como agrego una linea dibujada con abline() en la leyenda de un grafico ?

Estimados, tengo un grafico al que agregue una linea con abline(), este
es el codigo ...

	library(Hmisc)

	# agregar una linea horizontal con el valor del angulo de contacto del
control
	trellis.device(color = FALSE)
	xYplot(Cbind(ca.med[,3],ca.med[,5],ca.med[,6])~ca.med[,2], groups=Sol,
data=ca.med, xlab=list(label="Concentration (mM)", cex=1.3),
ylab=list(label="Contact Angle (°)", cex=1.3), keys="lines",
type="b",
method="bars", scales=list(x=list(log=10), cex=1.3),
abline=list(h=120,
lty=4))




Mi pregunta es, como puedo hacer que la linea dibujada con abline()
aparezca en la leyenda con su respectivo tipo de linea ??

Adjunto el conjunto de datos para que prueben,

mucha gracias, eric.
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: ca.med.csv
Type: text/csv
Size: 1122 bytes
Desc: no disponible
URL:
<https://stat.ethz.ch/pipermail/r-help-es/attachments/20131116/5f5c27fa/attachment.bin>

solo quiero reponer esta pregunta ya que necesito hacer esto en varios
graficos

slds, eric.








On 11/16/2013 07:39 PM, neo wrote:
> Estimados, tengo un grafico al que agregue una linea con abline(), este
> es el codigo ...
> 
> 	library(Hmisc)
> 
> 	# agregar una linea horizontal con el valor del angulo de contacto del
> control
> 	trellis.device(color = FALSE)
> 	xYplot(Cbind(ca.med[,3],ca.med[,5],ca.med[,6])~ca.med[,2], groups=Sol,
> data=ca.med, xlab=list(label="Concentration (mM)", cex=1.3),
> ylab=list(label="Contact Angle (°)", cex=1.3),
keys="lines", type="b",
> method="bars", scales=list(x=list(log=10), cex=1.3),
abline=list(h=120,
> lty=4))
> 
> 
> 
> 
> Mi pregunta es, como puedo hacer que la linea dibujada con abline()
> aparezca en la leyenda con su respectivo tipo de linea ??
> 
> Adjunto el conjunto de datos para que prueben,
> 
> mucha gracias, eric.
>

Estimado Eric

Podría probar con label = ....
Leer del sitio 
http://latticeextra.r-forge.r-project.org/man/panel.lmlineq.html

Intente por ese lado, si tiene  inconvenientes busco dentro de mis 
códigos donde utilizo esa opción y creo un ejemplo.

Javier Marcuzzi


El 18/11/13 22:49, neo escribió:
> solo quiero reponer esta pregunta ya que necesito hacer esto en varios
> graficos
>
> slds, eric.
>
>
>
>
>
>
>
>
> On 11/16/2013 07:39 PM, neo wrote:
>> Estimados, tengo un grafico al que agregue una linea con abline(), este
>> es el codigo ...
>>
>> 	library(Hmisc)
>>
>> 	# agregar una linea horizontal con el valor del angulo de contacto del
>> control
>> 	trellis.device(color = FALSE)
>> 	xYplot(Cbind(ca.med[,3],ca.med[,5],ca.med[,6])~ca.med[,2], groups=Sol,
>> data=ca.med, xlab=list(label="Concentration (mM)", cex=1.3),
>> ylab=list(label="Contact Angle (°)", cex=1.3),
keys="lines", type="b",
>> method="bars", scales=list(x=list(log=10), cex=1.3),
abline=list(h=120,
>> lty=4))
>>
>>
>>
>>
>> Mi pregunta es, como puedo hacer que la linea dibujada con abline()
>> aparezca en la leyenda con su respectivo tipo de linea ??
>>
>> Adjunto el conjunto de datos para que prueben,
>>
>> mucha gracias, eric.
>>
> _______________________________________________
> R-help-es mailing list
> R-help-es@r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es

	[[alternative HTML version deleted]]

Eric

Recordé un ejemplo rápido

## Setup up coordinate system (with x == y aspect ratio):
plot(c(-2,3), c(-1,5), type = "n", xlab = "x", ylab =
"y", asp = 1)
## the x- and y-axis, and an integer grid
abline(h = 0, v = 0, col = "gray60")
text(1,0, "abline( h = 0 )", col = "gray60", adj = c(0,
-.1))
abline(h = -1:5, v = -2:3, col = "lightgray", lty = 3)
abline(a = 1, b = 2, col = 2)
text(1,3, "abline( 1, 2 )", col = 2, adj = c(-.1, -.1))

¿Es eso lo que necesita?

Javier Marcuzzi

El 18/11/13 22:49, neo escribió:
> solo quiero reponer esta pregunta ya que necesito hacer esto en varios
> graficos
>
> slds, eric.
>
>
>
>
>
>
>
>
> On 11/16/2013 07:39 PM, neo wrote:
>> Estimados, tengo un grafico al que agregue una linea con abline(), este
>> es el codigo ...
>>
>> 	library(Hmisc)
>>
>> 	# agregar una linea horizontal con el valor del angulo de contacto del
>> control
>> 	trellis.device(color = FALSE)
>> 	xYplot(Cbind(ca.med[,3],ca.med[,5],ca.med[,6])~ca.med[,2], groups=Sol,
>> data=ca.med, xlab=list(label="Concentration (mM)", cex=1.3),
>> ylab=list(label="Contact Angle (°)", cex=1.3),
keys="lines", type="b",
>> method="bars", scales=list(x=list(log=10), cex=1.3),
abline=list(h=120,
>> lty=4))
>>
>>
>>
>>
>> Mi pregunta es, como puedo hacer que la linea dibujada con abline()
>> aparezca en la leyenda con su respectivo tipo de linea ??
>>
>> Adjunto el conjunto de datos para que prueben,
>>
>> mucha gracias, eric.
>>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es