rawdata = RandomReal[NormalDistribution[50, 20], 12000];
bins = {Range[0, 100, 10]};
Histogram[rawdata, bins, "Probability",
Ticks ->{First@bins,
Table[{.01 i, If[Mod[i , 5] == 0, ToString[i] <> "%", ""]}, {i, 100}]}]
С BarChart вы также получаете полный контроль над метками, и, возможно, лучше в некоторых ситуациях:
BarChart[(Length /@ BinLists[rawdata, bins])/Length@rawdata 100,
ChartLabels -> bins[[1, 2 ;;]],
Ticks -> {Automatic,
Table[{i, If[Mod[i, 5] == 0, ToString[i] <> "%", ""]}, {i, 1, 100}]
}]
Редактировать
Если вы собираетесь использовать BinLists[]
, запомните эту скользкую деталь: (из справки)
В BinLists [данные,{xMin, xMax, dx}], элементы помещаются в bin i, когда их значения удовлетворяют xMin + (i-1) dx <= x <xMin + i dx. </p>
В форме BinLists [data, {{b1, b2, ...}}], bi на каждом конце может быть -Infinity и + Infinity.