[R-br] Gráfico com dois eixos y - outra solucao mais simples

[Fabio Mathias Corrêa]

----- Mensagem encaminhada ----
De: Paulo Justiniano Ribeiro Jr <paulojus em c3sl.ufpr.br>
Para: R_STAT em yahoogrupos.com.br
Enviadas: Segunda-feira, 19 de Janeiro de 2009 12:20:48
Assunto: Re: [R_STAT] Gráfico com dois eixos y - outra solucao mais simples


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  
Atividade nos últimos dias
	*  3
Novos usuáriosVisite seu Grupo  
Yahoo! Mail
Conecte-se ao mundo
Proteção anti-spam
Muito mais espaço
Yahoo! Barra
Instale grátis
Buscar sites na web
Checar seus e-mails .
Yahoo! Grupos
Crie seu próprio grupo
A melhor forma de comunicação
. 
__,_._,___    


      
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110317/e4be96c9/attachment-0001.html>