[R-br] Notação potências de dez (Gráficos)

Eric Leandro eric_lsp em yahoo.com.br
Sexta Outubro 18 16:30:04 BRT 2013


Muito obrigado Fernando,

Deu certo o gráfico. Valeu mesmo pela preciosa ajuda.


Att


 
Eric Leandro Silva Pereira
Mestrando em Clima e Ambiente
Instituto Nacional de Pesquisas da Amazônia
Programa de Grande Escala da Biosfera-Atmosfera na Amazônia
Av. André
 Araújo, 2936 -  Aleixo,
CEP 69060-001, Manaus - AM.




Em Quinta-feira, 17 de Outubro de 2013 9:53, Fernando Souza <nandodesouza em gmail.com> escreveu:
 
Em 17/10/2013 02:37, Eric Leandro escreveu:

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 .105  
>
>
>Att
>
>
>Eric Leandro.
>Oi Eric, veja no anexo que estou lhe enviando. É isso aí que você quer?
>segue o código utilizado:
>
>library(sfsmisc)
>
>par(mar=c(3,4,2,2))
>
>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)
>
>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)
>
>plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)
>aX <- axTicks(1) # do pacote sfmisc
>aY<-axTicks(2,usr=vazao) #pacote sfmisc
>axis(1, at=aX, label=axTexpr(1, aX))
>axis(2, at=aY, label=axTexpr(2, aY))
> 
>Eric Leandro Silva Pereira
>Mestrando em Clima e Ambiente
>Instituto Nacional de Pesquisas da Amazônia
>Programa de Grande Escala da Biosfera-Atmosfera na
              Amazônia
>Av. André Araújo, 2936 -  Aleixo,
>CEP 69060-001, Manaus - AM.
>
>
>
>
>________________________________
> De: Fernando Souza <nandodesouza em gmail.com>
>Para: Eric Leandro <eric_lsp em yahoo.com.br> 
>Cc: "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br> 
>Enviadas: Quarta-feira, 16 de Outubro de 2013 23:50
>Assunto: Re: [R-br] Notação potências de dez (Gráficos)
> 
>
>Em quarta-feira, 16 de outubro de 2013 22:47:57, Eric
              Leandro escreveu:
>> Obrigado Fernando mas ainda não deu certo.
>> Eu tenho esse conjunto de dados :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)
>> areadrenagem
>>
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)
>>
>> E gostaria que os eixos ficassem tipo 1.10^12 ,
              2.10^12
>>  Mas nao sei o que acontece que não dá certo de jeito
              nenhum.
>>
>>
>> Att
>> *Eric Leandro Silva Pereira*
>> *
>> Mestrando em Clima e Ambiente
>> Instituto Nacional de Pesquisas da Amazônia
>> Programa de Grande Escala da Biosfera-Atmosfera na
              Amazônia
>> Av. André Araújo, 2936 -  Aleixo,
>> CEP 69060-001, Manaus - AM.
>> *
>>
>>
              ------------------------------------------------------------------------
>> *De:* Eric Leandro <eric_lsp em yahoo.com.br>
>> *Para:* "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br>
>> *Enviadas:* Quarta-feira, 16 de Outubro de 2013 21:17
>> *Assunto:* Re: [R-br] Notação potências de dez
              (Gráficos)
>>
>> Tentei algo do tipo : flabs <- function(l) {n
              <- length(l)labs <-
>> vector("expression",n)for(i in l:n) {labs[i] <-
>> substitute(expression(10^x),list(x =
              l[i]))[2]}return(labs)}
>> plot(areadrenagem,vazao,axes=FALSE,frame.plot = TRUE)
              mas deu erro.
>>
>> Att
>>
>> Eric Leandro.
>>
>> *Eric Leandro Silva Pereira
>> Mestrando em Clima e Ambiente
>> Instituto Nacional de Pesquisas da Amazônia
>> Programa de Grande Escala da Biosfera-Atmosfera na
              Amazônia
>> Av. André Araújo, 2936 -  Aleixo,
>> CEP 69060-001, Manaus - AM.
>> *
>>
>>
              ------------------------------------------------------------------------
>> *De:* Eric Leandro <eric_lsp em yahoo.com.br>
>> *Para:* Fernando Antonio de souza <nandodesouza em gmail.com>;
>> "r-br em listas.c3sl.ufpr.br" <r-br em listas.c3sl.ufpr.br>
>> *Enviadas:* Terça-feira, 24 de Setembro de 2013 16:21
>> *Assunto:* Re: [R-br] Notação potências de dez
              (Gráficos)
>>
>>
>> Tentei mudar mas mesmo assim a notacao que apareceu
              foi  2.10^12.
>> *Eric Leandro Silva Pereira
>> Mestrando em Clima e Ambiente
>> Instituto Nacional de Pesquisas da Amazônia
>> Programa de Grande Escala da Biosfera-Atmosfera na
              Amazônia
>> Av. André Araújo, 2936 -  Aleixo,
>> CEP 69060-001, Manaus - AM.
>> *
>>
>>
              ------------------------------------------------------------------------
>> *De:* Fernando Antonio de souza <nandodesouza em gmail.com>
>> *Para:* r-br em listas.c3sl.ufpr.br; Eric Leandro <eric_lsp em yahoo.com.br>
>> *Enviadas:* Domingo, 22 de Setembro de 2013 14:43
>> *Assunto:* Re: [R-br] Notação potências de dez
              (Gráficos)
>>
>> talvez isso aqui lhe ajude:
>> http://stackoverflow.com/questions/5963047/do-not-want-scientific-notation-on-plot-axis
>>
>>
>> Em 22 de setembro de 2013 14:38, Eric Leandro <eric_lsp em yahoo.com.br
>> <mailto:eric_lsp em yahoo.com.br>> escreveu:
>>
>>    Boa tarde pessoal
>>
>>    Tenho uma dúvida quanto a intervalo com potências
              de dez no R.
>>
>>    Quando dou este comando : plot(areadrenagem,vazao,
              xlab="Área
>>    drenagem
>>   
              (m²)",ylab="Q(m³/s)",pch=16,xlim=range(0:5e+12),ylim=range(0:150000)),
>>
>>    No eixo x aparece 1e+12..... 5e+12, como eu faria
              para aparecer
>>    neste formato : 2.10^12 ..... 5.10^12.
>>    ^
>>    ATT
>>    ____
>>    *Eric Leandro Silva Pereira
>>    Mestrando em Clima e Ambiente
>>    Instituto Nacional de Pesquisas da Amazônia
>>    Programa de Grande Escala da Biosfera-Atmosfera na
              Amazônia
>>    Av. André Araújo, 2936 -  Aleixo,
>>    CEP 69060-001, Manaus - AM.
>>    *
>>
>>    _______________________________________________
>>    R-br mailing list
>>    R-br em listas.c3sl.ufpr.br <mailto:R-br em listas.c3sl.ufpr.br>
>>    https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>>    Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e
>>    forneça código mínimo reproduzível.
>>
>>
>>
>>
>>
>>
>>
>Oi Eric, veja no anexo que estou lhe enviando. É isso aí
              que você quer?
>segue o código utilizado:
>
>library(sfsmisc)
>
>par(mar=c(3,4,2,2))
>
>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)
>
>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)
>
>plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)
>aX <- axTicks(1) # do pacote sfmisc
>aY<-axTicks(2,usr=vazao) #pacote sfmisc
>axis(1, at=aX, label=axTexpr(1, aX))
>axis(2, at=aY, label=axTexpr(2, aY))
>
>Att
>
>--
>=====================================================
>Fernando Souza
>Zootecnista, DSc. Produção Animal
>cel: (+55) 82 8113-8781
>e-mail:nandodesouza em gmail.com 
>
>==================================================
>
>
>
Olá Eric, tudo bem?

Encontrei uma formula aqui de fazer: segue o código com alteração
    (negrito, com explicação)
library(sfsmisc)

par(mar=c(3,4,2,2))

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)

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)

plot(vazao~areadrenagem,axes=FALSE,frame=TRUE)

aX <- axTicks(1)
aY<-axTicks(2,usr=vazao) # substitua esta expressao pelo comando abaixo "teste"
teste<-expression(0,0.5%*%10^5,1 %*% 10^5, 1.5 %*% 10^5)
axis(1, at=aX, label=axTexpr(1, aX))
axis(2, at=aY, label=c(teste)) # Altre os comandos da função axis


-- 
=====================================================
Fernando Souza
Zootecnista, DSc. Produção Animal
cel: (+55) 82 8113-8781 e-mail:nandodesouza em gmail.com ==================================================
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20131018/76eb0e9b/attachment.html>


Mais detalhes sobre a lista de discussão R-br