<div dir="ltr"><div class="gmail_default" style="font-family:verdana,sans-serif">Hola,<br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Entiendo que en el valor de "theta" has querido incluir "100"...<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Yo creo que se ve mejor con "box=TRUE"...<br><br>#------------<br>library(plot3D)<br>misdatos <- matrix(NA,ncol=20,nrow=20)<br>x <- c(1:20)/20<br>y <- c(1:20)/20<br>M <- mesh(x,y)<br>misdatos <- pmin( 1 - abs(M$x-0.7), 1-abs(M$y-0.2))<br>gdata::lowerTriangle(misdatos, diag=FALSE) <- NA<br>persp3D(z = misdatos, contour = list(side = c("zmax", "z"))<br>        , zlim= c(0, 1),phi = 30, theta = 100, d = 10,box=TRUE)<br>#------------<br><br><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><img alt="Imágenes integradas 1" src="cid:ii_15134feb4fe84750" height="266" width="488"><br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Saludos,<br></div><div class="gmail_default" style="font-family:verdana,sans-serif">Carlos Ortega<br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a><br></div><div class="gmail_default" style="font-family:verdana,sans-serif"><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">El 23 de noviembre de 2015, 16:32, Emilio Torres Manzanera <span dir="ltr"><<a href="mailto:torres@uniovi.es" target="_blank">torres@uniovi.es</a>></span> escribió:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">¡Gracias Carlos! Era justo lo que necesitaba.<br>
Aquí va una primera versión por si le puede servir a alguien.<br>
Saludos<br>
Emilio<br>
<br>
library(plot3D)<br>
misdatos <- matrix(NA,ncol=20,nrow=20)<br>
x <- c(1:20)/20<br>
y <- c(1:20)/20<br>
M <- mesh(x,y)<br>
misdatos <- pmin( 1 - abs(M$x-0.7), 1-abs(M$y-0.2))<br>
gdata::lowerTriangle(misdatos, diag=FALSE) <- NA<br>
persp3D(z = misdatos, contour = list(side = c("zmax", "z")), zlim= c(0, 1),phi = 30, theta = 00, d = 10,box=FALSE)<br>
<div><div class="h5"><br>
On Monday, November 23 2015, 13:48:52, Carlos Ortega <<a href="mailto:cof@qualityexcellence.es">cof@qualityexcellence.es</a>> wrote:<br>
<br>
> Hola,<br>
><br>
> Mira la viñeta que acompaña al paquete que al final aparecen ejemplos de<br>
> como combinar varios gráficos como quieres (Fifty ways to draw a volcano<br>
> using package plot3D):<br>
><br>
> <a href="https://cran.r-project.org/web/packages/plot3D/vignettes/volcano.pdf" rel="noreferrer" target="_blank">https://cran.r-project.org/web/packages/plot3D/vignettes/volcano.pdf</a><br>
><br>
><br>
> Gracias,<br>
> Carlos Ortega<br>
> <a href="http://www.qualityexcellence.es" rel="noreferrer" target="_blank">www.qualityexcellence.es</a><br>
><br>
> El 23 de noviembre de 2015, 13:02, Emilio Torres Manzanera <<a href="mailto:torres@uniovi.es">torres@uniovi.es</a><br>
>> escribió:<br>
><br>
>> Hola,<br>
>> Deseo dibujar en tres dimensiones la siguiente función<br>
>> z= min( 1 - abs(x-0.7), 1 - abs(y-0.2))<br>
>> en este dominio 0<= x <= y <=1<br>
>><br>
>> En el ejemplo que hay abajo, se dibuja para 0<=x<=1, 0<=y<=1. ¿Me pueden<br>
>> ofrecer alguna ayudita para dibujarla en el recinto 0<= x <= y <=1 ?<br>
>><br>
>> Y si además me indican cómo  dibujar las proyecciones (curvas de nivel) en<br>
>> los planos XY, YZ y XZ, ¡menudo dibujo quedaría!<br>
>> ¡Gracias!<br>
>> Emilio<br>
>><br>
>> library(plot3D)<br>
>> x <- seq(0, 1,length.out=50)<br>
>> y <- seq(0, 1,length.out=50)<br>
>> M <- mesh(x, y)<br>
>> surf3D(x = M$x,<br>
>>        y = M$y,<br>
>>        z =  pmin( 1 - abs(M$x-0.7), 1-abs(M$y-0.2) ),<br>
>>        colkey=TRUE,<br>
>>       bty="g")<br>
>><br>
>><br>
>> --<br>
>> =================================================<br>
>> Emilio Torres Manzanera<br>
>><br>
>> _______________________________________________<br>
>> R-help-es mailing list<br>
>> <a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a><br>
>> <a href="https://stat.ethz.ch/mailman/listinfo/r-help-es" rel="noreferrer" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
>><br>
<br>
--<br>
</div></div>=================================================<br>
<span class="HOEnZb"><font color="#888888">Emilio Torres Manzanera<br>
=================================================<br>
</font></span></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><span style="font-family:verdana,sans-serif">Saludos,</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif">Carlos Ortega</span><br style="font-family:verdana,sans-serif">
<span style="font-family:verdana,sans-serif"><a href="http://www.qualityexcellence.es" target="_blank">www.qualityexcellence.es</a></span></div>
</div>