topic Re: interactive plots in Discussions

interactive plots

ConvergentWhale — Wed, 28 Aug 2024 10:02:40 GMT

Does anyone have any ideas on how to create interactive reports?

In the report, I want to include graphs with multiple lines in each graph. On the left side of the window, I would like to have a list of the lines. When I click on a line from the list, I want the selected line in the graph to be more prominent, while the remaining lines are faded out.

Re: interactive plots

jthi — Wed, 28 Aug 2024 10:15:30 GMT

Having legend on the left side can be a bit tricky but if right side is fine, basic graph builder should be enough

https://www.jmp.com/support/help/en/18.0/#page/jmp/graph-builder.shtml#

Re: interactive plots

ConvergentWhale — Wed, 28 Aug 2024 13:27:55 GMT

Hello! I have used a for loop to create multiple graphs using the graph builder. Now, I would like to group all these graphs onto a single sheet and create an interactive interface for users to interact with all the graphs together. Is there a way to achieve this? Thank you!

Re: interactive plots

ConvergentWhale — Wed, 28 Aug 2024 13:29:38 GMT

Its nice idea to use just the basic graph builder , i just want to put them all together one under the other after i create all of them.

Re: interactive plots

jthi — Wed, 28 Aug 2024 13:38:04 GMT

I bit more information is needed. You could for example collect them into V List Box and then display using New Window

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb_collector = V List Box();

For(i = 1, i <= 3, i++,
	gb_collector << Append(
		dt << Graph Builder(
			Variables(X(:weight), Y(:height), Overlay(:sex)),
			Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
		)		
	)
);

nw = New Window("",
	gb_collector
);

If you are utilizing For loop I assume you are doing scripting. Have you read Scripting Guide (for example https://www.jmp.com/support/help/en/18.0/#page/jmp/examples-of-creating-a-dashboard-from-two-reports.shtml# ).

Re: interactive plots

ConvergentWhale — Thu, 05 Sep 2024 10:26:35 GMT

I would like to combine the tab page box method with the for loop, but it doesn't work.
Here is my part of the script:

New Window("My Dashboard",
	H Splitter Box(
		Size(1000, 1000), 
// Loop for each parameter
		For(i = 1, i <= N Items(numPar), i++, 
// Column boxes for plots of all batches, actual data, and difference
			col1 = Col Box(""),
			col2 = Col Box(""),
			col3 = Col Box(""), 


// Tab Page Box for each parameter
			Tab Page Box(
				Title(numPar[i] || " vs. Time Point"), 
// Create all batches plot
				gb = Graph Builder(
					Size(500, 500),
					Variables(X(:Time Point Months), Y(:Result), Overlay(:Batch)),
					Elements(Points(X, Y))
				), 
// Local filter: set the batch to only the batches that are in cyc with a ref, not all other batches
				gb << Local Data Filter(
					invisible,
					Add Filter(
						columns(:Component, :Batch, :Source Table),
						Where(:Component == numPar[i]),
						Where(:Batch == {cyc, bat}),
						Where(:Source Table == dt_name)
					)
				),
				dt << Clear Select(), 
// Remove the filter display from the graph
				gb << Show Control Panel(0), 
// Report for changing plot
				gbb = Report(gb)[GraphBuilderBox(1)], 
// Add linear regression
				gbb << Add Element(
					1,
					1,
					{Type("Line Of Fit"), X, Y, Confidence of Fit(0), Equation(0)}
				), 
// Set Y axis
				minval = Min(
					:Result[dt << get rows where(
						:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name |
						:Batch == bat & :Component == numPar[i] & :Source Table == dt_name
					)]
				) * 0.95,
				maxval = Max(
					:Result[dt << get rows where(
						:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name |
						:Batch == bat & :Component == numPar[i] & :Source Table == dt_name
					)]
				) * 1.05,
				maxvalts = Max(
					:Time Point Months[dt << get rows where(
						:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name |
						:Batch == bat & :Component == numPar[i] & :Source Table == dt_name
					)]
				) * 1.05,
				gbb[AxisBox(1)] << Min(-0.1),
				gbb[AxisBox(1)] << Max(maxvalts),
				gbb[AxisBox(2)] << Min(minval),
				gbb[AxisBox(2)] << Max(maxval),
				gbb[AxisBox(2)] << inc((maxval - minval) / 10), 
// Set Y axis label
				unitList = Associative Array(
					:Result Unit[dt << get rows where(
						:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name |
						:Batch == bat & :Component == numPar[i] & :Source Table == dt_name
					)]
				) << Remove("") << Get Keys,
				If(N Items(unitList) == 1,
					gbb[Text Edit Box(4)] << Set text(numPar[i] || " [" || unitList[1] || "]"),
					gbb[Text Edit Box(4)] << Set text(numPar[i])
				), 
// Set graph title
				gbb[Text Edit Box(1)] << Set text(numPar[i] || " vs. Time Point"), 
// Append
				gbba = Report(gb),
				col1 << Append(gbba),
				<<Moveable(1)
			)
		)
	),
	<<Dockable(1)
);

Edit 2024-09-05 jthi: added jsl formatting

Re: interactive plots

jthi — Thu, 05 Sep 2024 10:30:50 GMT

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb_collector = Tab Box(<< Set Style("Horizontal Spread"));

For(i = 1, i <= 3, i++,
	gb_collector << Add("Title",
		dt << Graph Builder(
			Variables(X(:weight), Y(:height), Overlay(:sex)),
			Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
		)		
	)
);

nw = New Window("",
	gb_collector
);

Re: interactive plots

ConvergentWhale — Thu, 05 Sep 2024 10:58:31 GMT

What jmp version you have? Does it work in your jmp? Because I don't have the expected output using the above script

Re: interactive plots

jthi — Thu, 05 Sep 2024 11:00:44 GMT

I don't know what is your expected output and I do not have your data. The script use Tab Box to collect results from for loop

Re: interactive plots

ConvergentWhale — Thu, 05 Sep 2024 11:04:57 GMT

I have this output when i run the above script . Its not the same as you

Re: interactive plots

jthi — Thu, 05 Sep 2024 11:21:24 GMT

They seem to have changed it in JMP18. In JMP17.2 this seemed to work

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb_collector = Tab Box(<< Set Style("Horizontal Spread"));

For(i = 1, i <= 3, i++,
	tab = Tab Page Box("",
		gb = dt << Graph Builder(
			Variables(X(:weight), Y(:height), Overlay(:sex)),
			Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
		)
	);
	tab << Title("Title " || Char(i));
	gb << title(Char(i));
	gb_collector << Append(tab)
);

nw = New Window("",
	gb_collector
);

Re: interactive plots

ConvergentWhale — Thu, 05 Sep 2024 13:41:54 GMT

Another issue I would like to address is when I have a large number of tabs (e.g., 20) with lengthy titles, the graphs become disproportionately large, making it difficult to observe them clearly. I would like to resize the graphs to a smaller scale while retaining the large titles and tabs. Is it possible to position the graph on the left with empty space to the right?

Re: interactive plots

jthi — Thu, 05 Sep 2024 13:49:33 GMT

I'm not sure what you mean by "graph on the left with empty space to the right". Create graph manually, resize it a bit, copy script and it will tell you how you can add size to the graph. Tab Box also has overflow and other options which you can find from scripting index

Re: interactive plots

ConvergentWhale — Fri, 06 Sep 2024 10:36:07 GMT

I am trying to figure out if there is any way to place the graphs like in this screenshot. For example, the first graph first, and then the other two together.

Re: interactive plots

jthi — Fri, 06 Sep 2024 14:39:04 GMT

You can combine for example V List Box, H List Box, Tab Box, Tab Page Box in many different ways to get the layout you want.

You can find quite a lot of information from Scripting Guide https://www.jmp.com/support/help/en/18.0/#page/jmp/construct-display-boxes-for-new-windows.shtml

Names Default To Here(1); 

dt = open("$SAMPLE_DATA/Big Class.jmp");

gb_expr = Expr(dt << Graph Builder(
	Show Control Panel(0),
	Variables(X(:weight), Y(:height), Overlay(:sex)),
	Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
));

nw = New Window("",
	V List Box(
		gb_expr,
		H List Box(
			gb_expr,
			gb_expr
		)
	)
);

Re: interactive plots

ConvergentWhale — Tue, 10 Sep 2024 09:28:18 GMT

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

gb_collector = Tab Box("Dashboard");

For(i = 1, i <= 20, i++, 
// Column box for plot of all batches
	col1 = Col Box("All Batches" || Char(i));

// Create the first Graph Builder plot
	gb = Expr(
		dt << Graph Builder(
			invisible,
			Variables(X(:weight), Y(:height), Overlay(:sex)),
			Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
		)
	);
	col1 << Append(gb);

// Create a column box for the two Graph Builder plots
	col2 = Col Box("Actual Data " || Char(i));

// Create and append two Graph Builder plots to col2
	For(j = 1, j <= 2, j++,
		gbb = Expr(
			dt << Graph Builder(
				invisible,
				Variables(X(:weight), Y(:height), Overlay(:sex)),
				Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11)))
			)
		);
		col2 << Append(gbb);
	);

// Create a tab for col1 and col2 and append it to gb_collector
	tab = Tab Page Box(
		" Something Something ",
		V List Box(
			col1,
			H List Box(col2) // Placing the two plots next to each other
		)
	);
	gb_collector << Append(tab);

// Set title for gb
	gb << title("dxfkgbdlk,xfhglihxfd");
);

gb_collector << Dockable(1);
gb_collector << Set Overflow Enabled(1);

nw = New Window("Dashboard", gb_collector);

Trying to use the above example in my script . But i don't get any output. Here is my script: 

Current Data Table(dt);
dt << New Column("Time Point Months", Formula(Round(:Time Point Days / 30.438), 2));
 
 
gb_collector = Tab Box();
 
For(i = 1, i <= N Items(numPar), i++, 
 
// Column box for plot of all batches
	col1 = Col Box("");
// Column box for plot of actual data
	col2 = Col Box("");
// Column box for plot of difference
	col3 = Col Box("");
 
//tab = Tab Page Box("",
	gb = dt << Graph Builder(
//invisible,
		Size(700, 400),
		Variables(X(:Time Point Months), Y(:Result), Overlay(:Batch)),
		Elements(Points(X, Y))
	); 
 
// Local filter: set the batch to only the batches that are in cyc with a ref, not all other batches
	gb << Local Data Filter(
		invisible,
		Add Filter(
			columns(:Component, :Batch, :Source Table),
			Where(:Component == numPar[i]),
			Where(:Batch == {cyc, bat}),
			Where(:Source Table == dt_name)
		)
	);
	dt << Clear Select();
// Remove the filter display from the graph
	gb << Show Control Panel(0);
// Report for changing plot
	gbb = Report(gb)[GraphBuilderBox(1)];
// Add linear regression
	gbb << Add Element(1, 1, {Type("Line Of Fit"), X, Y, Confidence of Fit(0), Equation(0)});
 
// Set Y axis
	minval = Min(
		:Result[dt << get rows where(
			:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat
			 & :Component == numPar[i] & :Source Table == dt_name
		)]
	) * 0.95;
	maxval = Max(
		:Result[dt << get rows where(
			:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat
			 & :Component == numPar[i] & :Source Table == dt_name
		)]
	) * 1.05;
	maxvalts = Max(
		:Time Point Months[dt << get rows where(
			:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat
			 & :Component == numPar[i] & :Source Table == dt_name
		)]
	) * 1.05;
	gbb[AxisBox(1)] << Min(-0.1);
	gbb[AxisBox(1)] << Max(maxvalts);
	gbb[AxisBox(2)] << Min(minval);
	gbb[AxisBox(2)] << Max(maxval);
	gbb[AxisBox(2)] << inc((maxval - minval) / 10);
 
// Set Y axis label
	unitList = Associative Array(
		:Result Unit[dt << get rows where(
			:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat
			 & :Component == numPar[i] & :Source Table == dt_name
		)]
	) << Remove("") << Get Keys;
	If(N Items(unitList) == 1,
		gbb[Text Edit Box(4)] << Set text(numPar[i] || " [" || unitList[1] || "]"),
		gbb[Text Edit Box(4)] << Set text(numPar[i])
	);
 
 
// Set graph title
	gbb[Text Edit Box(1)] << Set text(numPar[i] || " vs. Time Point");
// Append
	//gbba = Report(gb),
	col1 << Append(gb);
 
 
 
 
 
//filter << close;
	gb << close window;
 
// Within the loop through parameters we are now also looping through batches
	For(k = 1, k <= N Items(cyc), k++,
		check = dt << get rows where(
			:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name | :Batch ==
			bat[k] & :Component == numPar[i] & :Source Table == dt_name
		);
		If(N Items(check) > 0, // Create check to see if parameter exist for current batch
			// Create base plot
			gb = Graph Builder(
//invisible,
				Size(700, 400),
				Variables(X(:Time Point Months), Y(:Result), Overlay(:Batch)),
				Elements(Points(X, Y), )
			);
			gb << Local Data Filter(
				invisible,
				Add Filter(
					columns(:Component, :Batch, :Source Table),
					Where(:Component == numPar[i]),
					Where(:Batch == {cyc[k], bat[k]}),
					Where(:Source Table == dt_name)
				)
			);
			dt << Clear Select();
 
 
 
// Remove the filter display from the graph
			gb << Show Control Panel(0);
 
 
// Report for changing plot
			gbb = Report(gb)[GraphBuilderBox(1)];
 
// Add liniear regression
			gbb << Add Element(
				1,
				1,
				{Type("Line Of Fit"), X, Y, Confidence of Fit(0), Equation(0)}
			);
 
// Set Y axis
			minval = Min(
				:Result[dt << get rows where(
					:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name |
					:Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name
				)]
			) * 0.95;
			maxval = Max(
				:Result[dt << get rows where(
					:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name |
					:Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name
				)]
			) * 1.05;
			maxvalts = Max(
				:Time Point Months[dt << get rows where(
					:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name |
					:Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name
				)]
			) * 1.05;
 
			gbb[AxisBox(1)] << Min(-0.1);
			gbb[AxisBox(1)] << Max(maxvalts);
			gbb[AxisBox(2)] << Min(minval);
			gbb[AxisBox(2)] << Max(maxval);
			gbb[AxisBox(2)] << inc((maxval - minval) / 10);
 
// Set Y axis label
			unitList = Associative Array(
				:Result Unit[dt << get rows where(
					:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name |
					:Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name
				)]
			) << Remove("") << Get Keys;
 
			If(N Items(unitList) == 1,
				gbb[Text Edit Box(4)] << Set text(numPar[i] || " [" || unitList[1] || "]")
			);
 
			If(N Items(unitList) != 1,
				gbb[Text Edit Box(4)] << Set text(numPar[i])
			);
 
// Set graph titel
			gbb[Text Edit Box(1)] << Set text(numPar[i] || " vs. Time Point ");
 
// Append
			//gbba = Report( gbb );
			col2 << Append(gbb);
 
//filter << close;
			gb << close window;
 
// Start second plot
			gb2 = Graph Builder(
//invisible,
				Size(700, 400),
				Variables(X(Time Point Months), Y(:Difference), Color(:Batch)),
				Elements(Points(X, Y))
			);
			gb2 << Local Data Filter(
				invisible,
				Add Filter(
					columns(:Component, :Batch, :Source Table),
					Where(:Component == numPar[i]),
					Where(:Batch == cyc[k]),
					Where(:Source Table == dt5_name)
				)
			);
			dt4 << Clear Select();
 
 
// Remove the filter display from the graph
			gb2 << Show Control Panel(0);
 
// Report for changing plot
			gbb2 = Report(gb2)[GraphBuilderBox(1)];
 
			gbb2 << Add Element(1, 1, {Type("Line"), X, Y});
 
// Get the HC value
			l_idx = dt4 << Get rows where(dt4:Component == numPar[i] & :Batch == cyc[k]);
			ul = Min(dt4:HC[l_idx]);
 
			If(Is Missing(ul),
				If(
					Min(
						:Difference[dt << get rows where(
							:Component == numPar[i] & :Batch == cyc[k] & :Source Table ==
							dt5_name
						)]
					) == 0,
					minval = -5;
					maxval = 5;
				,
					minval = Min(
						:Difference[dt << get rows where(
							:Component == numPar[i] & :Batch == cyc[k] & :Source Table ==
							dt5_name
						)]
					) * 0.95;
					maxval = Max(
						:Difference[dt << get rows where(
							:Component == numPar[i] & :Batch == cyc[k] & :Source Table ==
							dt5_name
						)]
					) * 1.05;
				)
			,
				minval = Min(
					:Difference[dt << get rows where(
						:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name
					)],
					-ul
				) * 1.05;
				maxval = Max(
					:Difference[dt << get rows where(
						:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name
					)],
					ul
				) * 1.05;
			);
 
			If(!Is Missing(ul), //if no HC value dont create limit line
				gbb2[AxisBox(2)] << Add Ref Line(ul, "solid", black, Char(Round(ul, 2)));
				gbb2[AxisBox(2)] << Add Ref Line(-ul, "solid", black, Char(Round(-ul, 2)));
			);
 
			gbb2[AxisBox(2)] << Add Ref Line(0, "Dashed");
			gbb2[AxisBox(2)] << Min(minval);
			gbb2[AxisBox(2)] << Max(maxval);
			gbb2[AxisBox(2)] << inc((maxval - minval) / 10);
 
//Append
			//gbba2 = Report( gbb2 );
			col3 << Append(gbba2);
 
//filter << close;
			gb2 << close window;
 
		);
	);
 
//);
	tab = Tab Page Box(
		numPar[i],
		V List Box(
			col1
H List Box(col2, col3) // Placing the two plots next to each other
 
		)
	);
	tab << Title(numPar[i]);
//gb << title(Char(1));
	gb_collector << Append(tab);
 
);
gb_collector << Dockable(1);
gb_collector << Set Overflow Enabled(1);
 
 
 
nw = New Window("My dashboard", gb_collector);

Edit 2024-09-10 jthi: added JSL formatting

can you please help me find out how to do it?

Re: interactive plots

jthi — Tue, 10 Sep 2024 09:45:47 GMT

You have to take a step back and explain what you want: in best case provide example data or use one of the JMPs sample datasets to explain what you wish to have in the smallest possible example.

Re: interactive plots

ConvergentWhale — Tue, 10 Sep 2024 10:40:35 GMT

Names Default To Here(1); dt = Open("$SAMPLE_DATA/Big Class.jmp"); gb_collector = Tab Box("Dashboard"); For(i = 1, i <= 20, i++, // Column box for plot of all batches col1 = Col Box("All Batches" || Char(i)); // Create the first Graph Builder plot gb = Expr( dt << Graph Builder( invisible, Variables(X(:weight), Y(:height), Overlay(:sex)), Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11))) ) ); col1 << Append(gb); // Create a column box for the two Graph Builder plots col2 = Col Box("Actual Data " || Char(i)); // Create and append two Graph Builder plots to col2 For(j = 1, j <= 2, j++, gbb = Expr( dt << Graph Builder( invisible, Variables(X(:weight), Y(:height), Overlay(:sex)), Elements(Points(X, Y, Legend(9)), Line Of Fit(X, Y, Legend(11))) ) ); col2 << Append(gbb); ); // Create a tab for col1 and col2 and append it to gb_collector tab = Tab Page Box( " Something Something ", V List Box( col1, H List Box(col2) // Placing the two plots next to each other ) ); gb_collector << Append(tab); // Set title for gb gb << title("Title"); ); gb_collector << Dockable(1); gb_collector << Set Overflow Enabled(1); nw = New Window("Dashboard", gb_collector); Here is the example that i use and i am trying to follow the same structure in my own script.

Re: interactive plots

ConvergentWhale — Tue, 10 Sep 2024 10:52:49 GMT

Current Data Table(dt);

dt << New column("Time Point Months", Formula(Round(:Time Point Days/30.438), 2));

gb_collector = Tab Box();

For(i = 1, i <= N Items(numPar), i++,

// Column box for plot of all batches

col1 = Col Box( "" );

// Column box for plot of actual data

col2 = Col Box( "" );

// Column box for plot of difference

col3 = Col Box( "" );

//tab = Tab Page Box("",

gb = dt << Graph Builder(

//invisible,

Size(700, 400),

Variables(X(:Time Point Months), Y(:Result), Overlay(:Batch)),

Elements(Points(X, Y))

);

// Local filter: set the batch to only the batches that are in cyc with a ref, not all other batches

gb << Local Data Filter(

invisible,

Add Filter(columns(:Component, :Batch, :Source Table),

Where(:Component == numPar[i]),

Where(:Batch == {cyc, bat}),

Where(:Source Table == dt_name)

)

);

dt << Clear Select();

// Remove the filter display from the graph

gb << Show Control Panel(0);

// Report for changing plot

gbb = Report(gb)[GraphBuilderBox(1)];

// Add linear regression

gbb << Add Element(1, 1, {Type("Line Of Fit"), X, Y, Confidence of Fit(0), Equation(0)});

// Set Y axis

minval = min(:Result[dt << get rows where(:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat & :Component == numPar[i] & :Source Table == dt_name)]) * 0.95;

maxval = max(:Result[dt << get rows where(:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat & :Component == numPar[i] & :Source Table == dt_name)]) * 1.05;

maxvalts = max(:Time Point Months[dt << get rows where(:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat & :Component == numPar[i] & :Source Table == dt_name)]) * 1.05;

gbb[AxisBox(1)] << min(-0.1);

gbb[AxisBox(1)] << max(maxvalts);

gbb[AxisBox(2)] << min(minval);

gbb[AxisBox(2)] << max(maxval);

gbb[AxisBox(2)] << inc((maxval - minval) / 10);

// Set Y axis label

unitList = Associative Array(:Result Unit[dt << get rows where(:Component == numPar[i] & :Batch == cyc & :Source Table == dt_name | :Batch == bat & :Component == numPar[i] & :Source Table == dt_name)]) << Remove("") << Get Keys;

If(N Items(unitList) == 1,

gbb[Text Edit Box(4)] << Set text(numPar[i] || " [" || unitList[1] || "]")

gbb[Text Edit Box(4)] << Set text(numPar[i])

);

// Set graph title

gbb[Text Edit Box(1)] << Set text(numPar[i] || " vs. Time Point");

// Append

//gbba = Report(gb),

col1 << Append(gb);

//filter << close;

gb << close window;

// Within the loop through parameters we are now also looping through batches

For(k = 1, k <= N Items( cyc ), k++,

check = dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name | :Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name);

if(N items(check) > 0, // Create check to see if parameter exist for current batch

// Create base plot

gb = Graph Builder(

//invisible,

Size( 700, 400 ),

Variables( X( :Time Point Months ), Y( :Result ), Overlay( :Batch ) ),

Elements( Points( X, Y), )

);

gb << Local Data Filter(invisible, Add Filter( columns( :Component, :Batch, :Source Table ), Where( :Component == numPar[i] ), Where( :Batch == {cyc[k], bat[k]}), Where( :Source Table == dt_name) ));

dt << Clear Select();

// Remove the filter display from the graph

gb << Show Control Panel( 0 );

// Report for changing plot

gbb = Report( gb )[GraphBuilderBox( 1 )];

// Add liniear regression

gbb << Add Element( 1, 1, {Type( "Line Of Fit" ), X, Y, Confidence of Fit( 0 ),Equation( 0 )} );

// Set Y axis

minval = min(:Result[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name | :Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name)])*0.95;

maxval = max(:Result[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name| :Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name)])*1.05;

maxvalts = max(:Time Point Months[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name| :Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name)])*1.05;

gbb[AxisBox(1)] << min(-0.1);

gbb[AxisBox(1)] << max(maxvalts);

gbb[AxisBox(2)] << min(minval);

gbb[AxisBox(2)] << max(maxval);

gbb[AxisBox(2)] << inc((maxval-minval)/10);

// Set Y axis label

unitList = Associative Array( :Result Unit[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt_name | :Batch == bat[k] & :Component == numPar[i] & :Source Table == dt_name)] ) << Remove( "" ) << Get Keys;

If( N Items( unitList ) == 1,

gbb[Text Edit Box( 4 )] << Set text( numPar[i] || " [" || unitList[1] || "]" )

);

If( N Items( unitList ) != 1,

gbb[Text Edit Box( 4 )] << Set text( numPar[i] )

);

// Set graph titel

gbb[Text Edit Box( 1 )] << Set text( numPar[i] || " vs. Time Point ");

// Append

//gbba = Report( gbb );

col2 << Append( gbb );

//filter << close;

gb << close window;

// Start second plot

gb2 = Graph Builder(

//invisible,

Size( 700, 400 ),

Variables( X( Time Point Months ), Y( :Difference ), Color( :Batch ) ),

Elements( Points( X, Y) )

);

gb2 << Local Data Filter(invisible, Add Filter( columns( :Component, :Batch, :Source Table ), Where( :Component == numPar[i] ), Where( :Batch == cyc[k]), Where( :Source Table == dt5_name)));

dt4 << Clear Select();

// Remove the filter display from the graph

gb2 << Show Control Panel( 0 );

// Report for changing plot

gbb2 = Report( gb2 )[GraphBuilderBox( 1 )];

gbb2 << Add Element( 1, 1, {Type( "Line" ), X, Y} );

// Get the HC value

l_idx = dt4 << Get rows where(dt4:Component == numPar[i] & :Batch == cyc[k]);

ul = min(dt4:HC[l_idx]);

if(Ismissing(ul),

if(min(:Difference[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name)]) == 0,

minval = -5;

maxval = 5,

minval = min(:Difference[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name)])*0.95;

maxval = max(:Difference[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name)])*1.05;

minval = min(:Difference[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name)],-ul)*1.05;

maxval = max(:Difference[dt << get rows where(:Component == numPar[i] & :Batch == cyc[k] & :Source Table == dt5_name)], ul)*1.05;

);

if(!ismissing(ul), //if no HC value dont create limit line

gbb2[AxisBox(2)] << Add Ref Line(ul,"solid", black, char(round(ul,2)));

gbb2[AxisBox(2)] << Add Ref Line(-ul,"solid", black, char(round(-ul,2)));

);

gbb2[AxisBox(2)] << Add Ref Line(0,"Dashed");

gbb2[AxisBox(2)] << min(minval);

gbb2[AxisBox(2)] << max(maxval);

gbb2[AxisBox(2)] << inc((maxval-minval)/10);

//Append

//gbba2 = Report( gbb2 );

col3 << Append( gbba2 );

//filter << close;

gb2 << close window;

);

//);

tab = Tab Page Box(numPar[i],

V List Box(

col1

H List Box( col2,col3 ) // Placing the two plots next to each other

)

);

tab << Title(numPar[i]);

//gb << title(Char(1));

gb_collector << Append(tab);

);

gb_collector << Dockable( 1 );

gb_collector << Set Overflow Enabled( 1 );

nw = New Window("My dashboard",

gb_collector

);

Here is my script..

Attached is a screenshot of my current dashboard, which contains 8 graphs. Here are my specific requirements for organizing these graphs:

Keep the First Graph: I would like to retain the first graph as it is.
Remove the Second Graph: The second graph should be removed from the dashboard.
Pair the Last Six Graphs: The last six graphs should be paired such that each pair is displayed side by side. Specifically, the graphs should be organized as follows:
- The third and fourth graphs should be displayed next to each other.
- The fifth and sixth graphs should be displayed next to each other.
- The seventh and eighth graphs should be displayed next to each other.

To summarize, the final layout should have the first graph followed by three pairs of graphs, with each pair displayed side by side.

Re: interactive plots

jthi — Tue, 10 Sep 2024 16:49:22 GMT

Those two scripts are totally different (also please use JSL formatting for JSL code it is much easier to read). What are you using Col Box for? What are you looping over (i and j)? What determines what information each of the graphs contains? Should they be interactive with each other?