Re: [R-br] Legenda com gradientes-valores em superfície resposta!
Walmes! Valeu pela dica, mais meu sangue não bate com a lattes. rsrsrsrsrs. Bem, eu encontrei uma solução com a graphics. Segue abaixo para aqueles que se interessarem. layout(matrix(c(1,2),1,2,byrow=T),widths=c(4,1)) x <- seq(-1.95, 1.95, length = 30) y <- seq(-1.95, 1.95, length = 35) z <- outer(x, y, function(a,b) a*b^2) nrz <- nrow(z) ncz <- ncol(z) # Create a function interpolating colors in the range of specified colors jet.colors <- colorRampPalette( c("blue", "green") ) # Generate the desired number of colors from this palette nbcol <- 100 color <- jet.colors(nbcol) # Compute the z-value at the facet centres zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz] # Recode facet z-values into color indices facetcol <- cut(zfacet, nbcol) persp(x, y, z, col=color[facetcol], phi=30, theta=-30) col.labels <- c("0.0","0.2","0.4","0.6","0.8","1.0")#intervalo de valores do Z. plot(0:10,type="n",axes=FALSE,xlab="",ylab="") color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb") Allaman (S,f,P) M.Sc Ivan Bezerra Allaman Zootecnista Doutorando em Produção Animal/Aquicultura - UFLA email e msn - ivanalaman@yahoo.com.br Tel: (35)3826-6608/9900-2924
Ivan, Lógico que é bom saber fazer gráficos com todas plataformas gráficas do R. No seu CMR faltou o pacote plotrix. Veja abaixo a solução pouco empenho da lattice. require(plotrix) color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb") x <- seq(-1.95, 1.95, length=30) y <- seq(-1.95, 1.95, length=35) da <- expand.grid(x=x, y=y) da$z <- with(da, x*y^2) require(lattice) wireframe(z~x+y, da, drape=TRUE, col.regions=jet.colors(100)) À 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 ========================================================================== 2011/6/8 Ivan Bezerra Allaman <ivanalaman@yahoo.com.br>
Walmes!
Valeu pela dica, mais meu sangue não bate com a lattes. rsrsrsrsrs. Bem, eu encontrei uma solução com a graphics. Segue abaixo para aqueles que se interessarem.
layout(matrix(c(1,2),1,2,byrow=T),widths=c(4,1)) x <- seq(-1.95, 1.95, length = 30) y <- seq(-1.95, 1.95, length = 35) z <- outer(x, y, function(a,b) a*b^2) nrz <- nrow(z) ncz <- ncol(z) # Create a function interpolating colors in the range of specified colors jet.colors <- colorRampPalette( c("blue", "green") ) # Generate the desired number of colors from this palette nbcol <- 100 color <- jet.colors(nbcol) # Compute the z-value at the facet centres zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz] # Recode facet z-values into color indices facetcol <- cut(zfacet, nbcol) persp(x, y, z, col=color[facetcol], phi=30, theta=-30) col.labels <- c("0.0","0.2","0.4","0.6","0.8","1.0")#intervalo de valores do Z. plot(0:10,type="n",axes=FALSE,xlab="",ylab="") color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb")
Allaman (S,f,P)
*M.Sc Ivan Bezerra Allaman* Zootecnista Doutorando em Produção Animal/Aquicultura - UFLA **email e msn - ivanalaman@yahoo.com.br Tel: (35)3826-6608/9900-2924
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Estava vendo a discussão, rodei este exemplo e não reconheceu a função color.legend Walmes! Valeu pela dica, mais meu sangue não bate com a lattes. rsrsrsrsrs. Bem, eu encontrei uma solução com a graphics. Segue abaixo para aqueles que se interessarem. layout(matrix(c(1,2),1,2,byrow=T),widths=c(4,1)) x <- seq(-1.95, 1.95, length = 30) y <- seq(-1.95, 1.95, length = 35) z <- outer(x, y, function(a,b) a*b^2) nrz <- nrow(z) ncz <- ncol(z) # Create a function interpolating colors in the range of specified colors jet.colors <- colorRampPalette( c("blue", "green") ) # Generate the desired number of colors from this palette nbcol <- 100 color <- jet.colors(nbcol) # Compute the z-value at the facet centres zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz] # Recode facet z-values into color indices facetcol <- cut(zfacet, nbcol) persp(x, y, z, col=color[facetcol], phi=30, theta=-30) col.labels <- c("0.0","0.2","0.4","0.6","0.8","1.0")#intervalo de valores do Z. plot(0:10,type="n",axes=FALSE,xlab="",ylab="") color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb") Allaman (S,f,P) M.Sc Ivan Bezerra Allaman Zootecnista Doutorando em Produção Animal/Aquicultura - UFLA email e msn - ivanalaman@yahoo.com.br Tel: (35)3826-6608/9900-2924
participantes (3)
-
Ivan Bezerra Allaman -
Mauro Sznelwar -
Walmes Zeviani