Valeu, <span class="gD">Jônatan</span>! Era isso mesmo oq eu procurava.<span class="go"></span><br><br><div class="gmail_quote">Em 18 de maio de 2012 17:49, Jônatan <span dir="ltr"><<a href="mailto:jdtatsch@gmail.com" target="_blank">jdtatsch@gmail.com</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">require(latticeExtra)<br>?doubleYScale<br><br><br><br><br><div class="gmail_quote">2012/5/18 Lucas Barbosa <span dir="ltr"><<a href="mailto:lucasbcr@gmail.com" target="_blank">lucasbcr@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">
Boa tarde pessoal,<div><br><div>Como posso fazer um gráfico de duas séries em diferentes escalas (com dois eixos verticais) usando o lattice?</div><div><br></div><div>Sei fazer com o plot normal (exemplo abaixo), mas seria muito vantajoso para mim criar uma função panel -- quero fazer vários gráficos, um para cada valor de uma outra variável ("condicionando" com aquela barra vertical).</div>


<div><div><br></div><div>x=1:100</div><div>y1 = rpois(100, 20)</div><div>y2 = rnorm(100, 5)</div><div>par(mar=c(5,5,4,5))</div><div>plot(x, y1, type="l", axes=FALSE, frame=TRUE, ann=FALSE, col=4)</div><div>axis(4)</div>


<div>mtext(text="y1", 4, line=3)</div><div>par(new=T)</div><div>plot(x, y2, type='l', lwd=1.5)</div></div><div><br></div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">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 código mínimo reproduzível.<span class="HOEnZb"><font color="#888888"><br></font></span></blockquote>
</div><span class="HOEnZb"><font color="#888888"><br><br clear="all"><br>-- <br>#------------------------------------------------------------------------------#<br>
# Jônatan Dupont Tatsch                                                           #<br># Climate and Biosphere Laboratory                                           #<br># Department of Atmospheric Sciences                                      #<br>

# Institute of Astronomy, Geophysics and Atmospheric Sciences #<br># University of São Paulo                                                          #<br># Rua do Matão, 1226                                                               #<br>

# Cid. Universitária, São Paulo, SP, Brazil, CEP: 05508-090       #<br># Phone:<a href="tel:%2B55%2011%203091-4772" value="+551130914772" target="_blank">+55 11 3091-4772</a>, Fax:<a href="tel:%2B55%2011%203091-4714" value="+551130914714" target="_blank">+55 11 3091-4714</a>                    #<br>
# <a href="http://jonatandupont.weebly.com/index.html" target="_blank">http://jonatandupont.weebly.com/index.html</a>          #<br>
#------------------------------------------------------------------------------#<br>
</font></span><br>_______________________________________________<br>
R-br mailing list<br>
<a 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 código mínimo reproduzível.<br></blockquote></div><br>