New in Wolfram Mathematica 7: Automatic Histogram Generation  previous | next 
Style Histograms with Charting Options
In[1]:=

Click for copyable input
data3D = RandomReal[NormalDistribution[0, 1], {200, 2}];

data = Flatten[data3D];
In[2]:=

Click for copyable input
GraphicsGrid[{{Histogram[data, 

    ChartElementFunction -> "GlassRectangle", 

    ColorFunction -> "FruitPunchColors"], 

   Histogram[data, ChartElements -> Graphics[Disk[]], 

    ChartStyle -> Orange]}, {Histogram3D[data3D, 

    ChartElementFunction -> "FadingCube", 

    ColorFunction -> "SolarColors", ChartBaseStyle -> EdgeForm[]], 

   Histogram3D[data3D, 

    ChartElements -> N[PolyhedronData["Dodecahedron"]], 

    ChartStyle -> Directive[Purple, Specularity[10]]]}}, 

 ImageSize -> Large]
Out[2]=