how to combine 2 graphs i mean like overlaying one on the other

Question

Hello everyone,

I am having two graphs individually and I would like to have one graph on the other.

I tried using combined windows and copy pasting frame contents but when I hover over the mouse to the pasted graph contents the values aren't popping can anyone help me out in solving this.

Thank you,

Hanuja

txnelson · Answer

Here is an example that somewhat resembles your 2 data table input that needs to be put together into one plot.  You need to study the script, and then take the new information and apply it back onto your scripts.

Here is the script

Names Default To Here( 1 );
dt = Open( "$sample_data/semiconductor capability.jmp" );

// Create 2 Data tables to mimic the Discussion Question situation
dt1 = dt << subset( columns(Wafer, Site, NPN1), selected rows(0));
dt2 = dt << subset( columns(lot_id, Wafer, Site, NPN2), selected rows(0));

// Select rows wanted from table dt1
dt1 << select where( :wafer <= 10 );
// Create new subset of selected rows
dt1Final = dt1 << subset( selected rows( 1 ), selected columns( 0 ) );

// Select rows wanted from table dt2
dt2 << select where( contains( {"lot01", "lot02"}, :lot_id  ));
// Create new subset of selected rows
dt2Final = dt2 << subset( selected rows( 1 ), selected columns( 0 ) );

// put the data together
dtTogether = dt1Final << concatenate( dt2Final );

gb = Graph Builder(
	Size( 534, 450 ),
	Show Control Panel( 0 ),
	Variables( X( :wafer ), Y( :NPN1 ), Y( :NPN2, Position( 1 ) ) ),
	Elements( Points( X, Y( 1 ), Y( 2 ), Legend( 5 ) ) )
);
theReport = report(gb);

// Create the reference lines
theYColList = { "NPN1", "NPN2" };
For( i = 1, i <= N Items( theYColList ),i++,
	specs = Column( theYColList[i] ) << get property( "spec limits" );
	If( Try( specs["USL"], "" ) != "",
		theReport[AxisBox( 2 )] << Add Ref Line( specs["USL"], "Dashed", black, theYColList[i] || " USL" )
	);
	If( Try( specs["LSL"], "" ) != "",
		theReport[AxisBox( 2 )] << Add Ref Line( specs["LSL"], "Dashed", black, theYColList[i] || " LSL" )
	);
	If( Try( specs["Target"], "" ) != "",
		theReport[AxisBox( 2 )] << Add Ref Line( specs["Target"], "Dashed", black, theYColList[i] || " Target" )
	);
);

txnelson · Answer

Is the graph that I proposed, an acceptable combining of the 2 graphs?  If not, and you need to have the different overlays as defined in your 2 scripts, then I am not aware of a way to cut an paste the graphs from 2 different data tables.

txnelson · Answer

While it is easy to overlay graphs using Graph Builder, there is a problem with displaying Spec Limits when more than one columns is overalyed.  However, it is a simple process to add a little script that will add the reference lines.  Here is one way to do it

Names Default To Here( 1 );
dt = Open( "$sample_data/semiconductor capability.jmp" );

gb = Graph Builder(
	Size( 534, 450 ),
	Show Control Panel( 0 ),
	Variables( X( :wafer ), Y( :NPN1 ), Y( :NPN2, Position( 1 ) ) ),
	Elements( Points( X, Y( 1 ), Y( 2 ), Legend( 8 ) ) )
);

// determine the columns to add limit reference lines from
theReport = Current Report();
theScript = Char( (theReport[Outline Box( 1 )] << get scriptable object) << get script );
theYColList = {};
While( Contains( theScript, "Y(:" ) != 0,
	theScript = Substr( theScript, Contains( theScript, "Y(:" ) + 3 );
	Insert Into( theYColList, Word( 1, theScript, ":)," ) );
);
// Create the reference lines
For( i = 1, i <= N Items( theYColList ),i++,
	specs = Column( theYColList[i] ) << get property( "spec limits" );
	If( Try( specs["USL"], "" ) != "",
		theReport[AxisBox( 2 )] << Add Ref Line( specs["USL"], "Dashed", black, theYColList[i] || " USL" )
	);
	If( Try( specs["LSL"], "" ) != "",
		theReport[AxisBox( 2 )] << Add Ref Line( specs["LSL"], "Dashed", black, theYColList[i] || " LSL" )
	);
	If( Try( specs["Target"], "" ) != "",
		theReport[AxisBox( 2 )] << Add Ref Line( specs["Target"], "Dashed", black, theYColList[i] || " Target" )
	);
);