Estimado Eric

En Hmisc la función labcurve puede ser útil, en todos casos crear una 
curva con valores constantes, habría que intentar, pero labcurve en 
algunos ejemplos en mi computadora no anda.

Ayer envié dos correos, el primero era de latticeextra, usted nombra 
lattice, pero podría funcionar, en latticeextra:

## horizontal and vertical lines
xyplot(ysim ~ xsim) +
   layer(panel.ablineq(v = 3, pos = 4, at = 0.1, lty = 2,
                       label = "3.0 (critical value)")) +
   layer(panel.ablineq(h = mean(ysim), pos = 3, at = 0.15, lty = 2,
                       varNames = alist(y = plain(mean)(y))))



Javier Marcuzzi


El 19/11/13 04:24, neo escribió:
> Hola Javier, tu idea me hubiera solucionado el problema si hubiera
> estado usando plot() para hacer el grafico, pero como estoy forzado a
> usar xYplot() del a libreria Hmisc, me arroja un error diciendo que aun
> no uso plot() ... alguna otra idea si estoy usando Hmisc o lattice ?
>
> gracias,
>
> eric.
>
>
>
>
>
>
>
> On Tue 19 Nov 2013 01:02:50 AM CLST, "Marcuzzi, Javier Rubén" wrote:
>> 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@r-project.org
>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es@r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>


	[[alternative HTML version deleted]]

