aqui vai uma outra solução bem mais simples (e elegante!):

x <- 1:20
x1 <- rnorm(20)
x2 <- rpois(20, lam=50)
plot(x, x1, type="l")
par(new=T)
plot(x, x2, type="l", axes=F, frame=T, ann=F, col=2)
axis(4)

Paulo Justiniano Ribeiro Jr
LEG (Laboratorio de Estatistica e Geoinformacao)
Universidade Federal do Parana
Caixa Postal 19.081
CEP 81.531-990
Curitiba, PR - Brasil
Tel: (+55) 41 3361 3573
Fax: (+55) 41 3361 3141
e-mail: paulojus AT ufpr br
http://www.leg. ufpr.br/~ paulojus

On Mon, 19 Jan 2009, Paulo Justiniano Ribeiro Jr wrote:

> Caro Henrique e Vinicius
>
> Imagino que o que o Vinicuis quer é um pouco diferente do proposto pelo
> Henrique onde possam ser colocados no mesmo gráfico
> dias variávies de ordem de grandezas diferentes, e portanto o simples uso
> de ylim nao seria suficiente.
>
> Nao sei se tem algo automatizado para isto encapsulado em alguma função do
> R.
> Mas para fazer passo a passo a ideia de solução neste caso seria:
>
> 1. fazer o gráfico da 1a
> 2. fazer um reescalonamento da segunda via uma interpolação linear da
> segunda dentro da faixa de variação da primeira
> 3. adicionar esta segunda reencalonada ao gráfico
> 4. adicionar o eixo do outro lado na escala original.
>
> Um exemplo implementando estes passos:
>
> x <- 1:20
> x1 <- rnorm(20)
> x2 <- rpois(20, lam=50)
>
> plot(x, x1, type="l", axes=F, frame=T)
> axis(1)
> axis(2, at=seq(-2,2, by=1))
>
> x2.n <- min(x1) + (diff(range( x1))/diff( range(x2) )) * (x2-min(x2))
> lines(x, x2.n, col=2)
> x2.l <- min(x2) + (diff(range( x2))/diff( range(x1) )) * (seq(-2,2,by= 1) -
> min(x2))
> axis(4, at=seq(-2,2, by=1), labels = round(x2.l, dig=1))
>
>
>
> Paulo Justiniano Ribeiro Jr
> LEG (Laboratorio de Estatistica e Geoinformacao)
> Universidade Federal do Parana
> Caixa Postal 19.081
> CEP 81.531-990
> Curitiba, PR - Brasil
> Tel: (+55) 41 3361 3573
> Fax: (+55) 41 3361 3141
> e-mail: paulojus AT ufpr br
> http://www.leg. ufpr.br/~ paulojus
>
>
>
> On Mon, 19 Jan 2009, Henrique Dallazuanna wrote:
>
> > Tente assim:
> >
> > par(mar = c(5, 4, 3, 4))
> > plot(1:10, rnorm(10), type = 'l', ylim = c(1, 20))
> > lines(11:20, col = 'red')
> > axis(4)
> > mtext(text = "Segundo Eixo Y", 4, line = 3)
> >
> > 2009/1/19 Vinicius Brito Rocha <viniciusbritor@ hotmail.com>
> >
> > > Srs.
> > >
> > > quero plotar informações com diferentes escalas em um mesmo gráfico, queria
> > > usar um recurso semelhante ao do excel, onde um eixo y fica do lado direito
> > > e o outro do lado esquerdo.
> > >
> > >
> > >
> > > Vinicius Brito Rocha.
> > >
> > >
> > >
> > >
> > >
> > > ------------ --------- ---------
> > > É fácil compartilhar suas fotos com o Windows LiveT Arraste e solte<http://www.microsof t.com/windows/ windowslive/ photos.aspx>
> > >
> > >
> >
> >
> >
> > --
> > Henrique Dallazuanna
> > Curitiba-Paraná -Brasil
> > 25° 25' 40" S 49° 16' 22" O
> >
>

Mensagens neste tópico (4) Responder (através da web) | Adicionar um novo tópico

Mensagens | Arquivos | Fotos | Links | Banco de dados | Enquetes

Alterar configurações via web (Requer Yahoo! ID)
Alterar configurações via e-mail: Alterar recebimento para lista diária de mensagens | Alterar formato para o tradicional
Visite seu Grupo | Termos de uso do Yahoo! Grupos | Sair do grupo

•  3
  Novos usuários

Visite seu Grupo