New in Wolfram Mathematica 7: Automated Charting Graphics ◄ previous | next ►
Create Pictorial Bar Charts
Create a bar chart using any graphic for the bars.
In[1]:=

Click for copyable input
data = Table[

   Labeled[CountryData[c, "Population"]/10^6, 

    Rotate[Style[CountryData[c, "Name"], Bold, FontSize -> 12], 

     Pi/2.5]], {c, CountryData["G8"]}];
In[2]:=

Click for copyable input
BarChart[data, ChartElements -> CountryData["G8", "Flag"], 

 GridLines -> {None, Automatic}, 

 PlotLabel -> 

  Style["Population of G8 Countries (millions)", "Title", 

   FontSize -> 14]]
Out[2]=