Re: Animated Bubble Chart
- To: mathgroup at smc.vnet.net
- Subject: [mg100153] Re: Animated Bubble Chart
- From: "Drago Ganic" <dganic at vodatel.net>
- Date: Tue, 26 May 2009 05:11:39 -0400 (EDT)
- References: <gv5dt0$ib8$1@smc.vnet.net>
Hi,
you should basically parametrize your data with a year parameter:
data[year_] := {#1, Log@#2, #3} & @@@
Table[CountryData[c, {{p}, year}], {c, countries}, {p, properties}]
and then Animate/Manipulate the graph
Animate[
Quiet[
BubbleChart[
data[year],
ChartStyle -> 24,
LabelingFunction -> labeler,
FrameLabel -> {"PopulationGrowth", "Log GDP Per Capita"},
PlotRange -> {{-0.02, 0.04}, {5, 12}},
Prolog -> {Text[Style[year, FontSize -> Scaled[0.4], FontColor ->
LightGray], Scaled[{1/2, 1/2}]]}]
],
{year, 2000, 2006, 1}]
Unfortunately, you can not use the property "Poverty Fraction" because it
does not have historical values, e.g. the function form:
CountryData[c, {{"Poverty Fraction"}, year}]
does not work.
Use "PopulationGrowth" or something from the list:
{"AgriculturalValueAdded", "ConstructionValueAdded", "ExchangeRate", \
"ExpenditureFractions", "ExportValue", "FixedInvestment", "GDP", \
"GDPPerCapita", "GDPRealGrowth", "GDPSectorFractions", \
"GovernmentConsumption", "GrossInvestment", "HouseholdConsumption", \
"ImportValue", "IndustrialValueAdded", "InflationRate", \
"InventoryChange", "ManufacturingValueAdded", \
"MiscellaneousValueAdded", "NationalIncome", "Population", \
"PopulationGrowth", "PriceIndex", "TotalConsumption", \
"TradeValueAdded", "TransportationValueAdded", "ValueAdded"}
Best regards,
Drago
P.S.: Could somebody fix the aspect ratio problem of the bubles?
"Jon Rogers" <jroge at mac.com> wrote in message
news:gv5dt0$ib8$1 at smc.vnet.net...
>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
>