<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<div class="moz-cite-prefix">Em 17/10/2013 02:37, Eric Leandro
escreveu:<br>
</div>
<blockquote
cite="mid:1381988247.8699.YahooMailNeo@web162404.mail.bf1.yahoo.com"
type="cite">
<div style="color:#000; background-color:#fff; 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
style="font-family: Calibri, sans-serif; font-size: 11pt;
line-height: 115%;">10</span><sup style="font-family:
Calibri, sans-serif; line-height: 115%;">5 </sup></div>
<div class="MsoNormal"><o:p></o:p></div>
<div 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>
</span></div>
<div 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 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>
</span></div>
<div 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 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>
Mestrando em Clima e Ambiente<br>
Instituto Nacional de Pesquisas da Amazônia<br>
Programa de Grande Escala da Biosfera-Atmosfera na
Amazônia<br>
Av. André Araújo, 2936 - Aleixo,<br>
CEP 69060-001, Manaus - AM.<br>
</b></font></div>
<div><br>
</div>
<div style="font-family: 'times new roman', 'new york', times,
serif; font-size: 12pt;">
<div 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 class="moz-txt-link-rfc2396E" href="mailto:nandodesouza@gmail.com"><nandodesouza@gmail.com></a><br>
<b><span style="font-weight: bold;">Para:</span></b>
Eric Leandro <a class="moz-txt-link-rfc2396E" href="mailto:eric_lsp@yahoo.com.br"><eric_lsp@yahoo.com.br></a> <br>
<b><span style="font-weight: bold;">Cc:</span></b>
<a class="moz-txt-link-rfc2396E" href="mailto:r-br@listas.c3sl.ufpr.br">"r-br@listas.c3sl.ufpr.br"</a>
<a class="moz-txt-link-rfc2396E" href="mailto:r-br@listas.c3sl.ufpr.br"><r-br@listas.c3sl.ufpr.br></a> <br>
<b><span style="font-weight: bold;">Enviadas:</span></b>
Quarta-feira, 16 de Outubro de 2013 23:50<br>
<b><span style="font-weight: bold;">Assunto:</span></b>
Re: [R-br] Notação potências de dez (Gráficos)<br>
</font> </div>
<div class="y_msg_container"><br>
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 moz-do-not-send="true"
shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br"
href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a>><br
clear="none">
> *Para:* "<a moz-do-not-send="true" shape="rect"
ymailto="mailto:r-br@listas.c3sl.ufpr.br"
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>"
<<a moz-do-not-send="true" shape="rect"
ymailto="mailto:r-br@listas.c3sl.ufpr.br"
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 moz-do-not-send="true"
shape="rect" ymailto="mailto:eric_lsp@yahoo.com.br"
href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a>><br
clear="none">
> *Para:* Fernando Antonio de souza <<a
moz-do-not-send="true" shape="rect"
ymailto="mailto:nandodesouza@gmail.com"
href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>>;<br
clear="none">
> "<a moz-do-not-send="true" shape="rect"
ymailto="mailto:r-br@listas.c3sl.ufpr.br"
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>"
<<a moz-do-not-send="true" shape="rect"
ymailto="mailto:r-br@listas.c3sl.ufpr.br"
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
moz-do-not-send="true" shape="rect"
ymailto="mailto:nandodesouza@gmail.com"
href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>><br
clear="none">
> *Para:* <a moz-do-not-send="true" shape="rect"
ymailto="mailto:r-br@listas.c3sl.ufpr.br"
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>;
Eric Leandro <<a moz-do-not-send="true" shape="rect"
ymailto="mailto:eric_lsp@yahoo.com.br"
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 moz-do-not-send="true" shape="rect"
href="http://stackoverflow.com/questions/5963047/do-not-want-scientific-notation-on-plot-axis"
target="_blank">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
moz-do-not-send="true" shape="rect"
ymailto="mailto:eric_lsp@yahoo.com.br"
href="mailto:eric_lsp@yahoo.com.br">eric_lsp@yahoo.com.br</a><br
clear="none">
> <mailto:<a moz-do-not-send="true" shape="rect"
ymailto="mailto:eric_lsp@yahoo.com.br"
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 moz-do-not-send="true" shape="rect"
ymailto="mailto:R-br@listas.c3sl.ufpr.br"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<mailto:<a moz-do-not-send="true" shape="rect"
ymailto="mailto:R-br@listas.c3sl.ufpr.br"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>><br
clear="none">
> <a moz-do-not-send="true" shape="rect"
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
clear="none">
> Leia o guia de postagem (<a moz-do-not-send="true"
shape="rect" href="http://www.leg.ufpr.br/r-br-guia"
target="_blank">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 moz-do-not-send="true" shape="rect"
ymailto="mailto:nandodesouza@gmail.com"
href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>
<div class="yqt7705173914" id="yqtfd08807"><br
clear="none">
==================================================<br
clear="none">
</div>
<br>
<br>
</div>
</div>
</div>
</div>
</blockquote>
Olá Eric, tudo bem?<br>
<br>
Encontrei uma formula aqui de fazer: segue o código com alteração
(negrito, com explicação)<br>
library(sfsmisc)<br>
<br>
par(mar=c(3,4,2,2))<br>
<br>
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>
<br>
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>
<br>
plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)<br>
<br>
aX <- axTicks(1)<br>
<b>aY<-axTicks(2,usr=vazao)</b> # substitua esta expressao pelo
comando abaixo "teste"<br>
teste<-expression(0,0.5%*%10^5,1 %*% 10^5, 1.5 %*% 10^5)<br>
axis(1, at=aX, label=axTexpr(1, aX))<br>
<b>axis(2, at=aY, label=c(teste)) </b># Altre os comandos da função
axis<br>
<br>
<pre class="moz-signature" cols="72">--
=====================================================
Fernando Souza
Zootecnista, DSc. Produção Animal
cel: (+55) 82 8113-8781
<a class="moz-txt-link-abbreviated" href="mailto:e-mail:nandodesouza@gmail.com">e-mail:nandodesouza@gmail.com</a>
==================================================</pre>
</body>
</html>