New in Wolfram Mathematica 7: Automatic Histogram Generation  previous | next 
Use a Variety of Binning Methods
In[1]:=

Click for copyable input
data = Join[RandomReal[NormalDistribution[10, 1], 500], 

   RandomReal[GammaDistribution[1, 2], 1000]];
In[2]:=

Click for copyable input
GraphicsGrid[

 Partition[

  Histogram[data, #, PlotLabel -> #, 

     PlotRange -> All] & /@ {8, {1}, {0, 16, 

     0.5}, {{0, 1, 2, 4, 8, 16}}, "Log", "Sturges", "Scott", 

    "FreedmanDiaconis", "Wand"}, 3], ImageSize -> Large]
Out[2]=