Thanks to several who responded--I should have looked (doh!) in the
documentation. play3d() and movie3d() were just the ticket!
On 7/28/2011 4:48 PM, Jean V Adams wrote:
>
> Dale,
>
> I do not have the same color problem when I run your code on my PC.
> The colors in both devices look the same. I'm running R version
> 2.13.0 on Windows.
>
> I am not familiar with the rgl package, but I found a function that
> might be helpful to you when I searched for "gif" in the package
> reference manual.
>
> ?movie3d()
>
> Hope this helps.
>
> Jean
>
>
> `·.,, ><(((º> `·.,, ><(((º> `·.,, ><(((º>
>
> Jean V. Adams
> Statistician
> U.S. Geological Survey
> Great Lakes Science Center
> 223 East Steinfest Road
> Antigo, WI 54409 USA
>
>
> From: Dale Coons <dale.co...@gmail.com>
> To: r-help@r-project.org
> Date: 07/28/2011 03:22 PM
> Subject: [R] Animated gif or something similar in R?
> Sent by: r-help-boun...@r-project.org
>
>
> ------------------------------------------------------------------------
>
>
>
> 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
> 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.
