Question

我正在进行聚类分析，并希望在直方图中绘制我的一些结果。为了将一个簇与另一个簇进行比较，我发现对每个直方图使用相同的坐标系和相同的bin宽度是有用的。对于情节范围，我已经得到了一个提示：

PlotRange/.Options[Histogram[DeleteCases[Flatten[data], {}], 
           PlotRange -> Automatic], PlotRange]

箱宽是否有类似的方法？使用我的方法，您将看到对于簇3，当最低柱超过坐标系时，块宽度会变大。

示例：

data = {{-1.2056`, -1.46192`, -1.30053`, -2.52879`, -0.99636`, {}},
{-1.73904`, -1.164`, -1.83398`, -0.97505`, {}, {}, -0.503256`,
-0.63802`}, {-0.785963`, -0.711821`, -0.820439`, -1.8699`, -3.9659`,
-1.4456`, -1.67021`, -1.42009`, -2.5644`, -1.45002`, -1.27806`,
-1.66529`, -1.67073`, -3.31102`, -3.38638`}}

Table[
 Histogram[
  DeleteCases[data[[i]], {}], 
  3*Abs[Differences[
      Last[PlotRange /. 
        Options[Histogram[DeleteCases[Flatten[data], {}], 
          PlotRange -> Automatic], PlotRange]]]]/
    Length[DeleteCases[Flatten[data], {}]],
  PlotLabel -> 
   Text[Style["Cluster " <> ToString[i], TextAlignment -> Center]],
  Frame -> {{True, None}, {True, None}},
  FrameLabel -> {{"###", None}, {"###", None}},
  PlotRange -> 
   Part[PlotRange /. 
     Options[Histogram[DeleteCases[Flatten[data], {}], 
       PlotRange -> Automatic], PlotRange], 2]
  ], {i, Length[data]}]

Mathematica：具有相同坐标系的不同直方图＆amp;相同的箱宽规格

0 个答案: