Re: Q: How to animate a list plot?
- To: mathgroup at smc.vnet.net
- Subject: [mg69569] Re: [mg69500] Q: How to animate a list plot?
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 15 Sep 2006 06:47:10 -0400 (EDT)
- Reply-to: hanlonr at cox.net
Needs["Graphics`"];
data=Table[{Random[],Random[],Random[]},{250}];
Module[{n=15,k},Table[k=m/n;
ScatterPlot3D[{1-k,k,1}*#&/@data,
PlotRange->{{0,1},{0,1},{0,1}},
PlotStyle->Hue[(k+1)/2]],{m,0,n}]];
Module[{n=15,k},
Table[k=m/n;ListPlot[{#[[1]](1-k)+#[[2]]*k,#[[3]]}&/@data,
PlotRange->{{0,1},{0,1}},PlotStyle->Hue[(k+1)/2]],
{m,0,n}]];
Bob Hanlon
---- "Coleman wrote:
> Greetings,
>
> I'm trying to figure out how to develop -- for lack of a better term --
> an animated scatter plot. I have three variables, call them x, y, and z.
> The points x and y are recorded measurements on the same subjects, taken
> at different points in time. The variable z does not change over time.
>
> I'd like to find a way to visualize how the ListPlot[{x,z}] transitions
> into the ListPlot[{y,z}]. My sample of data is 250 points, so I am
> trying to visualize 250 points moving from one set of positions on the
> Cartesian plane to another set of positions. The y observations are more
> highly correlated with z, so one could image the points becoming more
> tightly clustered as one moves from x->y. Any thoughts on how I might
> show this?
>
> Thanks,
>
> -Mark
>