dt = Open( "$sample_data/big class.jmp" );
New Window( "two graphs",
V List Box(
H List Box(
dt << Graph Builder(
Size( 512, 442 ),
Show Control Panel( 0 ),
Show Legend( 0 ),
Variables( X( :age ), Y( :height ) ),
Elements( Points( X, Y, Legend( 5 ) ) ),
SendToReport(
Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "" ), Image Export Display( Normal )} ),
Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "" )} ),
Dispatch( {}, "age", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
Dispatch( {}, "height", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
Dispatch( {}, "graph title", TextEditBox, {Set Text( "Height" )} ),
Dispatch( {}, "Graph Builder", FrameBox, {Background Color( 32 )} )
)
);
// identical but for height...weight in three places
dt << Graph Builder(
Size( 512, 442 ),
Show Control Panel( 0 ),
Show Legend( 0 ),
Variables( X( :age ), Y( :weight ) ),
Elements( Points( X, Y, Legend( 5 ) ) ),
SendToReport(
Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "" ), Image Export Display( Normal )} ),
Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
Dispatch( {}, "Y title", TextEditBox, {Set Text( "" )} ),
Dispatch( {}, "age", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
Dispatch( {}, "weight", ScaleBox, {Label Row( {Major Grid Line Color( 2 ), Show Major Grid( 1 )} )} ),
Dispatch( {}, "graph title", TextEditBox, {Set Text( "Weight" )} ),
Dispatch( {}, "Graph Builder", FrameBox, {Background Color( 32 )} )
)
);
),
H Center Box( Text Box( "two graphs", <<setfontsize( 16 ), <<setfontstyle( "bold" ) ) )
)
);
Make the graphs interactively in graph builder, then save the script and make a new window around it.
Craige