Gráficos & Visualização

Compare múltiplos conjuntos de dados 

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