Animated Bubble Chart

• To: mathgroup at smc.vnet.net
• Subject: [mg100018] Animated Bubble Chart
• From: Jon Rogers <jroge at mac.com>
• Date: Fri, 22 May 2009 01:42:13 -0400 (EDT)

```I am looking to create an animated bubble chart similar to what Hans
Rosling did at TED a few years ago. It seems like Mathematica's
Manipulate function is a perfect tool for doing this. Can anyone
suggest some ideas on how to approach this? I am a newbie user and
have gotten stuck.

I am pulling in data using the CountryData function and one of the
examples from the built-in documentation. Here is the code from the
online documentation:

countries = CountryData["Europe"];

properties = {"PovertyFraction", "GDPPerCapita", "Population"};

data = {#1, Log@#2, #3} & @@@
Table[CountryData[c, p], {c, countries}, {p, properties}];

labeler[v_, {r_, c_}, ___] :=
Placed[Grid[{{Style[countries[[c]], Bold, 12], SpanFromLeft},
{"Poverty",
Row[{Round[100 v[[1]]], "%"}]}, {"GDP Per Capita",
Row[{"\$", Round[Exp[v[[2]]]]}]}, {"Population",
Row[{NumberForm[v[[3]] 10^-6, {4, 2}], " million"}]}},
Alignment -> Left], Tooltip]

BubbleChart[data, ChartStyle -> 24, LabelingFunction -> labeler,
FrameLabel -> {"Poverty Fraction", "Log GDP Per Capita"}]

The chart is using poverty on the X-Axis, GDP Per Capita on the Y, and
Population for the bubble size. I would like to animate the bubbles
for a 10-year period, 1990-2000. Any pointers would be appreciated.

Thanks,

Jon

PS: Here is a link to Hans' TED presentation:

http://www.ted.com/index.php/talks/hans_rosling_shows_the_best_stats_you_ve_ever_seen.html

```

• Prev by Date: Re: Legend for DateListPlot
• Next by Date: Re: Rotating a list of 3D point coordinates in one shot
• Previous by thread: Re: no Condition in EventHandler?
• Next by thread: Re: Animated Bubble Chart