행 상태에 정의된 색상을 사용하도록 생명 분배 플랫폼을 만드는 방법은 무엇입니까?

[#1]

분석 플랫폼에서 그래프 색상이 행 상태에 정의된 것과 일치할 것으로 기대했습니다(해당되는 경우). 하지만 그렇지 않은 것 같습니다. 아래는 성별 변수에 따라 행 상태 색상을 적용한 다음 성별로 그룹화된 생명 분포를 분석한 big class의 예입니다. 데이터 테이블의 보라색과 주황색 대신 표준 파란색과 빨간색이 사용됩니다.

코드

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]

이에 대한 현재 해결 방법은 "CustomStream" 및 "Marker" 세그먼트를 반복하고 행 상태에서 색상 값을 가져오는 것입니다. 그래도 더 나은 방법이 있기를 바랍니다.

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