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.coons@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]]

