I will first deal with the figuring out, of how to change the Title of the Plot. I assume, what you are referring to, is the Title of the Outline Box that has the Title of "Normal Quantile Plot". The simple answer to this is that you change it interactively, and then have JMP generate the script. In the script, you will see the method to change the title.
Here is the script that JMP generated that will produce the change in the title
Oneway(
Y( :height ),
X( :sex ),
All Graphs( 0 ),
Plot Quantile by Actual( 1 ),
Line of Fit( 0 ),
X Axis Proportional( 0 ),
Grand Mean( 0 ),
SendToReport(
Dispatch(
{},
"Normal Quantile Plot",
OutlineBox,
{Set Title( "This is the title change" )}
),
Dispatch(
{"Normal Quantile Plot"},
"2",
ScaleBox,
{Label Row( Label Orientation( "Vertical" ) )}
)
)
);
So given that, you can turn the title into a JMP variable, and just use it in the above structure
MyTitle = "Here is a new Change";
Oneway(
Y( :height ),
X( :sex ),
All Graphs( 0 ),
Plot Quantile by Actual( 1 ),
Line of Fit( 0 ),
X Axis Proportional( 0 ),
Grand Mean( 0 ),
SendToReport(
Dispatch(
{},
"Normal Quantile Plot",
OutlineBox,
{Set Title( MyTitle)}
),
Dispatch(
{"Normal Quantile Plot"},
"2",
ScaleBox,
{Label Row( Label Orientation( "Vertical" ) )}
)
)
);
Now, lets deal with the generation of all of the graphs. Using the Big Class data table, there are really only 2 columns to be graphed, but that is enough to illustrate the method.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// Get the continuous columns from the data table
ColList = dt << get column names( continuous );
// Loop across the list of columns and produce a graph for each column
For( i = 1, i <= N Items( ColList ), i++,
MyTitle = "Here is a new Change " || char(i);
Oneway(
Y( ColList[i] ),
X( :sex ),
All Graphs( 0 ),
Plot Quantile by Actual( 1 ),
Line of Fit( 0 ),
X Axis Proportional( 0 ),
Grand Mean( 0 ),
SendToReport(
Dispatch( {}, "Normal Quantile Plot", OutlineBox, {Set Title( MyTitle )} ),
Dispatch( {"Normal Quantile Plot"}, "2", ScaleBox, {Label Row( Label Orientation( "Vertical" ) )} )
)
);
);
It produces a separate display for each Normal Quantile Plot
So the next step will put them all together in one window
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
// Get the continuous columns from the data table
ColList = dt << get column names( continuous );
// Create your own display window and generate the graph inside
New Window( "Here are the graphs",
// Now I am choosing to put all of the graphs side by side so I am
// using an H List Box() to encaptulate the graphs
H List Box(
// Loop acrss the list of columns and produce a graph for each column
For( i = 1, i <= N Items( ColList ), i++,
MyTitle = "Here is a new Change " || Char( i );
Oneway(
Y( ColList[i] ),
X( :sex ),
All Graphs( 0 ),
Plot Quantile by Actual( 1 ),
Line of Fit( 0 ),
X Axis Proportional( 0 ),
Grand Mean( 0 ),
SendToReport(
Dispatch( {}, "Normal Quantile Plot", OutlineBox, {Set Title( MyTitle )} ),
Dispatch( {"Normal Quantile Plot"}, "2", ScaleBox, {Label Row( Label Orientation( "Vertical" ) )} )
)
);,
)
)
);
Which produces:
Jim