<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:10pt"><div><span>Pode crer..hehe</span></div><div><span>Eu tb não me atentei a esse detalhe.<br>Vou mandar um cc p a lista :-)<br>Abraço<br></span></div><div> </div><div style="text-align:left;"><font style="font-family:times new roman, new york, times, serif;font-style:italic;" size="4"><span style="color:rgb(0, 0, 255);">Marcelo Claro de Souza</span></font><br></div><div><font size="1">Biologist, PhD student in Plant Biology<br>Institute of Bioscience - UNESP, Brazil<br><br></font><style><!--p.MsoNormal, li.MsoNormal, div.MsoNormal {margin:0cm;margin-bottom:.0001pt;font-size:12.0pt;font-family:"Times New Roman";}a:link, span.MsoHyperlink {color:blue;text-decoration:underline;}a:visited, span.MsoHyperlinkFollowed {color:purple;text-decoration:underline;}filtered {margin:70.85pt 3.0cm 70.85pt 3.0cm;}div.Section1 {}--></style><span
style="font-size:10pt;"></span> </div><div><br></div> <div style="font-family: arial, helvetica, sans-serif; font-size: 10pt;"> <div style="font-family: times new roman, new york, times, serif; font-size: 12pt;"> <div dir="ltr"> <font face="Arial" size="2"> <hr size="1"> <b><span style="font-weight:bold;">De:</span></b> Augusto Ribas <ribas.aca@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> Marcelo Claro de Souza <marcelo_claro@yahoo.com.br> <br> <b><span style="font-weight: bold;">Enviadas:</span></b> Quarta-feira, 1 de Agosto de 2012 21:09<br> <b><span style="font-weight: bold;">Assunto:</span></b> Re: [R-br] barplot + lines com dois eixos Y<br> </font> </div> <br>Nossa agora que vi, a gente tava trocando e-mail pessoais.<br>Tava respondendo e nem vi.<br>Era bom deixa as resposta la na lista, pra aparecer no nabble, ai se<br>alguem procurar via google ou sei la ja acha como fazer.<br>Eu sempre acho muitas soluções
assim :)<br><br>Em 31 de julho de 2012 23:09, Marcelo Claro de Souza<br><<a ymailto="mailto:marcelo_claro@yahoo.com.br" href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>> escreveu:<br>> Olá Augusto.<br>> Agradeço de coração todas as dicas que vc me deu.<br>> Finalmente deu certo a figura que eu queria fazer.<br>><br>> Abraço.<br>><br>> Marcelo Claro de Souza<br>> Biologist, PhD student in Plant Biology<br>> Institute of Bioscience - UNESP, Brazil<br>><br>><br>> ________________________________<br>> De: Augusto Ribas <<a ymailto="mailto:ribas.aca@gmail.com" href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>><br>> Para: Marcelo Claro de Souza <<a ymailto="mailto:marcelo_claro@yahoo.com.br" href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>><br>> Enviadas: Terça-feira, 31 de Julho de 2012 20:26<br>><br>> Assunto: Re: [R-br] barplot +
lines com dois eixos Y<br>><br>> x=c(seq(1:12))<br>> rainfall=c(17.54,7.68,9.87,5.45,0.15,1.61,0.01,0.33,1.53,4.85,3.77,9.35)##barras<br>> tmax=c(30.21,30.71,27.23,28.23,25.19,24.39,26.59,28.39,29.77,28.49,28.61,29.79)##linhas<br>> tmin=c(16.82,16.36,15.91,15.8,11.57,9.07,13.07,12.65,12.98,15.47,16.21,17.26)##linhas<br>> tmed=c(23.51,23.53,21.57,22.02,18.38,16.73,19.83,20.52,21.38,21.98,22.41,23.53)##linhas<br>><br>><br>> #o que vc vai ter que fazer é mudar as margens<br>> #vc faz isso com um argumento dentro do par, o argumento mar<br>> #basicamente é a distancia das coisas assim: c(bottom, left, top, right)<br>> #os valores padrao são: c(5, 4, 4, 2) + 0.1., so subir o 2 pra mais<br>> linhas pra caber o texto<br>> #da ?par e da uma olhada na documentação<br>><br>> par(mar=c(5, 4, 4, 5) + 0.1)<br>> barras<-barplot(rainfall,axes=F,ylab="Nome do eixo esquerdo aqui")<br>>
axis(2)<br>> axis(1,col="red")<br>><br>> par(new=TRUE,mar=c(5, 4, 4, 5) + 0.1)<br>> plot(tmed~barras,type="b",ylim=c(5,35),xlim=c(0.2,14.4),frame.plot=F,axes=F,ylab=NA)<br>> #note que eu coloquei ylab=NA aqui em cima pq se vc escrever algo aqui<br>> vai sobrepor<br>> #com o que ja deixou de leganda no barplot()<br>> points(tmin~barras,type="b",lty=2)<br>> points(tmax~barras,type="b",lty=2)<br>> axis(4)<br>> #vc vai usar o comando mtext, que é pra escrever texto fora da area do plot.<br>> #de ?mtext e veja as muitas possibilidades<br>> #basicamente eu falei o lado no side, e a distancia do plot, line.<br>> mtext(text="Nome do eixo direito aqui", side = 4,line = 3)<br>> axis(1)<br>><br>> #Mas lembre-se que existem mil jeitos de fazer as mesma coisa<br>> #Talvez essa não seja a melhor forma, mas espero que possa resolver<br>> seus problemas<br>><br>> Em 31 de julho de 2012 08:50, Marcelo
Claro de Souza<br>> <<a ymailto="mailto:marcelo_claro@yahoo.com.br" href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>> escreveu:<br>>> Augusto,<br>>> Muito obrigado. Vc me ajudou muito.<br>>> Uma última dúvida.<br>>> Para alterar a legenda do eixo Y do lado esquerdo eu uso o comando ylab,<br>>> mas<br>>> o mesmo não funciona para o segundo eixo Y. Qual comando devo usar para<br>>> inserir a legenda do lado direito?<br>>> Abraço.<br>>><br>>> Marcelo Claro de Souza<br>>> Biologist, PhD student in Plant Biology<br>>> Institute of Bioscience - UNESP, Brazil<br>>><br>>><br>>> ________________________________<br>>> De: Augusto Ribas <<a ymailto="mailto:ribas.aca@gmail.com" href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>><br>>> Para: Marcelo Claro de Souza <<a ymailto="mailto:marcelo_claro@yahoo.com.br"
href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>><br>>> Enviadas: Segunda-feira, 30 de Julho de 2012 21:07<br>>><br>>> Assunto: Re: [R-br] barplot + lines com dois eixos Y<br>>><br>>> So mais uma coisa, note que os eixos vão ficar bagunçados:<br>>><br>>> barras<-barplot(rainfall,axes=F)<br>>> axis(2)<br>>> #vou colocar aqui em vermelho o eixo x do grafico de barras pra gente<br>>> ver como fica em relação ao outro<br>>> axis(1,col="red")<br>>> par(new=TRUE)<br>>><br>>> plot(tmed~barras,type="b",ylim=c(5,35),frame.plot=F,axes=F)<br>>> points(tmin~barras,type="b",lty=2)<br>>> points(tmax~barras,type="b",lty=2)<br>>> axis(4)<br>>> axis(1)<br>>><br>>> A bolinha era pra ficar no centro da barra, mas não tava ficando.<br>>> Isso por causa da escala de x, que do plot ficou diferente do
barblot<br>>> pra dar certo, bolinhas no meio da barrinha.<br>>> dai tem que arrumar o limite do eixo x no plot:<br>>><br>>> #denovo<br>>> barras<-barplot(rainfall,axes=F)<br>>> axis(2)<br>>> #denovo vermelho pra gente ver<br>>> axis(1,col="red")<br>>> par(new=TRUE)<br>>><br>>><br>>><br>>> plot(tmed~barras,type="b",ylim=c(5,35),xlim=c(0.2,14.4),frame.plot=F,axes=F)<br>>> points(tmin~barras,type="b",lty=2)<br>>> points(tmax~barras,type="b",lty=2)<br>>> axis(4)<br>>> #agora nao ficou bagunçado<br>>> axis(1)<br>>><br>>> #isso por causa do jeito que o barplot constroi o eixo X é diferente do<br>>> plot<br>>> #mas eu não entendo perfeitamente a diferença pra explicar<br>>> #espero estar mais ajudando que atrapalhando agora.<br>>><br>>><br>>> Em 30 de julho de 2012 19:28, Augusto Ribas <<a
ymailto="mailto:ribas.aca@gmail.com" href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>><br>>> escreveu:<br>>>> Humm<br>>>><br>>>> Veja se isso te ajuda:<br>>>><br>>>> #Vai faze o grafico de barras<br>>>> barplot(rainfall,axes=F)<br>>>> #o eixo dele<br>>>> axis(2)<br>>>><br>>>> #vai recomeça o plot, na mesma janela<br>>>> par(new=TRUE)<br>>>><br>>>> #um plot normal de linha<br>>>> plot(tmed~barras,type="b",ylim=c(5,35),frame.plot=F,axes=F)<br>>>> #as outras 2 linhas<br>>>> points(tmin~barras,type="b",lty=2)<br>>>> points(tmax~barras,type="b",lty=2)<br>>>> #vai fazer o eixo do outro lado (direito)<br>>>> axis(4)<br>>>><br>>>> #note que eu fiz os graficos sem eixos, e os adicionei a parte com o<br>>>> comando axis,<br>>>> #com o axis
vc pode faze o eixo da forma que preferir.<br>>>> #ai da pra controla cada grafico independente quanto a cores, tamanhos<br>>>> eixos tudo<br>>>> #se quiser mudar a escala, de uma olhada no comando ?scale(), mas acho<br>>>> que talvez a solução acima seja mais<br>>>> #o que vc deseja<br>>>><br>>>> Em 30 de julho de 2012 17:27, Marcelo Claro de Souza<br>>>> <<a ymailto="mailto:marcelo_claro@yahoo.com.br" href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>> escreveu:<br>>>>> Olá Augusto,<br>>>>> Muito obrigado pela ajuda.<br>>>>> Eu preciso que os dois eixos Y sejam independentes (escalas diferentes),<br>>>>> de<br>>>>> modo que as linhas fiquem sobre as barras.<br>>>>> Tem como fazer isso?<br>>>>> Muito obrigado.<br>>>>>
Abraço.<br>>>>><br>>>>><br>>>>> Marcelo Claro de Souza<br>>>>> Biologist, PhD student in Plant Biology<br>>>>> Institute of Bioscience - UNESP, Brazil<br>>>>><br>>>>><br>>>>> ________________________________<br>>>>> De: Augusto Ribas <<a ymailto="mailto:ribas.aca@gmail.com" href="mailto:ribas.aca@gmail.com">ribas.aca@gmail.com</a>><br>>>>> Para: <a ymailto="mailto:r-br@listas.c3sl.ufpr.br" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>; Marcelo Claro de Souza<br>>>>> <<a ymailto="mailto:marcelo_claro@yahoo.com.br" href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>><br>>>>> Enviadas: Segunda-feira, 30 de Julho de 2012 17:40<br>>>>> Assunto: Re: [R-br] barplot + lines com dois eixos Y<br>>>>><br>>>>> Bom, de inicio acredito
que vai ser algo assim:<br>>>>><br>>>>> barras<-barplot(rainfall,ylim=c(0,35))<br>>>>> points(tmed~barras,type="l")<br>>>>> points(tmin~barras,type="l",lty=2)<br>>>>> points(tmax~barras,type="l",lty=2)<br>>>>> axis(4)<br>>>>><br>>>>> #vc vai salvar a posição das barras no vertor barras<br>>>>> #ai depois note que vc esta fazendo as linhas<br>>>>> # e por ultimo use o comando axes pra fazer o segundo ou mais eixos,<br>>>>> se quiser algo no eixo X tb<br>>>>> #leia a documentação pra deixa do jeito que gostar ?axis<br>>>>><br>>>>><br>>>>> #agora não sei se entra nas suas necessidades mas<br>>>>> #de uma olhada nesse pacote e nos graficos que da pra fazer com ele<br>>>>> #é exatamente o tipo de dado que vc ilustrou<br>>>>> #por
exemplo:<br>>>>><br>>>>> install.packages("climatol")<br>>>>> require(climatol)<br>>>>><br>>>>> data(datcli)<br>>>>> #exemplo dele<br>>>>> datcli<br>>>>> #seus dados<br>>>>> t(data.frame(rainfall,tmax,tmin,tmed))<br>>>>><br>>>>> #exemplo do comando<br>>>>> diagwl(datcli,est="Example station",alt=100,per="1961-90",mlab="en")<br>>>>> #seus dados de exemplo<br>>>>> diagwl(t(data.frame(rainfall,tmax,tmin,tmed)),est="Example<br>>>>> station",alt=100,per="1961-90",mlab="en")<br>>>>><br>>>>><br>>>>> Em 30 de julho de 2012 15:18, Marcelo Claro de Souza<br>>>>> <<a ymailto="mailto:marcelo_claro@yahoo.com.br" href="mailto:marcelo_claro@yahoo.com.br">marcelo_claro@yahoo.com.br</a>> escreveu:<br>>>>>> Preciso plotar um
gráfico de variáveis climáticas sendo o eixo Y<br>>>>>> esquerdo<br>>>>>> referente à precipitação e o eixo Y direito referente às temperaturas<br>>>>>> min,<br>>>>>> med e max.<br>>>>>> A precipitação deve ser apresentada em barras e as temperaturas em<br>>>>>> linhas.<br>>>>>> Como posso fazer isso?<br>>>>>><br>>>>>> x=c(seq(1:12))<br>>>>>><br>>>>>><br>>>>>><br>>>>>> rainfall=c(17.54,7.68,9.87,5.45,0.15,1.61,0.01,0.33,1.53,4.85,3.77,9.35)##barras<br>>>>>><br>>>>>><br>>>>>><br>>>>>> tmax=c(30.21,30.71,27.23,28.23,25.19,24.39,26.59,28.39,29.77,28.49,28.61,29.79)##linhas<br>>>>>><br>>>>>><br>>>>>><br>>>>>>
tmin=c(16.82,16.36,15.91,15.8,11.57,9.07,13.07,12.65,12.98,15.47,16.21,17.26)##linhas<br>>>>>><br>>>>>><br>>>>>><br>>>>>> tmed=c(23.51,23.53,21.57,22.02,18.38,16.73,19.83,20.52,21.38,21.98,22.41,23.53)##linhas<br>>>>>><br>>>>>> Muito obrigado pela ajuda.<br>>>>>> Abraço.<br>>>>>><br>>>>>> Marcelo Claro de Souza<br>>>>>> Biologist, PhD student in Plant Biology<br>>>>>> Institute of Bioscience - UNESP, Brazil<br>>>>>><br>>>>>><br>>>>>> _______________________________________________<br>>>>>> R-br mailing list<br>>>>>> <a ymailto="mailto:R-br@listas.c3sl.ufpr.br" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>>>>>> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>>>>>> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça<br>>>>>> código<br>>>>>> mínimo reproduzível.<br>>>>><br>>>>><br>>>>><br>>>>> --<br>>>>> Grato<br>>>>> Augusto C. A. Ribas<br>>>>><br>>>>> Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>>>>> Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>>>>><br>>>>><br>>>><br>>>><br>>>><br>>>> --<br>>>> Grato<br>>>> Augusto C. A. Ribas<br>>>><br>>>> Site Pessoal: <a
href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>>>> Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>>><br>>><br>>><br>>> --<br>>> Grato<br>>> Augusto C. A. Ribas<br>>><br>>> Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>>> Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>>><br>>><br>><br>><br>><br>> --<br>> Grato<br>> Augusto C. A. Ribas<br>><br>> Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>> Lattes: <a href="http://lattes.cnpq.br/7355685961127056"
target="_blank">http://lattes.cnpq.br/7355685961127056</a><br>><br>><br><br><br><br>-- <br>Grato<br>Augusto C. A. Ribas<br><br>Site Pessoal: <a href="http://augustoribas.heliohost.org/" target="_blank">http://augustoribas.heliohost.org</a><br>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br><br><br> </div> </div> </div></body></html>