New in Wolfram Mathematica 7: Automatic Histogram Generation  previous | next 
Use Multiple Datasets
In[1]:=

Click for copyable input
GraphicsColumn[{

  Histogram[

   Table[RandomInteger[PoissonDistribution[10 i], 1000], {i, 5}], {1},

    "ProbabilityDensity", PlotRange -> All],

  Histogram3D[

   Flatten[Table[{RandomInteger[PoissonDistribution[5 i]], 

      RandomInteger[PoissonDistribution[5 j]]}, {i, 2}, {j, 

      2}, {100}], 1], {1}, "ProbabilityDensity", PlotRange -> All]

  }, ImageSize -> Large]
Out[1]=