Anyone have add-in or JSL code for adding a 45-degree line and squarify a GB plot?

Question

Hi All,

I'm wondering if anyone might have available some JSL code or an add-in to be able to take a graph builder (GB) plot and squarify it (set both x and y axis the same) and add a 45-degree line, like how the Actual by Predicted plots often do, see example below.

As far as I know, GB does not have any kind of option to automatically do this for you, which is too bad, because I often like making graphs like the Actual by Predicted graphs and have the added versatility of the GB platform for adding color or other kinds of formatting to the graphic.

Maybe this could be on the wish-list for a new feature in GB?

Thanks!,

DS

txnelson · Accepted Answer

Here is a simple script that maintains a square display with a diagonal line.  The code is written to hopefully show all that is going on.  Far more efficient code could be written.

Names Default To Here( 1 );
dt = Current Data Table();
Graph Builder(
	Show Control Panel( 0 ),
	Variables( X( :weight ), Y( :height ) ),
	Elements( Points( X, Y, Legend( 8 ) ) )
);
rpt = Current Report();
xmax = rpt[axisbox( 1 )] << get max;
ymax = rpt[axisbox( 2 )] << get max;
xmin = rpt[axisbox( 1 )] << get min;
ymin = rpt[axisbox( 2 )] << get min;
rpt[axisbox( 1 )] << Min( Min( ymin, xmin ) );
rpt[axisbox( 1 )] << Max( Max( ymax, xmax ) );
rpt[axisbox( 2 )] << Min( Min( ymin, xmin ) );
rpt[axisbox( 2 )] << Max( Max( ymax, xmax ) );
rpt[framebox( 1 )] << add graphics script(
	xmax = rpt[axisbox( 1 )] << get max;
	ymax = rpt[axisbox( 2 )] << get max;
	xmin = rpt[axisbox( 1 )] << get min;
	ymin = rpt[axisbox( 2 )] << get min;
	rpt[axisbox( 1 )] << Min( Min( ymin, xmin ) );
	rpt[axisbox( 1 )] << Max( Max( ymax, xmax ) );
	rpt[axisbox( 2 )] << Min( Min( ymin, xmin ) );
	rpt[axisbox( 2 )] << Max( Max( ymax, xmax ) );
	theMinLineList = {};
	theMaxLineList = {};
	Insert Into( theMinLineList, Min( ymin, xmin ) );
	Insert Into( theMinLineList, Min( ymin, xmin ) );
	Insert Into( theMaxLineList, Max( ymax, xmax ) );
	Insert Into( theMaxLineList, Max( ymax, xmax ) );
	Line( theMinLineList, theMaxLineList );
	xx = rpt[framebox( 1 )] << get size;
	Show( xx );
	xx[1] = Max( xx );
	xx[2] = Max( xx );
	rpt[framebox( 1 )] << framesize( xx[1], xx[2] );
);

Craige_Hales · Accepted Answer

Here's a variation that assumes you won't resize the graph or adjust the axes after it is drawn. Jim's version is resetting the squareness on each redraw of the graph, which may trigger another redraw of the graph. If you really need that, it might be necessary to use the scheduler to reset the squareness outside of the graphic script.

dt = Open( "$sample_data/big class.jmp" );

gb = dt << Graph Builder( Show Control Panel( 0 ),
    Variables( X( :weight ), Y( :height ) ),
    Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) )
);
Report( gb )[framebox( 1 )] << FrameSize( 500, 500 ); //force square

// fix JSL here to set the axis ranges the way you expect. 
theMax = Max( Report( gb )[axisbox( 1 )] << get max, Report( gb )[axisbox( 2 )] << get max );
theMin = Min( Report( gb )[axisbox( 1 )] << get min, Report( gb )[axisbox( 2 )] << get min );
Report( gb )[framebox( 1 )] << Xaxis( Min( theMin ), Max( theMax ) );
Report( gb )[framebox( 1 )] << Yaxis( Min( theMin ), Max( theMax ) );

// add the diagonal line
Report( gb )[framebox( 1 )] << AddGraphicsScript(
    xmin = X Origin();
    xmax = X Origin() + X Range();
    ymin = Y Origin();
    ymax = Y Origin() + Y Range();
    Pen Color( "red" );
    Pen Size( 3 );
    Line Style( "dotted" );
    Line( {xmin, ymin}, {xmax, ymax} );// the diagonal
);

Corner-to-corner diagonal added by script.

You probably don't really want red,3,dotted!

David_Burnham · Accepted Answer

An alternative way to add the diagonal line is to add the function line y=x:

report(gb)[FrameBox(1)] << add graphics script(
	 Y Function( x, x )
)

Mark_Bailey · Accepted Answer

Adding to @David_Burnham's version, many people do not realize that you do not need to run a script to add a graphics script to a plot (frame box). You can interactively accomplish the same thing. Right-click in the plot box and select Customize. Click the add button (+) and then enter the expression Y Function( x, x ). There is even a macro for this common expression. This way might not be the best way for you now, but I wanted you to know about it as an alternative.