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@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@gmail.com> Para: Eric Leandro <eric_lsp@yahoo.com.br> Cc: "r-br@listas.c3sl.ufpr.br" <r-br@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@yahoo.com.br> *Para:* "r-br@listas.c3sl.ufpr.br" <r-br@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@yahoo.com.br> *Para:* Fernando Antonio de souza <nandodesouza@gmail.com>; "r-br@listas.c3sl.ufpr.br" <r-br@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@gmail.com> *Para:* r-br@listas.c3sl.ufpr.br; Eric Leandro <eric_lsp@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-o...
Em 22 de setembro de 2013 14:38, Eric Leandro <eric_lsp@yahoo.com.br <mailto:eric_lsp@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@listas.c3sl.ufpr.br <mailto:R-br@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@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@gmail.com ==================================================