Wolfram mathematica Mathematica：具有相同坐标系的不同直方图&；相同的料仓宽度规格

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

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]}]

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`}}
桌子[
直方图[
DeleteCases[data[[i]]，{}]，
3*Abs[差异][
最后一个[PlotRange/。
选项[Histogram[DeleteCases[Flatten[data]，{}]，
绘图范围->自动]，绘图范围]]]/
长度[DeleteCases[Flatten[data]，{}]]，
绘图标签->
Text[Style[“Cluster”to字符串[i]，TextAlignment->Center]]，
帧->{True，None}，{True，None}，
FrameLabel->{{{{{{{}}}{{{{{}}}{{{{}}}}}{{{{{}}}}无}，
绘图范围->
零件[PlotRange/。
选项[Histogram[DeleteCases[Flatten[data]，{}]，
PlotRange->Automatic]，PlotRange]，2]
]，{i，长度[数据]}]

作为起点，假设版本8，您可以使用

HistogramList[Flatten[data]]

计算箱子，然后将其作为第二个参数来构建单独的直方图。如果您有很多Mathematica问题，有一个单独的StackExchange站点专门用于，也许你值得在那里问问。目前，这个问题是关于StackOverflow的，所以不太可能结束。但是，在未来，考虑我们在另一个地点。再次感谢布雷特冠军今天！用“FreedmanDiaconis”作为binning方法，我得到了我想要的对不起，科莱尔没有注意。是否有办法将我的帖子和以前的帖子（也是与Mathematica相关的问题）移动到Mathematica StackExchange网站，以便其他人可以从所做的回答中获益？如果您的帖子有效，请随时回答您自己的问题。