Pessoal, to me batendo aqui, Como pode ser feito para deixar apenas o eixo y em escala logaritima (base 10), e que os valores das variáveis continuem aparecendo no grafico. ## Exemplo x <- seq(pi/4, 5 * pi, length.out = 100) y <- seq(pi/4, 5 * pi, length.out = 100) r <- as.vector(sqrt(outer(x^2, y^2, "+"))) grid <- expand.grid(x=x, y=y) grid$z <- cos(r^2) * exp(-r/(pi^3)) contourplot(z~x*y, grid,col.regions=colorRampPalette(c("green","yellow","red")),region =TRUE) att
faca o grafico sem eixos primeiro com os logs que deseja depois acrescente cada eixo com axis() no eixo que quer em log mas com valores ("rotulos") na escala original use os argumentos at label no 1o coloca os valores em log e no segundo os correspondentes na escala original. se entendi a pergunta (nao estou bem certo...) isto deve resolver! On Tue, 17 May 2011, eder@leg.ufpr.br wrote:
Pessoal, to me batendo aqui, Como pode ser feito para deixar apenas o eixo y em escala logaritima (base 10), e que os valores das variáveis continuem aparecendo no grafico.
## Exemplo x <- seq(pi/4, 5 * pi, length.out = 100) y <- seq(pi/4, 5 * pi, length.out = 100) r <- as.vector(sqrt(outer(x^2, y^2, "+"))) grid <- expand.grid(x=x, y=y) grid$z <- cos(r^2) * exp(-r/(pi^3)) contourplot(z~x*y, grid,col.regions=colorRampPalette(c("green","yellow","red")),region =TRUE) att
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Éder, A lattice::contourplot() só interpola se o grid fornecido for igualmente espaçado em todas as direções. Ao fazer o log de x você causa deformação do espaçamento. Então você deve iniciar com a escala log de x igualmente espaçada, algo que tentei reproduzir aprimorando seu CMR logx <- seq(log10(min(x[1])), log(x[100]), l=100) grid <- expand.grid(logx=logx, y=y) r <- as.vector(sqrt(outer(10^(2*logx), y^2, "+"))) grid$z <- cos(r^2) * exp(-r/(pi^3)) contourplot(z~logx*y, grid,col.regions=colorRampPalette(c("green","yellow","red")),region =TRUE) À disposição. Walmes. ========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ==========================================================================
Walmes e Paulo, acho que consegui o que querria, colocando o argumento: scales= list(y = list(log = 10,at=round(seq(0,1000,by=100),0))) Obrigado pela ajuda Att
Éder,
A lattice::contourplot() só interpola se o grid fornecido for igualmente espaçado em todas as direções. Ao fazer o log de x você causa deformação do espaçamento. Então você deve iniciar com a escala log de x igualmente espaçada, algo que tentei reproduzir aprimorando seu CMR
logx <- seq(log10(min(x[1])), log(x[100]), l=100) grid <- expand.grid(logx=logx, y=y) r <- as.vector(sqrt(outer(10^(2*logx), y^2, "+"))) grid$z <- cos(r^2) * exp(-r/(pi^3)) contourplot(z~logx*y,
grid,col.regions=colorRampPalette(c("green","yellow","red")),region =TRUE)
À disposição. Walmes.
========================================================================== Walmes Marques Zeviani LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W) Departamento de Estatística - Universidade Federal do Paraná fone: (+55) 41 3361 3573 VoIP: (3361 3600) 1053 1173 e-mail: walmes@ufpr.br twitter: @walmeszeviani homepage: http://www.leg.ufpr.br/~walmes linux user number: 531218 ========================================================================== _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
participantes (3)
-
eder＠leg.ufpr.br -
Paulo Justiniano -
Walmes Zeviani