<html><body><div style="color:#000; background-color:#fff; font-family:arial, helvetica, sans-serif;font-size:18pt"><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span>Boa tarde senhores!</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span>Gostaria de saber se é possível criar uma legenda com gradiente-valores em um gráfico de superfície resposta? Vejamos o seguinte CMR.</span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span><br></span></div><div><span><font class="Apple-style-span" size="5"><div> par(bg = "white")</div><div> x <- seq(-1.95, 1.95, length = 30)</div><div> y <- seq(-1.95, 1.95, length = 35)</div><div> z <- outer(x, y, function(a,b)
a*b^2)</div><div> nrz <- nrow(z)</div><div> ncz <- ncol(z)</div><div> # Create a function interpolating colors in the range of specified colors</div><div> jet.colors <- colorRampPalette( c("blue", "green") ) </div><div> # Generate the desired number of colors from this palette</div><div> nbcol <- 100</div><div> color <- jet.colors(nbcol)</div><div> # Compute the z-value at the facet centres</div><div> zfacet <- z[-1, -1] + z[-1, -ncz] + z[-nrz, -1] + z[-nrz, -ncz]</div><div> # Recode facet z-values into color indices</div><div> facetcol <- cut(zfacet, nbcol)</div><div> persp(x, y, z, col=color[facetcol], phi=30, theta=-30)</div><div>
</div><div>Aqui é criado um gráfico de superfície resposta, com cores que vão do azul ao verde. Vejamos outro CMR, para chegarmos onde eu quero.</div><div><br></div><div><div>library(fields)</div><div>loc <- make.surface.grid(list( seq(1,dim(z)[1],length=500),</div><div>seq(1,dim(z)[2],length=500) ))</div><div>r <- interp.surface(</div><div>list(x=1:dim(z)[1], y=1:dim(z)[2], z=z),</div><div>loc</div><div>)</div><div>op <- par(mfrow=c(2,1))</div><div>image.plot(z, main="Raw data")</div><div>image.plot(as.surface(loc,r), main="Linear interpolation")</div><div>par(op) </div><div><br></div><div>Percebam que aqui, é criado um gráfico com uma legenda indicando cores que correspondem a determinados valores. O que eu quero é justamente esta legenda
no gráfico do primeiro CMR. É possível?</div><div><br></div><div>Desde já agradeço a atenção de todos.</div><div><br></div><div>Allaman</div><div>(S,f,P)</div></div><div><br></div><div><br></div></font></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "><span><br></span></div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; "> </div><div style="font-family: arial, helvetica, sans-serif; font-size: 18pt; background-color: transparent; color: rgb(115, 115, 115); " align="center"><b>M.Sc Ivan Bezerra Allaman</b> <br>Zootecnista<br><font style="background-color:transparent;" face="comic sans ms" size="2"><font style="background-color:transparent;">Doutorando em Produção Animal/Aquicultura - UFLA</font> <br></font><font size="2"><i><strong></strong></i></font><font style="background-color:transparent;" face="comic sans ms" size="2">email e msn - ivanalaman@yahoo.com.br <br><font
size="1">Tel: (35)3826-6608/9900-2924</font></font></div></div></body></html>