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]