data = Join[RandomReal[NormalDistribution[10, 1], 500], RandomReal[GammaDistribution[1, 2], 1000]];
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]