<br><div class="gmail_quote"><br><div><div style="font-size:12pt;font-family:arial,helvetica,sans-serif">
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">Caros
colegas da lista R,</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">Envio
este post para saber se alguém pode me auxiliar ou dar algumas dicas de
bibliografia sobre como colocar uma quebra (intervalo) no eixo y em gráficos.</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">Segue
o código reproduzível abaixo cujo intervalo ultrapassa o eixo y e não gostaria
de aumentar os limites de Maximo no eixo y<span>
</span>pois a maioria dos dados acaba ficando restrita num pequeno intervalo
que dificulta a visualização. Eu encontrei o comando (</span></i><i><span style="font-family:"Arial","sans-serif"" lang="EN-US">axis.break) mas não consegui implementar no grafico.<br></span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">Sds
estatísticas e antecipadamente agradeço alguma orientação.</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">Wenceslau
Teixeira </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">Embrapa
Solos</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#X
SÃO AS DATAS</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">x
<- c("30/04/2010","13/05/2010","28/05/2010",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"15/06/2010","30/06/2010","15/07/2010",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"30/07/2010","15/08/2010","30/08/2010",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"15/09/2010","30/09/2010","15/10/2010",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"30/10/2010","15/11/2010","30/11/2010",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span> </span>"15/12/2010","30/12/2010","15/01/2011",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"30/01/2011","15/02/2011","28/02/2011",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"15/03/2011","30/03/2011","15/04/2011",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"30/04/2011","15/05/2011","30/05/2011",</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>"15/06/2011","30/06/2011","15/07/2011")</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#Y</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">y
<- c(0.067,0.094,0.039,0.048,0.123,0.080,0.036,0.179,0.069,0.601,NA,NA,0.057,NA,NA,0.028,0.273,0.052,0.045,0.476,0.154,0.314,0.120,0.100,0.079,1.208,8.388,3.307,0.774,0.244)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#SDXX
E O DESVIO PADRAO DO ELEMENTO FE A 10 CM QUE SERA FEITO O GRAFICO</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">SDFE10
<-c(0.018,0.028,0.013,0.047,0.132,0.056,0.011,0.177,0.008,0.000,NA,NA,0.028,NA,NA,0.000,0.387,0.030,0.000,0.622,0.037,0.157,0.054,0.030,0.031,1.907,9.203,4.629,1.041,0.189)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#
colocar num data.frame, eliminar NA, converter para data</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">da
<- data.frame(x=as.POSIXlt(x, format="%d/%m/%Y"),
y=y,cex.axis=0.5, sd=SDFE10)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#da
<- na.omit(da)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">da$x</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#fazer
o grafico </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">plot(y~x,tck=0.01,
data=da,ylab=expression(Concentração~de~Ferro~na~solução~do~solo~(mg~L^{-1})),tck=0.01,xlab="",
pch=24,cex.axis=0.5, type="p", xaxt="n",ylim=c(-0.2,0.8))</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US">with(da, arrows(x, y-sd, x, y+sd,cex.axis=0.5, code=3,
angle=90,length=0.03))</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US"> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US">axis.POSIXct(side=1, at=da$x, las=2,
format="%d/%m/%Y",cex.axis=0.5)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US"> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#adicionado
os outros dados da prof50 cm </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">par(new=TRUE)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#Y
SÃO OS DADOS DO FE50CM</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">y1
<-
c(0.097,0.029,0.026,0.053,0.056,0.014,0.015,0.122,NA,0.140,0.160,NA,0.088,NA,NA,NA,NA,NA,0.017,0.070,0.052,0.173,0.079,0.037,0.050,0.420,0.280,0.030,0.057,0.037)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#SDXX
E O DESVIO PADRAO FERRO A 50 CM<span> </span>FEITO O
GRAFICO </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">SDFE50
<- c(0.078,0.000,0.012,0.057,0.011,0.000,0.000,0.000,NA,0.000,0.000,,0.000,NA,NA,NA,NA,NA,0.000,0.027,0.029,0.062,0.019,0.006,0.000,0.114,0.227,0.000,0.000,0.000)</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US"># break axis</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US">#axis.break(2, 22, style="zigzag")</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US"> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US"> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#fazer
o segundo grafico </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">plot(y1~x,
data=da,cex.axis=0.5,</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""><span>
</span>ylab=expression(Concentração~de~Ferro~na~solução~do~solo~(mg~L^{-1})),xlab="",tck=0.01,
pch=19, type="p", xaxt="n",ylim=c(-0.2,0.8))</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US">with(da, arrows(x, y1-sd, x, y1+sd, code=3,
angle=90,length = 0.03))</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"" lang="EN-US"> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#Adicionando
uma legenda</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">legend("topright",
c("10 cm", "50 cm"),<span>
</span>pch = c(24,19))</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">#informação
sobre O tratamento </span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif"">legend("topleft",
c("Tratamento - TENS Dendê"))</span></i></p>
<p class="MsoNormal"><i><span style="font-family:"Arial","sans-serif""> </span></i></p>
<br><br>-- <br><div><span name="x"></span>Wenceslau Geraldes Teixeira<br>Pesquisador Embrapa <br><br><br>Embrapa Solos (<a href="http://www.cnps.embrapa.br" target="_blank">www.cnps.embrapa.br</a>)<br>Rua Jardim Botânico, 1024<br>
CEP 22460-000<br>Rio de Janeiro - RJ - Brasil<br>Tel: 55 21 21794583<br>Skype: wgt007<br>E-mail: <a href="mailto:wenceslau.teixeira@embrapa.br" target="_blank">wenceslau.teixeira@embrapa.br</a><br> <a href="mailto:wenceslau.teixeira@pq.cnpq.br" target="_blank">wenceslau.teixeira@pq.cnpq.br</a><br>
<br>CV - <a href="http://lattes.cnpq.br/4136381865367906" target="_blank">http://lattes.cnpq.br/4136381865367906</a><br>________________________________________________________<br><br>II ENCONTRO BRASILEIRO DE FÍSICA DO SOLO - 2013<br>
2nd Brazilian Soil Physics Meeting<br>Rio de Janeiro, 06 a 10 de Maio de 2013<br><br><a href="http://www.bspm2013.org/" target="_blank">http://www.bspm2013.org/</a><br><br><span name="x"></span><br></div></div></div></div>
<br><br clear="all"><br>-- <br>Wenceslau Teixeira<br><br><a href="mailto:wgt007@gmail.com">wgt007@gmail.com</a><br>skype: wgt007<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>