Plot Legend is removed when inside a list box

DavidMoloney

Hi all,

 

So I have an issue with a  plot that I am creating through a function. The function is as follows:

 

 

 

 

myRunChart = Function( {dt, y1, y2, y3, x, colour_col},
{Default Local}, 

dt << Control Chart(
Sample Label( Eval( x ) ),
KSigma( 3 ),
Chart Col( Eval( y1 ), Run Chart( Show Center Line( 0 ) ) ),
Chart Col( Eval( y2 ), Run Chart( Show Center Line( 0 ) ) ),
Chart Col( Eval( y3 ), Run Chart( Show Center Line( 0 ) ) ),
SendToReport(
Dispatch(
{Eval( "Run Chart of "|| y1 )},
"Run Chart",
FrameBox,
{Frame Size( 436, 114 ), Row Legend(
Eval( colour_col ),
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
),
Dispatch( {Eval( "Run Chart of "|| y1 )}, "Control Chart Limits frame", FrameBox, {Frame Size( 69, 114 )} ),
Dispatch(
{Eval( "Run Chart of "|| y2 )},
"Run Chart",
FrameBox,
{Frame Size( 436, 114 ), Row Legend(
Eval( colour_col ),
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
),
Dispatch( {Eval( "Run Chart of "|| y2 )}, "Control Chart Limits frame", FrameBox, {Frame Size( 69, 114 )} ),
Dispatch(
{Eval( "Run Chart of "|| y3 )},
"Run Chart",
FrameBox,
{Frame Size( 436, 114 ), Row Legend(
Eval( colour_col ),
Color( 1 ),
Color Theme( "JMP Default" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
),
Dispatch( {Eval( "Run Chart of "|| y3 )}, "Control Chart Limits frame", FrameBox, {Frame Size( 69, 114 )} )
)
);

);

 

 

 

When I call this function by itself everything is fine. The plot and legend plots as normal. However, when I call the function within a List Box, the legend is removed, and the size of the graphs are changed.

 

In the following code, I call the function twice in a window. The first time it's inside a H List Box and the legend is removed. But the second calling of the function works as normal.

 

nw2 = New Window("temp",

H list box(
rc2 = myRunChart(
dt_temp,
"column1",
"column2",
"column3",
time_col,
colour_col
)),
rc3 = myRunChart(
dt_temp,
"column4",
"column5",
"column6",
time_col,
colour_col
)

);

 

 

 

Does anyone have an idea what issue could be?

 

 

txnelson

Apparently, from within the H List Box(), or even when I used an Outline Box(), the concatenation of "Run Chart of " and the y1, y2, or y3 variables is not being performed.  I have reworked the script, forcing the string to be calculated correctly, and the script then completes properly

myRunChart = Function( {dt, y1, y2, y3, x, colour_col},
	{Default Local},
	Eval(
		Substitute(
				Expr(
					dt << Control Chart(
						Sample Label( Eval( x ) ),
						KSigma( 3 ),
						Chart Col( Eval( y1 ), Run Chart( Show Center Line( 0 ) ) ),
						Chart Col( Eval( y2 ), Run Chart( Show Center Line( 0 ) ) ),
						Chart Col( Eval( y3 ), Run Chart( Show Center Line( 0 ) ) ),
						SendToReport(
							Dispatch(
								{ __y1__ },
								"Run Chart",
								FrameBox,
								{Frame Size( 436, 114 ),
								Row Legend(
									Eval( colour_col ),
									Color( 1 ),
									Color Theme( "JMP Default" ),
									Marker( 0 ),
									Marker Theme( "" ),
									Continuous Scale( 0 ),
									Reverse Scale( 0 ),
									Excluded Rows( 0 )
								)}
							),
							Dispatch(
								{ __y2__ },
								"Run Chart",
								FrameBox,
								{Frame Size( 436, 114 ),
								Row Legend(
									Eval( colour_col ),
									Color( 1 ),
									Color Theme( "JMP Default" ),
									Marker( 0 ),
									Marker Theme( "" ),
									Continuous Scale( 0 ),
									Reverse Scale( 0 ),
									Excluded Rows( 0 )
								)}
							),
							Dispatch(
								{ __y3__ },
								"Run Chart",
								FrameBox,
								{Frame Size( 436, 114 ),
								Row Legend(
									Eval( colour_col ),
									Color( 1 ),
									Color Theme( "JMP Default" ),
									Marker( 0 ),
									Marker Theme( "" ),
									Continuous Scale( 0 ),
									Reverse Scale( 0 ),
									Excluded Rows( 0 )
								)}
							)
						)
					)
				),
			Expr( __y1__ ), "Run Chart of " || y1,
			Expr( __y2__ ), "Run Chart of " || y2,
			Expr( __y3__ ), "Run Chart of " || y3
		)
	);
	
	Wait( 0 );
);

dt_temp = Open( "$SAMPLE_DATA\Solubility.jmp" );

Wait( 0 );

dt_temp << New Column( "Colour example" );
dt_temp:Colour Example << set formula( Modulo( Row(), 2 ) + 1 );

dt_temp << New Column( "Row Numbers" );
dt_temp:Row Numbers << set formula( Row() );

time_col = "Row Numbers";
colour_col = "Colour Example";

Wait( 0 );

nw2 = New Window( "temp", 

	H List Box(
		"charts",
		rc2 = myRunChart(
			dt_temp,
			"Chloroform",
			"Benzene",
			"Hexane",
			time_col,
			colour_col
		)
	),
	rc3 = myRunChart(
		dt_temp,
		"Chloroform",
		"Benzene",
		"Hexane",
		time_col,
		colour_col
	)

);