Representación gráfica de las clases

El comando siguiente define la variable SubArbol como una lista de los 5 nodos o subárboles que resultan de cortar el árbol A al nivel 45.

SubArbol = CutTree[A, 45];

Nuevamente se termina la orden con ; para no desplegar el resultado. En este caso sólo interesa definir la variable SubArbol para el propósito de trazar el gráfico de cada uno de los subárboles correspondientes a la partición en 5 clases obtenida con el corte especificado. Como en el caso de la jerarquía total, el comando TreePlot permite construir los gráficos del subárbol de cada clase:

TreePlot[SubArbol[[1]], LeafLabelDistance -> 0.01];

Además de las opciones propias de TreePlot, este procedimiento acepta todas aquellas que reconoce la primitiva Graphics de MATHEMATICA. Por ejemplo PlotRange, Axes, Frame, etc. Con la construcción de los gráficos asociados a las clases 3 y 4 se ilustran algunas posibilidades.

TreePlot[SubArbol[[3]], LeafLabelDistance -> 0.01, Frame -> True,
FrameTicks -> {False, True, False, False}];

TreePlot[SubArbol[[4]], Axes -> False, True, LeafLabelDistance -> 0.006];

La variable MisTicks define las marcas y etiquetas deseados para el eje Y, a emplear en los siguientes gráficos:

MisTicks = {None, {{0, 0}, {0.025, " "}, {0.05, 5}, {0.075, " "}, {0.1,10},
{0.125, " "}, {0.15, 15}, {0.175, " "}, {0.2, 20}, {0.225," "}}};

TreePlot[SubArbol[[4]], Axes -> {False, True}, LeafLabelDistance -> 0.005,
Ticks ->MisTicks];

La función Graf recibe un nodo representante de una clase y produce el gráfico del árbol correspondiente, estableciendo explícitamente la misma área de gráfico, PlotRange->{{-0.2,13.4},{-0.02,0.11}}, para todo gráfico que trace. Además agrega otras características deseadas para el gráfico.

Graf[arb_] := TreePlot[arb, LeafLabelDistance -> 0.01,
PlotRange -> {{-0.2, 18.0}, {-0.02,0.24}},
Axes -> {False, True},Ticks -> MisTicks];

Con esta función es posible construir los gráficos asociados a las clases, en todos los casos utilizando las mismas escalas en los ejes X y Y, para definir con ellos un solo arreglo utilizando la primitiva GraphicsArray.

{g1,g2,g3,g4,g5} = Map[Graf,SubArbol];

Show[GraphicsArray[{{g1, g2}, {g3, Graphics[{}]}, {g4, g5}}]];