如何在Mathematica中获得直方图以百分比显示分档？

Question

我现在能够使用hspec"概率"生成一个y轴上的值在0.0和1.0之间的直方图,但是我想知道是否有办法将其显示为百分比(这只会改变标签) y轴).

这是我目前正在使用的:

Histogram[rawdata, {{0, 10, 20, 30, 40, 50, 60, 70, 80, 90,100}}, "Probability", 
          PlotRange -> {0, 1}]

Answer 1

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 [data,{xMin,xMax,dx}]中,当元素值满足xMin +(i-1)dx <= x <xMin + i dx时,元素被放置在bin i中.

在BinLists [data,{{b1,b2,...}}]形式中,每端的bi可以是-Infinity和+ Infinity.