Новое в системе Wolfram
Mathematica
8: Статистические визуализации
◄
предыдущая
|
следующая
►
Графика и визуализация
Сравнение нескольких совокупностей данных друг с другом
Сравнение множественных совокупностей данных друг с другом.
In[1]:=
X
labels = {"Bass", "Tenor", "Alto", "Soprano"} ;
In[2]:=
X
groups = Table[ Select[ExampleData[{"Statistics", "SingerHeights"}], StringMatchQ[#[[2]], x <> "*"] &][[All, 1]], {x, labels}];
In[3]:=
X
Grid[Table[ If[x == y, Graphics[ Text[Style[labels[[x]], 16, FontFamily -> "Helvetica", Bold, Brown], {67.5, 67.5}], AspectRatio -> 1, FrameTicks -> {{If[ y == 4, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}], If[y == 1, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}]}, {If[ x == 4, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}], If[x == 1, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}]}}, ImageSize -> 150, PlotRange -> {{58, 77}, {58, 77}}], QuantilePlot[groups[[x]], groups[[y]], ReferenceLineStyle -> Gray, AspectRatio -> 1, FrameTicks -> {{If[ y == 4, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}], If[y == 1, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}]}, {If[ x == 4, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}], If[x == 1, {60, 65, 70, 75}, {#, Invisible[#]} & /@ {60, 65, 70, 75}]}}, ImageSize -> 150, GridLines -> {{60, 65, 70, 75}, {60, 65, 70, 75}}, Method -> {"ReferenceLineMethod" -> "Diagonal"}, PlotStyle -> Directive[AbsolutePointSize[4], ColorData[41, x + y - 1]], GridLinesStyle -> LightGray, PlotRange -> {{58, 77}, {58, 77}}, BaseStyle -> {FontFamily -> "Helvetica"}, LabelStyle -> Bold] ], {x, Range[4]}, {y, Reverse@Range[4]}], Alignment -> {{Left, Center, Center, Left}, {Bottom, Bottom, Bottom, Top}}, Spacings -> {-1.8, -2.}]
Out[3]=