Thiago, Eu sei fazer isso na lattice::wireframe(). Veja o código parcial que usei para geral o logo provisório da R-br b0 <- 10; b1 <- .5; b2 <- .3; int12 <- .2 g <- expand.grid(x = 1:20, y = 1:20) g$z <- b0 + b1*g$x + b2*g$y + int12*g$x*g$y i <- 45 rgb.palette <- colorRampPalette(c("yellow", "green4", "blue"), space = "rgb") wireframe(z~x*y, data=g, main="Em breve aqui estará o logotipo da [R-br]", sub="Você tem sugestões? Em breve uma enquete.", screen=list(z=i, x=-60), drape=TRUE, col.regions=rgb.palette(90)) À 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 ==========================================================================