New in Wolfram Mathematica 7: Automated Charting Graphics  previous | next 
Generate Charts with Optimized Color Schemes
Generate charts using color schemes with high contrast and appropriate for different settings.
In[1]:=

Click for copyable input
GraphicsGrid[

 Partition[

  Table[PieChart3D[Range[12], ChartStyle -> i, 

    PlotLabel -> ColorData[i, "PrivateStandardNames"][[1, 2]]], {i, 

    44, 62, 1}], 4, 4, 1, ""]]
Out[1]=