<div dir="ltr">Hola,<div><br></div><div>Aunque tengas ya el problema resuelto, por cuestiones estéticas, de acabado te propongo una alternativa basada en este paquete reciente "plot3D":</div><div><br></div><div><div>
<br></div><div># dummy data</div><div>df <- data.frame( </div><div>                 x = runif(50),</div><div>                 y = runif(50),</div><div>                 z = runif(50),</div><div>                 group =sample(1:3,50, replace = TRUE)</div>
<div>                 )</div><div><br></div><div>library(plot3D)</div><div><br></div><div>with(df, scatter3D(x = x, y = y, z = z, colvar = group, col=jet.col(3),</div><div>                       pch = 16, cex = 0.85, xlab = "X", ylab = "Y", cex.axis=0.7, </div>
<div>                       zlab = "Z", clab = c("Factor"),</div><div>                       main = "Plot3D", ticktype = "detailed", </div><div>                       theta = 40, phi=20, d = 2, bty="g", type="h",</div>
<div>                       colkey = list(length = 0.5, width = 0.5, cex.clab = 0.75))</div><div>)</div><div><br></div></div><div><br></div><div>El resultado, al menos para mí, merece la pena más que el de scatterplot3d....:</div>
<div><br></div><div>









<br></div><div><br></div><div><br></div><div><br></div><div><br></div><div><img src="cid:ii_144b344fc741db83" alt="Imágenes integradas 2" width="686" height="327"><br></div><div><br></div><div>Saludos,</div><div>Carlos Ortega</div>
<div><a href="http://www.qualityexcellence.es">www.qualityexcellence.es</a></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">El 11 de marzo de 2014, 11:05, Elvira Ferre <span dir="ltr"><<a href="mailto:mariaelvira.ferre@um.es" target="_blank">mariaelvira.ferre@um.es</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Perfecto, justo lo que buscaba.<br>
Muchísimas gracias.<br>
Saludos.<br>
<br>
<br>
El 11/03/14 10:29, Jorge I Velez escribió:<br>
<div class="">> Hola Elvira,<br>
><br>
> Muchas gracias por el codigo.  Intenta lo siguiente:<br>
><br>
> scatterplot3d(df$x,df$y,df$z,color=factor(df$group,label=c("green","blue","red")),<br>
> pch=as.numeric(df$group))<br>
><br>
> Saludos,<br>
> Jorge.-<br>
><br>
><br>
> 2014-03-11 20:12 GMT+11:00 Elvira Ferre <<a href="mailto:mariaelvira.ferre@um.es">mariaelvira.ferre@um.es</a><br>
</div>> <mailto:<a href="mailto:mariaelvira.ferre@um.es">mariaelvira.ferre@um.es</a>>>:<br>
<div><div class="h5">><br>
>     Hola,<br>
>     tengo unos datos clasificados en tres grupos y quiero<br>
>     representarlos en un cubo de forma que<br>
>     cada grupo tenga un color/ símbolo distinto.<br>
>     He conseguido hacerlo por colores (código) y me gustaría hacerlo<br>
>     variando el 'pch'. He intentado hacerlo del mismo modo pero no<br>
>     funciona. ¿Se puede hacer?¿Puede ayudarme alguien?<br>
>     Muchísimas gracias. Elvira.<br>
><br>
><br>
>     library(scatterplot3d)<br>
><br>
>     # dummy data<br>
>     df <- data.frame(x = runif(50),<br>
>                      y = runif(50),<br>
>                      z = runif(50),<br>
>                      group =as.factor(sample(letters[1:3],50, replace<br>
>     = TRUE)))<br>
><br>
>     # create the plot<br>
>     scatterplot3d(df$x,df$y,df$z,color=factor(df$group,label=c("green","blue","red")),<br>
>     pch=19)<br>
><br>
><br>
><br>
>     --<br>
>     Sec. Apoyo Estadístico.<br>
>     Servicio de Apoyo a la Investigación (SAI)<br>
>     Vicerrectorado de Investigación e Internacionalización.<br>
>     Universidad de Murcia<br>
><br>
>     Edif. SACE. Campus de Espinardo.<br>
>     30100 Murcia<br>
</div></div>>     @. <a href="mailto:mariaelvira.ferre@um.es">mariaelvira.ferre@um.es</a> <mailto:<a href="mailto:mariaelvira.ferre@um.es">mariaelvira.ferre@um.es</a>><br>
<div class="">>     T. 868 88 7315 F. 868 88 7302<br>
</div>>     <a href="http://www.um.es/sai" target="_blank">www.um.es/sai</a> <<a href="http://www.um.es/sai" target="_blank">http://www.um.es/sai</a>> <a href="http://www.um.es/ae" target="_blank">www.um.es/ae</a><br>

>     <<a href="http://www.um.es/ae" target="_blank">http://www.um.es/ae</a>><br>
<div class="">>     ---<br>
><br>
>     _______________________________________________<br>
>     R-help-es mailing list<br>
</div>>     <a href="mailto:R-help-es@r-project.org">R-help-es@r-project.org</a> <mailto:<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<div class="">><br>
><br>
<br>
--<br>
Sec. Apoyo Estadístico.<br>
Servicio de Apoyo a la Investigación (SAI)<br>
Vicerrectorado de Investigación e Internacionalización.<br>
Universidad de Murcia<br>
<br>
Edif. SACE. Campus de Espinardo.<br>
30100 Murcia<br>
@. <a href="mailto:mariaelvira.ferre@um.es">mariaelvira.ferre@um.es</a><br>
T. 868 88 7315 F. 868 88 7302<br>
<a href="http://www.um.es/sai" target="_blank">www.um.es/sai</a> <a href="http://www.um.es/ae" target="_blank">www.um.es/ae</a><br>
---<br>
<br>
<br>
</div>        [[alternative HTML version deleted]]<br>
<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" target="_blank">https://stat.ethz.ch/mailman/listinfo/r-help-es</a><br>
<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><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>