Graphics & Visualization

Create Population Pyramids 

In[1]:=

X {age, male, female} = Transpose[ WolframAlpha[ "us population pyramid", {{"Result", 1}, "ComputableData"}]];

In[2]:=

X PairedBarChart[male, female, ChartStyle -> {{ColorData["Pastel", 1], ColorData["Pastel", 0.2]}, None, None}, ChartLabels -> {Placed[{"Men", "Women"}, Top], None, Placed[age, Axis, Row[#[[1]], "-"] &]}, BarSpacing -> {2 10^6, 0, 0}, PlotLabel -> "United States Population by Age, 2008", ImageSize -> 550, BaseStyle -> {FontFamily -> "Helvetica"}]

Out[2]=