[R-es] scatterplot3d blanco y negro

[Carlos Ortega]

Hola,

Aunque tengas ya el problema resuelto, por cuestiones estéticas, de acabado
te propongo una alternativa basada en este paquete reciente "plot3D":


# dummy data
df <- data.frame(
                 x = runif(50),
                 y = runif(50),
                 z = runif(50),
                 group =sample(1:3,50, replace = TRUE)
                 )

library(plot3D)

with(df, scatter3D(x = x, y = y, z = z, colvar = group, col=jet.col(3),
                       pch = 16, cex = 0.85, xlab = "X", ylab = "Y",
cex.axis=0.7,
                       zlab = "Z", clab = c("Factor"),
                       main = "Plot3D", ticktype = "detailed",
                       theta = 40, phi=20, d = 2, bty="g", type="h",
                       colkey = list(length = 0.5, width = 0.5, cex.clab =
0.75))
)


El resultado, al menos para mí, merece la pena más que el de
scatterplot3d....:






[image: Imágenes integradas 2]

Saludos,
Carlos Ortega
www.qualityexcellence.es


El 11 de marzo de 2014, 11:05, Elvira Ferre <mariaelvira.ferre en um.es>escribió:

> Perfecto, justo lo que buscaba.
> Muchísimas gracias.
> Saludos.
>
>
> El 11/03/14 10:29, Jorge I Velez escribió:
> > Hola Elvira,
> >
> > Muchas gracias por el codigo.  Intenta lo siguiente:
> >
> >
> scatterplot3d(df$x,df$y,df$z,color=factor(df$group,label=c("green","blue","red")),
> > pch=as.numeric(df$group))
> >
> > Saludos,
> > Jorge.-
> >
> >
> > 2014-03-11 20:12 GMT+11:00 Elvira Ferre <mariaelvira.ferre en um.es
> > <mailto:mariaelvira.ferre en um.es>>:
> >
> >     Hola,
> >     tengo unos datos clasificados en tres grupos y quiero
> >     representarlos en un cubo de forma que
> >     cada grupo tenga un color/ símbolo distinto.
> >     He conseguido hacerlo por colores (código) y me gustaría hacerlo
> >     variando el 'pch'. He intentado hacerlo del mismo modo pero no
> >     funciona. ¿Se puede hacer?¿Puede ayudarme alguien?
> >     Muchísimas gracias. Elvira.
> >
> >
> >     library(scatterplot3d)
> >
> >     # dummy data
> >     df <- data.frame(x = runif(50),
> >                      y = runif(50),
> >                      z = runif(50),
> >                      group =as.factor(sample(letters[1:3],50, replace
> >     = TRUE)))
> >
> >     # create the plot
> >
> scatterplot3d(df$x,df$y,df$z,color=factor(df$group,label=c("green","blue","red")),
> >     pch=19)
> >
> >
> >
> >     --
> >     Sec. Apoyo Estadístico.
> >     Servicio de Apoyo a la Investigación (SAI)
> >     Vicerrectorado de Investigación e Internacionalización.
> >     Universidad de Murcia
> >
> >     Edif. SACE. Campus de Espinardo.
> >     30100 Murcia
> >     @. mariaelvira.ferre en um.es <mailto:mariaelvira.ferre en um.es>
> >     T. 868 88 7315 F. 868 88 7302
> >     www.um.es/sai <http://www.um.es/sai> www.um.es/ae
> >     <http://www.um.es/ae>
> >     ---
> >
> >     _______________________________________________
> >     R-help-es mailing list
> >     R-help-es en r-project.org <mailto:R-help-es en r-project.org>
> >     https://stat.ethz.ch/mailman/listinfo/r-help-es
> >
> >
>
> --
> Sec. Apoyo Estadístico.
> Servicio de Apoyo a la Investigación (SAI)
> Vicerrectorado de Investigación e Internacionalización.
> Universidad de Murcia
>
> Edif. SACE. Campus de Espinardo.
> 30100 Murcia
> @. mariaelvira.ferre en um.es
> T. 868 88 7315 F. 868 88 7302
> www.um.es/sai www.um.es/ae
> ---
>
>
>         [[alternative HTML version deleted]]
>
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>
>


-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140311/37dc5b6a/attachment-0001.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: Rplot.png
Type: image/png
Size: 89133 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20140311/37dc5b6a/attachment-0001.png>