
Hola,
¿Puede ser algo tan sencillo como legend()?

Necesitas definir un valor de abcisa (un año) y uno de ordenada (cualesquiera dentro del rango las funciones graficadas) para cada leyenda, e identificar el color y ancho o tipo de línea respectiva.
Por ejemplo, si deseas que las leyendas aparezcan una abajo de la otra, cambia el valor de ordenada manteneindo 

legend(año,y1,"Alisado",col="red",lty="longdash",lwd=4,cex=...,bty=...)
legend(año,y2,"Original",col="blue",lty="solid",lwd=2,cex=...,bty=...)
legend(año,y3,"Lim Inf",col="purple",lty="dashed",lwd=1,cex=...,bty=...)
legend(año,y4,"Lim Sup",col="purple",lty="dashed",lwd=1,cex=...,bty=...)

Con cex, por supuesto, se ajusta el tamaño de la leyenda, y con bty se determina el tipo de encuadre(por ejemplo bty="n", no se dibuja un cuadro alrededor).

Saludos,

José Luis


-----Original Message-----
From: r-help-es-bounces@r-project.org on behalf of jluis.gilsanz@tasacionesh.com
Sent: Tue 10/05/2011 11:48
To: r-help-es@r-project.org
Subject: [R-es] Leyenda de las series en tsplot
 
Hola de nuevo:

Sigo enfrascado con mi dichoso procedimiento para generar modelos de 
predicción de series temporales.
Llegado un momento pretendo guardar un gráfico en el que se representara:
-En a estarán los puntos obtenidos por el alisado (tanto en el pasado como 
las estimaciones a futuro)
-En o estará la serie de datos original.
-En inf  los limites inferiores de los intervalos de confianza de las 
estimaciones a futuro.
-En sup los limites superiores de dichos intervalos.

Llevo media mañana dándole vueltas a como poner una leyenda que me 
identifique las tres (en realidad 4) series (alisada, original y limites) 
dentro del propio gráfico y no lo consigo.

El comando que estoy usando es:
 ts.plot(a,o,inf,sup, gpars=list(
                                xlab="Años",ylab="Unitario Medio",  
##Etiquetamos los ejes
                                col=c("red","blue","purple","purple"),  ## 
Color rojo para alisado, azul para original y morado para limites
                                lwd=c(4,2,1,1),                         ## 
Ancho de línea 4 para alisado, 2 para original y 1 para limites
 lty=c("longdash","solid","dashed","dashed")                    ## Rayas 
largas para alisado, solido para original y rayitas para limites
                                )
        )

Seguro que es algo muy basico y facil pero no doy con ello. Cualquier 
ayuda sera bienvenida.

Muchas gracias

Salu2

-- AVISO LEGAL -- 

Los datos personales que en esta comunicación aparecen, así como los que nuestra 
empresa mantiene de Vd. y de su empresa, son tratados con la finalidad de mantener 
el contacto así como realizar las gestiones que en esta aparecen (Ley Orgánica 
15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal).   
Puede ejercer sus derechos de acceso, rectificación, cancelación y oposición 
dirigiéndose a atencion.clientes@tasacionesh.com 
La utilización de su dirección de correo electrónico por parte de nuestra empresa 
queda sujeta a las disposiciones de la Ley 34/2002, de Servicios de la Sociedad de 
la Información y el Comercio Electrónico. Si Vd. recibe comunicación comercial por 
nuestra parte y desea dejar de recibirla, rogamos nos lo comunique por vía electrónica 
a través de la dirección atencion.clientes@tasacionesh.com

	[[alternative HTML version deleted]]



	[[alternative HTML version deleted]]

