¿Cómo lograr que la plataforma de distribución de vida utilice los colores definidos en los estados de fila?

[#1]

En las plataformas de análisis, esperaba que los colores de los gráficos coincidieran con lo definido en los estados de fila (si corresponde). Sin embargo, este no parece ser el caso. A continuación, se muestra un ejemplo de una clase grande en la que apliqué colores de estado de fila según la variable Sexo y luego analicé la distribución de vida agrupada por Sexo también. Se utilizan los colores estándar azul y rojo en lugar del violeta y naranja en la tabla de datos.

El código

dt = Open( "$SAMPLE_DATA\big class.jmp" );
dt << Set Row States(
	[6144, 6144, 6144, 6144, 6144, 1536, 1536, 1536, 6145, 6144, 6144, 1536, 1536, 1536, 1536, 6144, 6144, 6144, 6144, 6144, 1536, 1536, 1536, 1536,
	1536, 1536, 1536, 6144, 6144, 1536, 1536, 1536, 1536, 1536, 6144, 6144, 1536, 6144, 1536, 1536]
);
Life Distribution(
	Perspective( Compare Groups ),
	Y( :height ),
	Grouping( :sex ),
	Confidence Interval Method( Wald ),
	Select Distribution( Distribution, Weibull ),
	Select Scale( Weibull ),
	Tabbed Report( 0 ),

);

[#2]

Mi trabajo actual para esto es hacer un bucle en los segmentos "CustomStream" y "Marker" y tomar los valores de color de los estados de fila. Realmente espero que haya una mejor manera sin embargo.

dt = Open( "$SAMPLE_DATA\big class.jmp" );
dt << Set Row States(
 [6144, 6144, 6144, 6144, 6144, 1536, 1536, 1536, 6145, 6144, 6144, 1536, 1536, 1536, 1536, 6144, 6144, 6144, 6144, 6144, 1536, 1536, 1536, 1536,
 1536, 1536, 1536, 6144, 6144, 1536, 1536, 1536, 1536, 1536, 6144, 6144, 1536, 6144, 1536, 1536]
);

//dt = Current Data Table();
dtsum = dt << Summary( Group( :Sex));
cc = dtsum << get row states();
Close( dtsum, NoSave );
platform = Life Distribution(
 Perspective( Compare Groups ),
 Y( :height ),
 Grouping( :sex ),
 Confidence Interval Method( Wald ),
 Select Distribution( Distribution, Weibull ),
 Select Scale( Weibull ),
 Tabbed Report( 0 ),

);

reportWindow = platform << Report;
customSegs = reportWindow["Compare Distribution"]<< Xpath( "//CustomStreamSeg" );
markerSegs = reportWindow["Compare Distribution"]<< Xpath( "//MarkerSeg" );
For( i = 1, i <= N Items( customSegs ), i++,
 customSegs[i] << {Fill Color( Color Of( As Row State( cc[i] ) ) ), Fill( 0 )};
 customSegs[i] << {Line Color( Color Of( As Row State( cc[i] ) ) ), Fill( 0 )};
 markerSegs[2*i-1] << {Color( Color Of( As Row State( cc[i] ) ) )};
);