Criar plotagem 3D colorida de acordo com o eixo Z
<code> library(Sleuth2) mlr<-lm(ex1222$Buchanan2000~ex1222$Perot96*ex1222$Gore2000) for (i in 0:3) { assign(paste("betaHat", i, sep=""), summary(mlr)$coeff[i+1,1]) } x<-sort(ex1222$Perot96) y<-sort(ex1222$Gore2000) z1 <- outer(x, y, function(a,b) betaHat0+betaHat1*a+betaHat2*b+betaHat3*a*b) nrz <- nrow(z) ncz <- ncol(z) # Create a function interpolating colors in the range of specified colors jet.colors <- colorRampPalette( c("blue", "red") ) # 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, z1, col=color[facetcol],theta=-30, lwd=.3,xlab="Perot 96", ylab="Gore 2000", zlab="Predicted Votes for Buchanan") </code>
Olá,
Eu estou tentando colorir o enredo acima. Eu estava pensando que eu quero ter valores mais altos de tons mais escuros de cor vermelha "z" (ou qualquer cor realmente).
Qualquer ajuda sobre como fazer isso acontecer seria muito apreciada.
Além disso, sinta-se à vontade para sugerir uma função diferente para que isso aconteça também.
Obrigado!
edit .... eu coloquei meu novo código depois de olhar o exemplo em? persp. Eu gostaria de mudar a cor e não estou super feliz com a legibilidade do novo enredo