Actually, I just found this:
Open( "$SAMPLE_DATA/Design Experiment/Wine Data.jmp" );
Graph Builder(
Size( 720, 866 ),
Variables(
X( :"De-Stem"n ),
X( :Yeast, Position( 1 ) ),
X( :Temperature, Position( 1 ) ),
X( :Press, Position( 1 ) ),
Y( :Rating )
),
Elements( Points( X( 1 ), X( 2 ), X( 3 ), X( 4 ), Y, Legend( 16 ) ) ),
SendToReport(
Dispatch( {}, "De-Stem", ScaleBox,
{Label Row( 1, Row Title Side( "Start" ) ),
Label Row( 2, Row Title Side( "Start" ) ),
Label Row( 3, Row Title Side( "Start" ) ),
Label Row( 4, Row Title Side( "Start" ) )}
)
)
)