<font face="trebuchet ms,sans-serif">Ivan,<br><br>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.<br><br><span style="font-family: courier new,monospace;">require(plotrix)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb")</span><br style="font-family: courier new,monospace;"><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">x <- seq(-1.95, 1.95, length=30)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">y <- seq(-1.95, 1.95, length=35)</span><br style="font-family: courier new,monospace;">
<span style="font-family: courier new,monospace;">da <- expand.grid(x=x, y=y)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">da$z <- with(da, x*y^2)</span><br style="font-family: courier new,monospace;">
<br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">require(lattice)</span><br style="font-family: courier new,monospace;"><span style="font-family: courier new,monospace;">wireframe(z~x+y, da, drape=TRUE, col.regions=jet.colors(100))</span><br style="font-family: courier new,monospace;">
<br>À disposição.<br>Walmes.<br><br><br clear="all"></font><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Walmes Marques Zeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">LEG (Laboratório de Estatística e Geoinformação, 25.450418 S, 49.231759 W)</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">Departamento de Estatística - Universidade Federal do Paraná</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">fone: (+55) 41 3361 3573</span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">VoIP: (3361 3600) 1053 1173</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">e-mail: <a href="mailto:walmes@ufpr.br" target="_blank">walmes@ufpr.br</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">twitter: @walmeszeviani</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">homepage: <a href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br style="font-family: trebuchet ms,sans-serif;">
<span style="font-family: trebuchet ms,sans-serif;">linux user number: 531218</span><br style="font-family: trebuchet ms,sans-serif;"><span style="font-family: trebuchet ms,sans-serif;">==========================================================================</span><br>
<br><br><div class="gmail_quote">2011/6/8 Ivan Bezerra Allaman <span dir="ltr"><<a href="mailto:ivanalaman@yahoo.com.br">ivanalaman@yahoo.com.br</a>></span><br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div><div style="color: rgb(0, 0, 0); background-color: rgb(255, 255, 255); font-family: arial,helvetica,sans-serif; font-size: 18pt;"><div style="font-family: arial,helvetica,sans-serif; font-size: 18pt;"><span>Walmes!</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>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. </span></div>
<div style="font-family: arial,helvetica,sans-serif; font-size: 18pt;"><span><br></span></div><div><span><font size="5"><div>layout(matrix(c(1,2),1,2,byrow=T),widths=c(4,1))</div><div class="im"><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>col.labels <-
c("0.0","0.2","0.4","0.6","0.8","1.0")#intervalo de valores do Z.</div><div>plot(0:10,type="n",axes=FALSE,xlab="",ylab="") </div>
<div>color.legend(1,1.5,9,8,col.labels,color,gradient="y",align="rb")</div><div><br></div><div>Allaman</div><div>(S,f,P)</div><div><br></div><div> </div></font></span></div><div class="im"><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><b></b></i></font><font style="background-color: transparent;" face="comic sans ms" size="2">email e msn - <a href="mailto:ivanalaman@yahoo.com.br" target="_blank">ivanalaman@yahoo.com.br</a> <br>
<font size="1">Tel:
(35)3826-6608/9900-2924</font></font></div></div></div></div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
<br></blockquote></div><br>