----- Mensagem encaminhada ---- De: Paulo Justiniano Ribeiro Jr <[email protected]> Para: [email protected] 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 . __,_._,___
_______________________________________________ R-br mailing list [email protected] https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
