<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>

Hallo,

Ich versuche die obige Handlung einzufärben. Ich dachte, ich möchte höhere Werte von 'z' farbigen, dunkleren Rottönen (oder wirklich jeder Farbe) haben.

Jede Hilfe, um dies zu erreichen, wäre sehr dankbar.

Sie können auch eine andere Funktion vorschlagen, um dies zu ermöglichen.

Vielen Dank!

edit .... Ich habe meinen neuen Code nach dem Betrachten des Beispiels auf? persp gesetzt. Ich möchte die Farbe ändern und bin nicht sehr zufrieden mit der Lesbarkeit des neuen Plots