Hi, Shin.
The following example demonstrates how you can determine the index and color a specific cause by name:
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Quality Control/Failure Raw Data.jmp" );
/* Obtain the sorted frequency */
dtSumm = dt << Summary( Group( :failure ), private );
dtSumm << Sort( By( :N Rows ), Order( Descending ), Replace Table );
/* Obtain the row number for the desired cause specified by name */
r = (dtSumm << Get Rows Where( :Failure == "oxide defect" ))[1];
/* Generate the Pareto Plot */
pPlot = dt << Pareto Plot(
Cause( :Failure ),
Colors( "Red" ),
/* Set the color for the desired cause */
Cause[r] << Colors( "Green" ),
SendToReport(
Dispatch(
{},
"Pareto Plot",
OutlineBox,
{Set Title( "Pareto of " || (dt << Get Name) )}
),
Dispatch( {"Plots"}, "102", ScaleBox, {Label Row( Show Major Grid( 1 ) )} )
)
);
I hope this helps.
Wendy
Wendy