Mathematica画Histogram画不出来,

Mathematica画Histogram画不出来,
运行出来是这样：

（如果不加参数,即Histogram[data]则可以运行）

代码如下：
data = {40.6, 41.4, 40.6, 43.1, 37.3, 40.4, 43.4, 43.2, 38.3, 40.3,
39.5, 44.4, 43.4, 42.3, 44.2, 40.5, 41.2, 43.6, 44.7, 45.1, 39.2,
43.3, 41.7, 42.7, 40.4, 42.1, 44.3, 42.1, 42, 47, 45.6, 42.6, 44.3,
44.7, 41.7, 45.7, 43.7, 45.8, 39.8, 45.6, 42, 47, 45.6, 42.6,
41.4, 41.6, 39.1, 37, 43.3, 43.8, 38.9, 40.7, 39.8, 39.8, 43.4,
41.7, 42.7, 40.1, 43.6, 44.7};
Needs["Histograms`"]
Max[data] - Min[data]
CatLength = Ceiling[10/6];
categories = Table[Min[data] - 0.05 + i CatLength, {i, 0, 6}]

Histogram[data, {Min[categories], Max[categories] , categories},
PlotRange -> {0, Automatic}, Frame -> {True, True, False, False},
FrameTicks -> {{Automatic, None}, {categories, None}},
FrameLabel -> {"x",
"y"}]