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