It seems like you have two questions, one about color rendering, and another about making animations.
For the second question : I've found the animation package useful in similar situations, where I want to share results with non-R users who want a static visualization. By using animation you can create a HTML page that you can view by simply opening the html index page. There are some simple controls that can let you step through your animation manually or at a specific time interval. I also find that the brute force method of saving files and stepping through them is usually my best solution. My favorite thing though has been to use the PBSmodelling package. You can make a graph and a slider, and then you can interactively change the graph with the slider, they have many great demos in their package of how to create sliders. Also, the rpanel function is pretty nice for some simple work http://chartsgraphs.wordpress.com/2009/05/08/rpanel-package-adds-interactive-capabilites-to-r/ On Thu, Jul 28, 2011 at 3:14 PM, Dale Coons <dale.co...@gmail.com> wrote: > I'm have a (minor) problem and a question. > Problem: The following code creates 5 clusters of dots of different colors. > However, I need the second call outside the data.frame call to get the > colors to change for some reason. I assume there's an error in the > data.frame() call, but I don't know what. > Question: Is there is a way to cause the resulting graphic to rotate on > it's own and to output to a animated gif or some other format that could be > used in a powerpoint type presentation? I work with a bunch of 'drama > queens'--they'd like it if there was some motion rather than a static > display ;-) > > Thanks in advance, > Dale. > > library(rgl) > clusset<-data.frame(x=c(round(**abs(rnorm(5,7,1)),1),round(** > abs(rnorm(5,11,2)),1), > round(abs(rnorm(5,16,2)),1),** > round(abs(rnorm(5,20,1.5)),1),**round(abs(rnorm(5,5,2)),1)), > y=c(round(abs(rnorm(5,7,2)),1)** > ,round(abs(rnorm(5,11,2)),1), > round(abs(rnorm(5,16,2)),1),** > round(abs(rnorm(5,4,2)),1),**round(abs(rnorm(5,7,2)),1)), > z=c(round(abs(rnorm(5,7,2)),1)** > ,round(abs(rnorm(5,12,2)),1), > round(abs(rnorm(5,16,1)),1),** > round(abs(rnorm(5,6,2)),1),**round(abs(rnorm(5,17,2)),1)), > dotcol=c(rep('red2',5),rep('** > green2',5),rep('blue2',5),rep(**'yellow1',5),rep('purple2',5)) > ) > > #this call doesn't show the right colors--why? > plot3d(clusset, xlim=c(0,25), ylim=c(0,25), zlim=c(0,25),xlab='',ylab='',* > *zlab='', col=clusset$dotcol, radius=1, type='s') > #but if I redefine the colors again and call, it does > clusset$dotcol<-c(rep('red2',**5),rep('green2',5),rep('blue2'** > ,5),rep('yellow1',5),rep('**purple2',5)) > plot3d(clusset, xlim=c(0,25), ylim=c(0,25), zlim=c(0,25),xlab='',ylab='',* > *zlab='', col=clusset$dotcol, radius=1, type='s') > > ______________________________**________________ > R-help@r-project.org mailing list > https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help> > PLEASE do read the posting guide http://www.R-project.org/** > posting-guide.html <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.
