Tricky Question about the Graph Builder

shoffmeister

Hi JMPers,

 

I'm trying to convince a large customer to use JMP. Now I'm having a hard time to reproduce one of their applications in JMP. 

 

 

The first problem I face, is that we would like to keep the colors from the row-states while using the Overlay-option.We need the above graph (including the blue and red colored points) with connection lines between the two points of each part (Y-axis).I can get the connection line using the overlay, but then I have to manually adjust the colors.

At the same time we will have to add multiple upper- and lower-spec-limits to the graph.

At the end we would like to have something like the following graph:

 

I was able to produce the graph using multiple manual steps (like Copy & Paste Frame Content) but the goal would be to generate this plot just with the standard graph-builder-tools - especially to keep the interactivity.

 

I would be very glad for any kind of advice.

 

Thanks,

Sebastian

 

This would be the given data structure:

 

 

New Table( "Sample",
	Add Rows( 20 ),
	New Column( "Part ID",
		Numeric,
		"Nominal",
		Format( "Best", 12 ),
		Set Values( [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10] )
	),
	New Column( "X1",
		Numeric,
		"Continuous",
		Format( "Best", 12 ),
		Set Values( [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] )
	),
	New Column( "X2",
		Character,
		"Nominal",
		Set Values(
			{"cold", "cold", "cold", "cold", "cold", "cold", "cold", "cold", "cold",
			"cold", "medium", "medium", "medium", "medium", "medium", "medium",
			"medium", "medium", "medium", "medium"}
		)
	),
	New Column( "Y",
		Numeric,
		"Continuous",
		Format( "Best", 12 ),
		Formula(
			If(
				:X2 == "cold", Random Normal() + 10,
				:X2 == "medium", Random Normal() + 12,
				Random Normal()
			)
		)
	),
	New Column( "Y_USL",
		Numeric,
		"Continuous",
		Format( "Best", 12 ),
		Set Values(
			[15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 16, 16, 16, 16, 16, 16, 16, 16,
			16, 16]
		)
	),
	New Column( "Y_LSL",
		Numeric,
		"Continuous",
		Format( "Best", 12 ),
		Set Values( [7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6] )
	),
	Set Row States(
		[768, 768, 1280, 1280, 1280, 1280, 1280, 1280, 768, 768, 768, 768, 1280,
		1280, 1280, 1280, 1280, 1280, 768, 768]
	)
)

 

By the way: Your link to the "JSL Syntax Highligher" seems to be broken. At least I end up at an empty page.

stephen_pearson

You can achieve your desired result with almost no JSL scripting. First create a bar chart with range error bars. Then set the transparency of the bars to zero, so they vanish. Now add a set of points by shift-clicking. Save this JSL to the script window.

The only bit of scripting is to use the Col Maximum()/Col Minimum() functions to draw on the reference lines.

 

 

Graph Builder(
	Size( 663, 468 ),
	Show Control Panel( 0 ),
	Show Legend( 0 ),
	Variables( X( :Y ), Y( :Part ID ) ),
	Elements(
		Bar( X, Y, Legend( 16 ), Error Bars( "Range" ) ),
		Points( X, Y, Legend( 14 ), Jitter( 0 ) )
	),
	SendToReport(
		Dispatch(
			{},
			"Y",
			ScaleBox,
			{Format( "Best", 12 ), Min( 5.64697504725641 ), Max( 16.37329465957 ),
			Inc( 2 ), Minor Ticks( 1 ), 
			Add Ref Line( Col Minimum(:Y_LSL), "Dashed", "Red", "", 2 ),
			Add Ref Line( Col Maximum(:Y_USL), "Dashed", "Red", "", 2 ),
			Add Ref Line( Col Maximum(:Y_LSL), "Solid", "Blue", "", 2 ),
			Add Ref Line( Col Minimum(:Y_USL), "Solid", "Blue", "", 2 )}
		),
		Dispatch(
			{},
			"400",
			ScaleBox,
			{Legend Model(
				16,
				Properties( 0, {Fill Color( 2 ), Transparency( 0 )} )
			)}
		),
		Dispatch( {}, "Graph Builder", FrameBox, {Marker Size( 4 )} )
	)
);