[R-br] Legenda com gradientes-valores em superfície resposta!

[Walmes Zeviani]

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 em ufpr.br
twitter: @walmeszeviani
homepage: http://www.leg.ufpr.br/~walmes
linux user number: 531218
==========================================================================


2011/6/8 Ivan Bezerra Allaman <ivanalaman em 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 em yahoo.com.br
> Tel: (35)3826-6608/9900-2924
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20110608/218c1dc9/attachment.html>