New in Wolfram Mathematica 7: Automated Charting Graphics ◄ previous | next ►
Use 3D Charting Functions
Use any 3D charting function.
In[1]:=

Click for copyable input
GraphicsGrid[{{BarChart3D[Range[5], Axes -> None], 

   PieChart3D[Range[5]], 

   BubbleChart3D[RandomReal[1, {10, 4}], 

    Axes -> None]}, {RectangleChart3D[Tuples[{1, 2}, 3], 

    Axes -> None], SectorChart3D[Tuples[{1, 2}, 3]], 

   Histogram3D[RandomReal[NormalDistribution[0, 1], {500, 2}], 

    Axes -> None]}}]
Out[1]=