You need to send the legend code to the outline nodes that you are interested in.
dt = Open( "$SAMPLE_DATA/Variability Data/2 Factors Crossed.jmp" );
obj = Variability Chart(
Y( :Measurement, :Standard ),
X( :Operator, :part# ),
SendToReport(
Dispatch(
{"Variability Gauge Analysis for Measurement",
"Variability Chart for Measurement"},
"Variability Chart",
FrameBox,
{Row Legend(
:Operator,
Color( 1 ),
Color Theme( "JMP Default"(1) ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
),
Dispatch(
{"Variability Gauge Analysis for Standard",
"Variability Chart for Standard"},
"Variability Chart",
FrameBox,
{Row Legend(
Operator,
Color( 1 ),
Color Theme( "JMP Default"(1) ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
)
)
);