integrate radio box with bivariate plot

Tomer9w

Hi

Using the below script to dynamically control bivariate plot upon user choice.

The user chooses 'product' type out of a list presented in a radio box, and the chosen product will be then used as a 'By' argument in the bivariate plot.

 

I managed to create the new window containing radio box and plot but it is not interactive.

Hope you can help!

 

summarize(unique_values=by("PRODUCT@STARTS"));


my_1_script = expr(
    Bivariate(
			Y(:Name(
					"SPCRAW@WAFER@MEAN@ONTFE.HM_FRAC_LOT_2PT_DYN.74.DER@ML=2PT_DYN_A;PP=2PT_MEAN@188426"
				)
			),
			X(:Name( "END_TIME@CHAMBER@NTSC@Process-1@ETCHER@163096" ) ),
			
			By( cat<< Get Selected ),
			
			GroupBy( :group ),
			Fit Spline( 0.1, Standardized, {Line Width( 2 )} ),
			UnGroup;
			
			Fit Where(:group == "D1D",
				Fit Spline(0.1,Standardized,{Line Color( "Black" ), Line Width( 4 )}));	
				
			SendToReport(
				Dispatch(
					{},
					"Bivar Plot",
					FrameBox,
					{Frame Size( 493, 277 ),
					Row Legend(
						chamber,
						Color( 1 ),
						Color Theme( "JMP Default" ),
						Marker( 0 ),
						Marker Theme( "" ),
						Continuous Scale( 0 ),
						Reverse Scale( 0 ),
						Excluded Rows( 0 )
					)}
				)
				
			)
		)
   );



my_win = New Window( "DEPOP FRAC - Bivariate",
	HListBox(
			 LineUpBox(ncol(1), 
				 PanelBox("Product", 
					Outline Box( "Select Product", cat = Radio Box( unique_values, width( 200 ), gb << delete; my_win << append( gb = my_1_script ) ))
				), //end PanelBox
   gb = my_1_script)))

txnelson

I think this will provide you with what you need

Names Default To Here( 1 );
Summarize( unique_values = by( "PRODUCT@STARTS" ) );

my_1_script = Expr(
	Bivariate(
		Y(
			:Name(
				"SPCRAW@WAFER@MEAN@ONTFE.HM_FRAC_LOT_2PT_DYN.74.DER@ML=2PT_DYN_A;PP=2PT_MEAN@188426"
			)
		),
		X( :Name( "END_TIME@CHAMBER@NTSC@Process-1@ETCHER@163096" ) ), 
			
		By( As Column( catSelected ) ), 
			
		GroupBy( :group ),
		Fit Spline( 0.1, Standardized, {Line Width( 2 )} ),
		UnGroup;
			
		Fit Where(
			:group == "D1D",
			Fit Spline( 0.1, Standardized, {Line Color( "Black" ), Line Width( 4 )} )
		);	
				
		SendToReport(
			Dispatch(
				{},
				"Bivar Plot",
				FrameBox,
				{Frame Size( 493, 277 ), Row Legend(
					chamber,
					Color( 1 ),
					Color Theme( "JMP Default" ),
					Marker( 0 ),
					Marker Theme( "" ),
					Continuous Scale( 0 ),
					Reverse Scale( 0 ),
					Excluded Rows( 0 )
				)}
			)
				
		);
	)
);

my_win = New Window( "DEPOP FRAC - Bivariate",
	H List Box(
		Lineup Box( N Col( 1 ),
			Panel Box( "Product",
				Outline Box( "Select Product",
					cat = Radio Box(
						unique_values),
					button box("OK",
						catSelected = cat << get selected;
						my_win << close window;
						my_1_script;
					)
				)
			) //end PanelBox
		)
	)
);