Jack,

There is no pch= argument for plot3d() or points3d().  You can change the 
color and the size of the symbols.  Or you can use characters as symbols 
using text3d().  I found that suggestion by searching the rhelp archives.

It is helpful to share code that will work.

x <- c(-4, -2, 0, 2, 4)
y <- c(-4, 0, 2, -3, 1)
z <- c(-2, 6, -3, 5, 5)

library(rgl)
plot3d(x, y, z, xlim=c(-5,7), ylim=c(-5,3), zlim=c(-4,7), xlab="PC1", 
ylab="PC2", zlab="PC3", col=1, type="n") 
text3d(x, y, z, col=1, "o") 
text3d(x+1, y+0.5, z, col=2, "*") 
text3d(x-0.5, y, z-0.5, col=3, "w") 

Jean


`·.,,  ><(((º>   `·.,,  ><(((º>   `·.,,  ><(((º>

Jean V. Adams
Statistician
U.S. Geological Survey
Great Lakes Science Center
223 East Steinfest Road
Antigo, WI 54409  USA




From:
jack hietpas <mikros...@gmail.com>
To:
r-help@r-project.org
Date:
07/29/2011 03:04 PM
Subject:
[R] change pch in 3dplot, export graph
Sent by:
r-help-boun...@r-project.org



Hello I was wondering if anyone has been able to change the pch value for
points in 3dplot()?  I am able to change point colors just not symbol 
types.
 I have included a portion of my code below.  I realize this won't work
outside of my script, but thought, maybe there is something obvious that I
am doing wrong.   Also is it possible to utilize the interactive feature 
of
3dplot in a powerpoint, perhaps there is some sort of file format that the
graph could be exported to?  Any suggestions would be very much 
appreciated.
 Thanks in advance,


library(rgl, pos=4)
plot3d(subset(Dataset$PC1, source=="ashe_amphib"), subset(Dataset$PC2,
source=="ashe_amphib"), subset(Dataset$PC3, source=="ashe_amphib"),
xlim=c(-5,7), ylim=c(-5,3), zlim=c(-4,7), xlab="PC1", ylab="PC2",
zlab="PC3", col=1, pch=1)
points3d(subset(Dataset$PC1, source=="ashe_ZAS"), subset(Dataset$PC2,
source=="ashe_ZAS"), subset(Dataset$PC3, source=="ashe_ZAS"), col=2, 
pch=2)
points3d(subset(Dataset$PC1, source=="earlies_gap"), subset(Dataset$PC2,
source=="earlies_gap"), subset(Dataset$PC3, source=="earlies_gap"), col=3,
pch=3)


-jh

                 [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide 
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.



        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to