(Cannot connect to FinancialData, so I used fakeReturns instead of logr.)
It seems Histogram using Round[logr,.001] as bin delimiters and "SF" (i.e., SurvivalFunction) as the height function gives something close to what I think you need:
fakeReturns = RandomVariate[NormalDistribution[], 600];
Histogram[fakeReturns, {Union@Round[fakeReturns, 0.1]}, "SF", PlotRange -> Full]
or, with a different specification of "typical" values:
Histogram[fakeReturns, {Union@Round[fakeReturns, 0.01]}, "SF", PlotRange -> Full]
