<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12pt"><div id="yiv9826924652"><div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2">Muito obrigado Fernando,</font></div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" class="yui_3_13_0_rc_1_1_1382124400382_3546"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2"><br></font></div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" class="yui_3_13_0_rc_1_1_1382124400382_3546"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2">Deu certo o gráfico. Valeu mesmo pela preciosa
ajuda.</font></div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" class="yui_3_13_0_rc_1_1_1382124400382_3546"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2"><br></font></div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" class="yui_3_13_0_rc_1_1_1382124400382_3546"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2"><br></font></div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" class="yui_3_13_0_rc_1_1_1382124400382_3546"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2">Att</font></div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255);" class="yui_3_13_0_rc_1_1_1382124400382_3546"><font face="Helvetica Neue, Segoe UI, Helvetica, Arial, Lucida Grande, sans-serif" size="2"><br></font><div
id="yiv9826924652yui_3_13_0_rc_1_6_1382069571245_12" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"></div><div id="yiv9826924652yui_3_13_0_rc_1_6_1382069571245_14" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> </div><div id="yiv9826924652yui_3_13_0_rc_1_6_1382069571245_16" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"><font id="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3556" color="#00bfbf" size="2" face="arial, helvetica, sans-serif"><b id="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3555">Eric Leandro Silva Pereira<br clear="none">Mestrando em Clima e Ambiente<br clear="none">Instituto Nacional de Pesquisas da Amazônia<br clear="none">Programa de Grande Escala da Biosfera-Atmosfera na Amazônia<br clear="none">Av. André
Araújo, 2936 - Aleixo,<br clear="none">CEP 69060-001, Manaus - AM.<br clear="none"></b></font></div><div class="yiv9826924652yqt0293504266" id="yiv9826924652yqt48414" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"><div class="yiv9826924652yahoo_quoted" id="yiv9826924652yui_3_13_0_rc_1_6_1382069571245_18" style="display: block;"> <br clear="none"> <br clear="none"> <div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3474" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3475" style="font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-size: 12pt;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quinta-feira, 17 de Outubro de 2013 9:53, Fernando Souza <nandodesouza@gmail.com> escreveu:<br
clear="none"> </font> </div> <div class="yiv9826924652y_msg_container"><div id="yiv9826924652"><div>
<div class="yiv9826924652moz-cite-prefix">Em 17/10/2013 02:37, Eric Leandro
escreveu:<br clear="none">
</div>
<div class="yiv9826924652yqt5727219116" id="yiv9826924652yqt86863"><blockquote type="cite">
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3477" style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;">
<div><span>Fernando muito obrigado pela ajuda, realmente é o que
preciso. Só um detalhe no eixo Y do gráfico que vc mandou o
que preciso mudar no comando para ficar somente na escala .</span><span class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3478" style="font-family: Calibri, sans-serif; font-size: 11pt; line-height: 115%;">10</span><sup class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3479" style="font-family: Calibri, sans-serif; line-height: 115%;">5 </sup></div>
<div class="yiv9826924652MsoNormal"></div>
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3480" style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;"><span><br clear="none">
</span></div>
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3481" style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;"><span>Att</span></div>
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3482" style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;"><span><br clear="none">
</span></div>
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3483" style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;"><span>Eric Leandro.</span></div>
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3484" style="color: rgb(0, 0, 0); font-size: 16px; font-family: 'times new roman', 'new york', times, serif; background-color: transparent; font-style: normal;"><span>Oi Eric, veja no anexo
que estou lhe enviando. É isso aí que você quer?<br clear="none">
segue o código utilizado:<br clear="none">
<br clear="none">
library(sfsmisc)<br clear="none">
<br clear="none">
par(mar=c(3,4,2,2))<br clear="none">
<br clear="none">
areadrenagem<-c(1.02038%*%10^12,1.19895%*%10^11,1.1403%*%10^12,1.14758%*%10^12,7.78202%*%10^10,1.22573%*%10^12,1.80369%*%10^11,2.61352%*%10^11,1.72428%*%10^12,1.77253%*%10^12,1.80291%*%10^12,3.7624%*%10^11,2.20128%*%10^12,7.18029%*%10^11,2.92493%*%10^12,1.32153%*%10^12,4.37759%*%10^12,4.67111%*%10^12)<br clear="none">
<br clear="none">
vazao<-c(35680,5875,53422.22222,53597.5,2966.25,55796.5,3189.833333,16786.91667,75085.4,83921.41667,86233.33333,11849.41667,94891.75,32970.90909,122827.2222,22297.36364,146948.5556,156321.9)<br clear="none">
<br clear="none">
plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)<br clear="none">
aX <- axTicks(1) # do pacote sfmisc<br clear="none">
aY<-axTicks(2,usr=vazao) #pacote sfmisc<br clear="none">
axis(1, at=aX, label=axTexpr(1, aX))<br clear="none">
axis(2, at=aY, label=axTexpr(2, aY))</span></div>
<div> </div>
<div><font color="#00bfbf" face="arial, helvetica, sans-serif" size="2"><b>Eric Leandro Silva Pereira<br clear="none">
Mestrando em Clima e Ambiente<br clear="none">
Instituto Nacional de Pesquisas da Amazônia<br clear="none">
Programa de Grande Escala da Biosfera-Atmosfera na
Amazônia<br clear="none">
Av. André Araújo, 2936 - Aleixo,<br clear="none">
CEP 69060-001, Manaus - AM.<br clear="none">
</b></font></div>
<div><br clear="none">
</div>
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3486" style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;">
<div class="yiv9826924652yui_3_13_0_rc_1_1_1382069571245_3487" style="font-family: 'times new roman', 'new york', times, serif; font-size: 12pt;">
<div dir="ltr">
<hr size="1"> <font face="Arial" size="2"> <b><span style="font-weight:bold;">De:</span></b> Fernando
Souza <a rel="nofollow" shape="rect" class="yiv9826924652moz-txt-link-rfc2396E" ymailto="mailto:nandodesouza@gmail.com" target="_blank" href="mailto:nandodesouza@gmail.com"><nandodesouza@gmail.com></a><br clear="none">
<b><span style="font-weight:bold;">Para:</span></b>
Eric Leandro <a rel="nofollow" shape="rect" class="yiv9826924652moz-txt-link-rfc2396E" ymailto="mailto:eric_lsp@yahoo.com.br" target="_blank" href="mailto:eric_lsp@yahoo.com.br"><eric_lsp@yahoo.com.br></a> <br clear="none">
<b><span style="font-weight:bold;">Cc:</span></b>
<a rel="nofollow" shape="rect" class="yiv9826924652moz-txt-link-rfc2396E" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">"r-br@listas.c3sl.ufpr.br"</a>
<a rel="nofollow" shape="rect" class="yiv9826924652moz-txt-link-rfc2396E" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br"><r-br@listas.c3sl.ufpr.br></a> <br clear="none">
<b><span style="font-weight:bold;">Enviadas:</span></b>
Quarta-feira, 16 de Outubro de 2013 23:50<br clear="none">
<b><span style="font-weight:bold;">Assunto:</span></b>
Re: [R-br] Notação potências de dez (Gráficos)<br clear="none">
</font> </div>
<div class="yiv9826924652y_msg_container"><br clear="none">
Em quarta-feira, 16 de outubro de 2013 22:47:57, Eric
Leandro escreveu:<br clear="none">
> Obrigado Fernando mas ainda não deu certo.<br clear="none">
> Eu tenho esse conjunto de dados :areadrenagem<-<br clear="none">
>
c(1.02038%*%10^12,1.19895%*%10^11,1.1403%*%10^12,1.14758%*%10^12,7.78202%*%10^10,1.22573%*%10^12,1.80369%*%10^11,2.61352%*%10^11,1.72428%*%10^12,1.77253%*%10^12,1.80291%*%10^12,3.7624%*%10^11,2.20128%*%10^12,7.18029%*%10^11,2.92493%*%10^12,1.32153%*%10^12,4.37759%*%10^12,4.67111%*%10^12)<br clear="none">
> areadrenagem<br clear="none">
>
vazao<-c(35680,5875,53422.22222,53597.5,2966.25,55796.5,3189.833333,16786.91667,75085.4,83921.41667,86233.33333,11849.41667,94891.75,32970.90909,122827.2222,22297.36364,146948.5556,156321.9)<br clear="none">
><br clear="none">
> E gostaria que os eixos ficassem tipo 1.10^12 ,
2.10^12<br clear="none">
> Mas nao sei o que acontece que não dá certo de jeito
nenhum.<br clear="none">
><br clear="none">
><br clear="none">
> Att<br clear="none">
> *Eric Leandro Silva Pereira*<br clear="none">
> *<br clear="none">
> Mestrando em Clima e Ambiente<br clear="none">
> Instituto Nacional de Pesquisas da Amazônia<br clear="none">
> Programa de Grande Escala da Biosfera-Atmosfera na
Amazônia<br clear="none">
> Av. André Araújo, 2936 - Aleixo,<br clear="none">
> CEP 69060-001, Manaus - AM.<br clear="none">
> *<br clear="none">
><br clear="none">
>
------------------------------------------------------------------------<br clear="none">
> *De:* Eric Leandro <<a rel="nofollow" shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br" target="_blank" href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a>><br clear="none">
> *Para:* "<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>"
<<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>><br clear="none">
> *Enviadas:* Quarta-feira, 16 de Outubro de 2013 21:17<br clear="none">
> *Assunto:* Re: [R-br] Notação potências de dez
(Gráficos)<br clear="none">
><br clear="none">
> Tentei algo do tipo : flabs <- function(l) {n
<- length(l)labs <-<br clear="none">
> vector("expression",n)for(i in l:n) {labs[i] <-<br clear="none">
> substitute(expression(10^x),list(x =
l[i]))[2]}return(labs)}<br clear="none">
> plot(areadrenagem,vazao,axes=FALSE,frame.plot = TRUE)
mas deu erro.<br clear="none">
><br clear="none">
> Att<br clear="none">
><br clear="none">
> Eric Leandro.<br clear="none">
><br clear="none">
> *Eric Leandro Silva Pereira<br clear="none">
> Mestrando em Clima e Ambiente<br clear="none">
> Instituto Nacional de Pesquisas da Amazônia<br clear="none">
> Programa de Grande Escala da Biosfera-Atmosfera na
Amazônia<br clear="none">
> Av. André Araújo, 2936 - Aleixo,<br clear="none">
> CEP 69060-001, Manaus - AM.<br clear="none">
> *<br clear="none">
><br clear="none">
>
------------------------------------------------------------------------<br clear="none">
> *De:* Eric Leandro <<a rel="nofollow" shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br" target="_blank" href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a>><br clear="none">
> *Para:* Fernando Antonio de souza <<a rel="nofollow" shape="rect" ymailto="mailto:nandodesouza@gmail.com" target="_blank" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>>;<br clear="none">
> "<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>"
<<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>><br clear="none">
> *Enviadas:* Terça-feira, 24 de Setembro de 2013 16:21<br clear="none">
> *Assunto:* Re: [R-br] Notação potências de dez
(Gráficos)<br clear="none">
><br clear="none">
><br clear="none">
> Tentei mudar mas mesmo assim a notacao que apareceu
foi 2.10^12.<br clear="none">
> *Eric Leandro Silva Pereira<br clear="none">
> Mestrando em Clima e Ambiente<br clear="none">
> Instituto Nacional de Pesquisas da Amazônia<br clear="none">
> Programa de Grande Escala da Biosfera-Atmosfera na
Amazônia<br clear="none">
> Av. André Araújo, 2936 - Aleixo,<br clear="none">
> CEP 69060-001, Manaus - AM.<br clear="none">
> *<br clear="none">
><br clear="none">
>
------------------------------------------------------------------------<br clear="none">
> *De:* Fernando Antonio de souza <<a rel="nofollow" shape="rect" ymailto="mailto:nandodesouza@gmail.com" target="_blank" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>><br clear="none">
> *Para:* <a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>;
Eric Leandro <<a rel="nofollow" shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br" target="_blank" href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a>><br clear="none">
> *Enviadas:* Domingo, 22 de Setembro de 2013 14:43<br clear="none">
> *Assunto:* Re: [R-br] Notação potências de dez
(Gráficos)<br clear="none">
><br clear="none">
> talvez isso aqui lhe ajude:<br clear="none">
> <a rel="nofollow" shape="rect" target="_blank" href="http://stackoverflow.com/questions/5963047/do-not-want-scientific-notation-on-plot-axis">http://stackoverflow.com/questions/5963047/do-not-want-scientific-notation-on-plot-axis</a><br clear="none">
><br clear="none">
><br clear="none">
> Em 22 de setembro de 2013 14:38, Eric Leandro <<a rel="nofollow" shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br" target="_blank" href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a><br clear="none">
> <mailto:<a rel="nofollow" shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br" target="_blank" href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a>>>
escreveu:<br clear="none">
><br clear="none">
> Boa tarde pessoal<br clear="none">
><br clear="none">
> Tenho uma dúvida quanto a intervalo com potências
de dez no R.<br clear="none">
><br clear="none">
> Quando dou este comando : plot(areadrenagem,vazao,
xlab="Área<br clear="none">
> drenagem<br clear="none">
>
(m²)",ylab="Q(m³/s)",pch=16,xlim=range(0:5e+12),ylim=range(0:150000)),<br clear="none">
><br clear="none">
> No eixo x aparece 1e+12..... 5e+12, como eu faria
para aparecer<br clear="none">
> neste formato : 2.10^12 ..... 5.10^12.<br clear="none">
> ^<br clear="none">
> ATT<br clear="none">
> ____<br clear="none">
> *Eric Leandro Silva Pereira<br clear="none">
> Mestrando em Clima e Ambiente<br clear="none">
> Instituto Nacional de Pesquisas da Amazônia<br clear="none">
> Programa de Grande Escala da Biosfera-Atmosfera na
Amazônia<br clear="none">
> Av. André Araújo, 2936 - Aleixo,<br clear="none">
> CEP 69060-001, Manaus - AM.<br clear="none">
> *<br clear="none">
><br clear="none">
> _______________________________________________<br clear="none">
> R-br mailing list<br clear="none">
> <a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<mailto:<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>><br clear="none">
> <a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br clear="none">
> Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e<br clear="none">
> forneça código mínimo reproduzível.<br clear="none">
><br clear="none">
><br clear="none">
><br clear="none">
><br clear="none">
><br clear="none">
><br clear="none">
><br clear="none">
Oi Eric, veja no anexo que estou lhe enviando. É isso aí
que você quer?<br clear="none">
segue o código utilizado:<br clear="none">
<br clear="none">
library(sfsmisc)<br clear="none">
<br clear="none">
par(mar=c(3,4,2,2))<br clear="none">
<br clear="none">
areadrenagem<-c(1.02038%*%10^12,1.19895%*%10^11,1.1403%*%10^12,1.14758%*%10^12,7.78202%*%10^10,1.22573%*%10^12,1.80369%*%10^11,2.61352%*%10^11,1.72428%*%10^12,1.77253%*%10^12,1.80291%*%10^12,3.7624%*%10^11,2.20128%*%10^12,7.18029%*%10^11,2.92493%*%10^12,1.32153%*%10^12,4.37759%*%10^12,4.67111%*%10^12)<br clear="none">
<br clear="none">
vazao<-c(35680,5875,53422.22222,53597.5,2966.25,55796.5,3189.833333,16786.91667,75085.4,83921.41667,86233.33333,11849.41667,94891.75,32970.90909,122827.2222,22297.36364,146948.5556,156321.9)<br clear="none">
<br clear="none">
plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)<br clear="none">
aX <- axTicks(1) # do pacote sfmisc<br clear="none">
aY<-axTicks(2,usr=vazao) #pacote sfmisc<br clear="none">
axis(1, at=aX, label=axTexpr(1, aX))<br clear="none">
axis(2, at=aY, label=axTexpr(2, aY))<br clear="none">
<br clear="none">
Att<br clear="none">
<br clear="none">
--<br clear="none">
=====================================================<br clear="none">
Fernando Souza<br clear="none">
Zootecnista, DSc. Produção Animal<br clear="none">
cel: (+55) 82 8113-8781<br clear="none">
e-mail:<a rel="nofollow" shape="rect" ymailto="mailto:nandodesouza@gmail.com" target="_blank" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>
<div class="yiv9826924652yqt7705173914" id="yiv9826924652yqtfd08807"><br clear="none">
==================================================<br clear="none">
</div>
<br clear="none">
<br clear="none">
</div>
</div>
</div>
</div>
</blockquote></div>
Olá Eric, tudo bem?<br clear="none">
<br clear="none">
Encontrei uma formula aqui de fazer: segue o código com alteração
(negrito, com explicação)<br clear="none">
library(sfsmisc)<br clear="none">
<br clear="none">
par(mar=c(3,4,2,2))<br clear="none">
<br clear="none">
areadrenagem<-c(1.02038%*%10^12,1.19895%*%10^11,1.1403%*%10^12,1.14758%*%10^12,7.78202%*%10^10,1.22573%*%10^12,1.80369%*%10^11,2.61352%*%10^11,1.72428%*%10^12,1.77253%*%10^12,1.80291%*%10^12,3.7624%*%10^11,2.20128%*%10^12,7.18029%*%10^11,2.92493%*%10^12,1.32153%*%10^12,4.37759%*%10^12,4.67111%*%10^12)<br clear="none">
<br clear="none">
vazao<-c(35680,5875,53422.22222,53597.5,2966.25,55796.5,3189.833333,16786.91667,75085.4,83921.41667,86233.33333,11849.41667,94891.75,32970.90909,122827.2222,22297.36364,146948.5556,156321.9)<br clear="none">
<br clear="none">
plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)<br clear="none">
<br clear="none">
aX <- axTicks(1)<br clear="none">
<b>aY<-axTicks(2,usr=vazao)</b> # substitua esta expressao pelo
comando abaixo "teste"<br clear="none">
teste<-expression(0,0.5%*%10^5,1 %*% 10^5, 1.5 %*% 10^5)<br clear="none">
axis(1, at=aX, label=axTexpr(1, aX))<br clear="none">
<b>axis(2, at=aY, label=c(teste)) </b># Altre os comandos da função
axis<br clear="none">
<br clear="none">
<pre class="yiv9826924652moz-signature">--
=====================================================
Fernando Souza
Zootecnista, DSc. Produção Animal
cel: (+55) 82 8113-8781
<a rel="nofollow" shape="rect" class="yiv9826924652moz-txt-link-abbreviated" ymailto="mailto:e-mail:nandodesouza@gmail.com" target="_blank" href="mailto:e-mail:nandodesouza@gmail.com">e-mail:nandodesouza@gmail.com</a>
==================================================</pre>
</div></div><br clear="none"><br clear="none"></div> </div> </div> </div></div> </div></div></div></div></body></html>