<html><body><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> </div><div><font color="#00bfbf" size="2" face="arial, helvetica, sans-serif"><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 size="2" face="Arial"> <b><span style="font-weight:bold;">De:</span></b> Fernando Souza <nandodesouza@gmail.com><br> <b><span style="font-weight: bold;">Para:</span></b> Eric Leandro <eric_lsp@yahoo.com.br> <br><b><span style="font-weight: bold;">Cc:</span></b> "r-br@listas.c3sl.ufpr.br" <r-br@listas.c3sl.ufpr.br> <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 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 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 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 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 shape="rect" ymailto="mailto:nandodesouza@gmail.com" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>>;<br clear="none">> "<a 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 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 shape="rect"
ymailto="mailto:nandodesouza@gmail.com" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>><br clear="none">> *Para:* <a 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 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 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 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 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 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 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 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 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 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></body></html>