<div dir="ltr"><div><div>Você tem que usar as posições das barras no seu plot.<br></div>Veja que as posições das barras estão salvas no grafico.<br><br></div>Pode tentar:<br><br><div><div>###</div><div>barras <- 1:10</div><div>linhas <- 1/barras</div><div><br></div><div>grafico<- barplot(barras, beside = T, xaxt = 'n', ylim = c(0,20), las = 2,</div><div>    ylab = expression (Harvested~area~(x~10^{6}~ha)), xlab = "years")</div><div>axis(1, at = grafico, labels = 1990:1999, las = 3)</div><div><br></div><div>par(new = T)</div><div>with(dados, plot(<span style="color:rgb(255,0,0)">grafico</span>,linhas, ty = 'l', lwd = 2, axes = F, ann = F, ylim = c(0,1)))</div><div>mtext('test number', side = 4, line = 3)</div><div>x = seq(0,1, 0.1)</div><div>axis(4,x, las = 2)</div></div><div>###<br><br></div><div>veja que alterei o plot ali, tenta isso, ve se da certo.<br></div><br></div><div class="gmail_extra"><br><div class="gmail_quote">Em 26 de maio de 2015 07:59, Leonardo Monteiro <span dir="ltr"><<a href="mailto:monteiroleonardo6@gmail.com" target="_blank">monteiroleonardo6@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><br><div>Prezados, bom dia.</div><div><br></div><div>tenho o seguinte:</div><div><br></div><div><div>###</div><div>barras <- 1:10</div><div>linhas <- 1/barras</div><div><br></div><div>grafico<- barplot(barras, beside = T, xaxt = 'n', ylim = c(0,20), las = 2,</div><div>    ylab = expression (Harvested~area~(x~10^{6}~ha)), xlab = "years")</div><div>axis(1, at = grafico, labels = 1990:1999, las = 3)</div><div><br></div><div>par(new = T)</div><div>with(dados, plot(linhas, ty = 'l', lwd = 2, axes = F, ann = F, ylim = c(0,1)))</div><div>mtext('test number', side = 4, line = 3)</div><div>x = seq(0,1, 0.1)</div><div>axis(4,x, las = 2)</div></div><div>###</div><div><br></div><div>entretanto, nao consigo alinhar os eixos 'y'..</div><div><br></div><div>alguem teria uma sugestão?</div><div><br></div><div>obrigado,</div><div><br></div><div>Leonardo.</div></div>
<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><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr"><div>Grato<br>Augusto C. A. Ribas</div>
<div> </div>
<div>Site Pessoal: <a href="http://recologia.com.br/" target="_blank">http://recologia.com.br/</a><a href="http://augustoribas.heliohost.org" target="_blank"></a></div><div>Github: <a href="https://github.com/Squiercg" target="_blank">https://github.com/Squiercg</a></div>
<div>Lattes: <a href="http://lattes.cnpq.br/7355685961127056" target="_blank">http://lattes.cnpq.br/7355685961127056</a><br></div></div></div>
</div>