Boa noite a todos! Como distanciar o título do eixo z (zlab) dos números do eixo para não ficar sobreposto? Assim como no exemplo abaixo: x <- seq(-10, 10, length= 30) y <- x f <- function(x,y) { r <- sqrt(x^2+y^2); 10 * sin(r)/r } z <- outer(x, y, f) z[is.na(z)] <- 1 z <- z * 100 par(mar=c(0.1,2.2,0.1,1.4),cex=1.6) persp(x, y, z, theta = 30, ticktype = "detailed", xlab="eixo X",ylab="eixo Y", zlab = "eixo Z", col = "gray") Outra dúvida: Tem como fazer um gráfico assim utilizando a função scatterplot3d do pacote scatterplot3d. Se alguém tiver outra sugestão de funções para fazer gráficos 3d, pode se manifestar. Já fiz algumas tentativas com wireframe do lattice, porém tive problemas, principalmente com os títulos dos eixos que não ficam na angulação correta. Desde já agradeço! Gustavo Marcatti Eng. Florestal - UFV