New in Wolfram Mathematica 7: Automated Charting Graphics ◄ previous | next ►
Combine Color Schemes and Charting Elements for Stronger Aesthetics
Combining color schemes and charting elements can get a more refined aesthetic.
In[1]:=

Click for copyable input
GraphicsGrid[{{BarChart3D[RandomReal[1, {5, 5}], 

    ChartElementFunction -> "Cylinder", ChartLayout -> "Stacked", 

    ChartStyle -> "SolarColors", 

    ChartBaseStyle -> 

     Directive[Opacity[0.6], Specularity[White, 30]]], 

   PieChart3D[{Range[6], Range[10]}, ChartStyle -> 61, 

    ChartBaseStyle -> 

     Directive[Opacity[0.8], Specularity[White, 30], 

      EdgeForm[Gray]]]}, {PieChart3D[Range[12], ChartStyle -> 52, 

    SectorOrigin -> {Automatic, 1}, 

    ChartElementFunction -> "ProfileSector3D", 

    ChartBaseStyle -> 

     Directive[Opacity[0.8], Specularity[White, 30], EdgeForm[]]], 

   BarChart3D[Range[-5, 5], ChartStyle -> 53, 

    ChartElementFunction -> "ProfileCube", 

    ChartBaseStyle -> 

     Directive[EdgeForm[Gray], Opacity[0.8], 

      Specularity[White, 30]]]}}]
Out[1]=