Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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