Início > gráficos > Gráfico com escala logarítmica em notação de potência

Gráfico com escala logarítmica em notação de potência

Gráfico (verde) em escala logarítmica com notação de potência.

O pacote latticeExtra traz funções que permitem aprimorar as funções gráficas disponíveis no pacote lattice, ambos desenvolvidos por Deepayan Sarkar. Recentemente precisei confeccionar gráficos em escala logarítmica para os quais eu tinha um enorme roteiro de funções construídas à custo de muita dedicação e tempo. Felizmente, hoje não preciso mais reaprender as implementações que fiz porque a latticeExtra fornece funções para escrever as escalas dos eixos em notação de potência.

As funções disponibilizadas são: xscale.components.logpower, xscale.components.fractions, xscale.components.log10ticks, xscale.components.log10.3 e
xscale.components.subticks, todas elas na versão para o eixo y também. Essas funções permitem, por exemplo, eixos escritos com potência e fração e os traços marcas (tick) para datas considerando o diferente número de dias de cada mês. Tudo isso você pode conferir rodando os exemplos das funções. Até a próxima ridícula.

#-----------------------------------------------------------------------------

require(lattice)

data(Earthquake, package="MEMSS")

p1 <-
  xyplot(accel~distance, data=Earthquake, pch=19, lwd=2,
         prepanel=prepanel.loess, col="blue",
         type=c("p", "g", "smooth"), scales=list(log=2),
         xlab="Distância do epicentro (km)",
         ylab="Aceleração máxima horizontal (g)")

require(latticeExtra)

p2 <-
  xyplot(accel~distance, data=Earthquake, pch=19, lwd=2,
         prepanel=prepanel.loess, col="forestgreen",
         type=c("p", "g", "smooth"), scales=list(log=2),
         xlab="Distância do epicentro (km)",
         ylab="Aceleração máxima horizontal (g)",
         xscale.components=xscale.components.logpower,
         yscale.components=yscale.components.logpower)

#png("f011.png", w=500, h=300)
print(p1, split=c(1,1,2,1), more=TRUE)
print(p2, split=c(2,1,2,1))
#dev.off()

#-----------------------------------------------------------------------------
Anúncios
  1. Nelson Doki
    10/06/2011 às 10:46

    Parabéns pelo tarbalho de vcs, ótimo mateial.
    Nelson Doki.

  1. No trackbacks yet.

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: