EDIT
HistogramList[data, "Log", "Probability"]
or for the counts:
HistogramList[data, "Log", "Count"]
ListPlot[Last@%]
Original answer
data = RandomVariate[NormalDistribution[0, 1], 200];
Histogram[data]
Histogram[data, ScalingFunctions -> {"Log", "Log"}]
Histogram[data, {"Log", "Sturges"}]
data = RandomVariate[NormalDistribution[0, 1], 200];
Histogram[data]
Histogram[data, ScalingFunctions -> {"Log", "Log"}]
Histogram[data, {"Log", "Sturges"}]
EDIT
HistogramList[data, "Log", "Probability"]
or for the counts:
HistogramList[data, "Log", "Count"]
ListPlot[Last@%]
Original answer
data = RandomVariate[NormalDistribution[0, 1], 200];
Histogram[data]
Histogram[data, ScalingFunctions -> {"Log", "Log"}]
Histogram[data, {"Log", "Sturges"}]