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

Fernando Souza nandodesouza em gmail.com
Quinta Outubro 17 09:53:11 BRT 2013


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 .10^5
>
> 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 
> <mailto:eric_lsp em yahoo.com.br>>
> > *Para:* "r-br em listas.c3sl.ufpr.br <mailto:r-br em listas.c3sl.ufpr.br>" 
> <r-br em listas.c3sl.ufpr.br <mailto: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 
> <mailto:eric_lsp em yahoo.com.br>>
> > *Para:* Fernando Antonio de souza <nandodesouza em gmail.com 
> <mailto:nandodesouza em gmail.com>>;
> > "r-br em listas.c3sl.ufpr.br <mailto:r-br em listas.c3sl.ufpr.br>" 
> <r-br em listas.c3sl.ufpr.br <mailto: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 
> <mailto:nandodesouza em gmail.com>>
> > *Para:* r-br em listas.c3sl.ufpr.br <mailto:r-br em listas.c3sl.ufpr.br>; 
> Eric Leandro <eric_lsp em yahoo.com.br <mailto: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>
> > <mailto: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> 
> <mailto: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 <mailto: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/20131017/1fa60819/attachment.html>


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