<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&sup2;)",ylab="Q(m&sup3;/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>