Open( "$SAMPLE_DATA/Airline Delays.jmp" );
gb = Graph Builder(
Size( 528, 485 ),
Show Control Panel( 0 ),
Graph Spacing( 5 ),
Variables(
X( :Day of Month ),
Y( :Day of Week ),
Wrap( :Airline ),
Color( :Arrival Delay )
),
Elements( Heatmap( X, Y, Legend( 9 ) ) )
);
frameboxes=Report(gb)<< xpath( "//FrameBox" )
for each ({fb,idx},frameboxes, fb <<Set Gridlet( Expunge( {{Matcher( "Day of Week" )}} ) ))