[R-es] como agrego una linea dibujada con abline() en la leyenda de un grafico ?

[neo]

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>