Buenas

Además del enlace que te sugiere Carlos, este código hace el trabajo:

tsdat <- ts(data.frame(x=runif(10), y=rnorm(10, 5)))
ratio <- max(tsdat[, "x"])/max(tsdat[, "y"])
opar  <- par(mai = rep(1, 4))
plot(tsdat[, "x"], ylab="", lwd=2, main="Evolución variables X e Y")
lines(ratio*tsdat[, "y"], col="red", lwd=2)
axis(side=4, col="red", col.axis="red", at=ratio*pretty(tsdat[, "y"]),
     lab=pretty(tsdat[, "y"]))
legend("bottomleft", c("X", "Y"), lty=1, lwd=2, col=c(1,2))
par(opar)

Yo lo encontré buscando, pero a estas alturas no sabría decir dónde.

Un saludo
Gregorio R. Serrano



El 1 de julio de 2010 10:56, Carlos Ortega <coforfe@gmail.com> escribió:

> Hola,
>
> Por si necesitaras hacer algún otro tipo de gráfico, este es un buen sitio
> para ver ejemplos (y código):
>
> http://addictedtor.free.fr/graphiques/thumbs.php
>
> <http://addictedtor.free.fr/graphiques/thumbs.php>Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
>
> 2010/6/30 Lucas Bianchi <bianchi_lucas@yahoo.com.ar>
>
> > Hola amigos,
> >  estuve buscando en internet por horas y no pude encontrar nada.
> > quisiera hacer un gráfico que tenga dos escalas diferentes para dos (o
> más)
> > variables distintas sobre el eje y.
> > El clásico ejemplo es el de los climogramas, en el que se grafican la
> > precipitación y la temperatura respecto de los meses.
> > En el eje x van los meses, en uno de los ejes y, la escala de la
> > temperatura
> > y en el otro la de la precipitación. Lo ideal sería que se puedan usar
> > líneas y puntos de distintos colores y tramas.
> > No pude encontrar ni un sólo ejemplo de cómo lograr algo parecido a esto.
> > No tengo mucha experiencia en R, ¿es posible hacer algo así? Espero que
> sí
> > y
> > que me puedan ayudar.
> > Estoy casi a punto de darme por vencido, si no es posible hacer esto en R
> > ¿me pueden sugerir algún programa para hacer gráficos que me ayude? (que
> > corra bajo Linux)
> > Muchas Gracias,
> > Lucas.
> >
> >        [[alternative HTML version deleted]]
> >
> >
> > _______________________________________________
> > R-help-es mailing list
> > R-help-es@r-project.org
> > https://stat.ethz.ch/mailman/listinfo/r-help-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
>
>


-- 
Dr. Gregorio R. Serrano
Dpto. Economía Cuantitativa (UCM)
Voz:+34 91394 2361
Fax:+34 91394 2591
http://www.ucm.es/info/ecocuan/grs

	[[alternative HTML version deleted]]

