Connecting data points using JSL

hrkhan

Hi 

I am trying to connect data points within a graph in certain order (like creating diamond plot etc.). When I connect manually using line and export the script, I see that it used line function with (X,Y) coordinate. Can anyone please help me with

1. I assume those (X,Y) are frame coordinate?

2. Given 1. is true, How do I find out those (X,Y) using JSL? More specifically, need to know the syntax on how to extract out frame (X,Y) for each data point in the graph?

 

Any other efficient way you know how to connect data points in JMP?

Thanks much

txnelson

I have adjusted your script a bit, but the main issue is that your code is assuming that you have all combinations of Group1, Group2 and Group3, and in the data you supplied you do not, so the program can not find any data to analyze.

names default to here(1);

dtt = Current Data Table();
 
Summarize( dtt, byGroup1 = by( :var1 ) );
Summarize( dtt, byGroup2 = by( :var2 ) );
Summarize( dtt, byGroup3 = by( :var3 ) );


For( ii = 1, ii < N Items( byGroup1 ), ii++,
	For( jj = 1, jj < N Items( byGroup2 ), jj++,
		For( kk = 1, kk < N Items( byGroup3 ), kk++,
			dtt << select where( :var1 == byGroup1[ii] & :var2 == byGroup2[jj] & :var3 == byGroup3[kk] );
			show(ii,jj,kk,bygroup1[ii],bygroup2[jj],bygroup3[kk]);
			sel = dtt << get selected rows;
			If( n rows(sel) > 0,
			show("inside",ii,jj,kk);
			dt = dtt << subset( selected rows(1), selected columns(0));
			gb = dt << Graph Builder(
				Size( 531, 456 ),
				Show Control Panel( 0 ),
				Variables( X( :x axis ), Y( :y axis ), Overlay( :legend ) ),
				Elements( Points( X, Y, Legend( 5 ) ) ),
				SendToReport(
					Dispatch(
						{},
						"x axis",
						ScaleBox,
						{Format( "Best", 12 ), Min( 2.273568 ), Max( 3.00134902479339 ), Inc( 0.1 ), Minor Ticks( 0 )}
					)
				)
			);
			// Add a simple graphics script to connect the points
			Report( gb )[FrameBox( 1 )] << add graphics script(
				Summarize( dt, byGroup = by( :legend ) );
				colorList = {"Blue", "Red", "Green"};
				Fill Pattern( [0] );
				For( i = 1, i <= N Items( byGroup ), i++,
					Pen Color( colorList[i] );
					theRows = dt << get rows where( :legend == byGroup[i] & :Label != "i" );
		// Add the first value as the last value to complete the object
					theRows = theRows |/ theRows[1];
					xMatrix = :x axis[theRows];
					yMatrix = :y axis[theRows];
					Line( xMatrix, yMatrix );
				);
			););
		)
	)
);