How does JSL implement a click-to-get variable value in such a graph?

[#1]

Follow the script below.

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
p1 = dt << Graph Builder(
	Variables( X( :weight ), Y( :height ), Group X( :age ), Color( :sex ) ),
	Elements( Bar( X, Y, Legend( 5 ), Response Axis( "X" ), Summary Statistic( "Sum" ) ) )
);

How to write JSL How to achieve in the graph by clicking on a certain age bar, get this age value?And use this value to perform subsequent operations.

Thanks!

[#2]

OK

Thank Craige!
You taught me how to solve problems so that I didn't just copy code.
Thanks Experts!

[#3]

For those who are too lazy to click - or too lazy to use Expression Handling: use the Picture part of the Hover label.

The reaction is immediate (much faster than the time it takes till the hover label appears).

dt = Open( "$SAMPLE_DATA/Big Class.jmp", invisible );
gb = dt << Graph Builder(
	Show Control Panel( 0 ),
	Variables( X( :weight ), Y( :height ), Group X( :age ), Color( :sex ) ),
	Elements( Bar( X, Y, Legend( 5 ), Response Axis( "X" ), Summary Statistic( "Sum" ) ) )
);
fbs = Report( gb ) << XPath( "//FrameBox" );

For Each( {fb}, fbs,
	fb << Set Graphlet( Picture( Caption( Char( myAge = :age[local:_firstRow] ) ) ) )
);

[#4]

I can only click.
Because some columns have small graphics (other columns have large data), it is difficult to point to hover.

[#5]

and if you are too lazy to hit the bars -  just

1. add a HeatMap plot
2. with disabled x and y variables
3. and transparency set to 0:

View more...

dt = Open( "$SAMPLE_DATA/Big Class.jmp", invisible );
gb = dt << Graph Builder(

	Variables( X( :weight ), Y( :height ), Group X( :age ), Color( :sex ) ),
	Elements(
		Bar(
			X,
			Y,
			Response Axis( "X" ),
			Summary Statistic( "Sum" )
		),
		Heatmap( Legend( 6 ) )
	),
	SendToReport(
		Dispatch( {"Heatmap"}, "", OutlineBox, {Close( 0 )} ),
		Dispatch( {}, "400", ScaleBox,
			{Legend Model(
				6,
				Base( 0, 0, 0, Item ID( "F", 1 ) ),
				Base( 1, 0, 0, Item ID( "M", 1 ) ),
				Properties( 0, {Transparency( 0 )}, Item ID( "F", 1 ) ),
				Properties( 1, {Transparency( 0 )}, Item ID( "M", 1 ) )
			)}
		))
);
fbs = Report( gb ) << XPath( "//FrameBox" );

For Each( {fb}, fbs,
	fb << Set Graphlet( Picture( Caption( Char( myAge = :age[local:_firstRow] ) ) ) )
);

[#6]

Still want to trigger scripts by clicking on graphics, not by Hover Labels

But this graphic changes form, and I don't know how to change to write JSL.

I had to go back to the experts.

Thanks!

• I can only write a script like this, but cannot execute it:

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
p1 = dt << Graph Builder(
	Size( 632, 1152 ),
	Show Control Panel( 0 ),
	Show Legend( 0 ),
	Variables( X( :weight ), Y( :height ) ),
	Elements(
		Bar( X, Y, Legend( 5 ), Bar Style( "Stacked" ), Response Axis( "X" ), Summary Statistic( "Sum" ) )
	)
);
gp = Report(p1)["Graph Builder",FrameBox(1)]
Eval(
	Eval Expr(
		gp << Addgraphicsscript(
			Mousetrap(
				{},
				a0 = Expr( iFrame );
				dt << Select Where( :height == a0 );
				dt << Select Columns( "height" );
				d3 = dt << Subset( Output Table( "test" ), Selected Rows( 1 ), columns( height ) );
			)
		)
	)
);

[#7]

Check the log, there is a missing ; and undefined variable iFrame which you don't need because there is only one frame. The original example embedded the frame number into each script. You don't need the eval(evalexpr(...expr(...)...)) because you no longer have the iFrame to embed in the expr(...)

MouseTrap is the strangest function in all of JMP. When it is called, it does nothing at all. And you don't have to place it where it will be called, but you DO have to place it in the body of the script, not in a user function outside of the script. MouseTrap is a way to supply a snippet of JSL that will run when the mouse moves.  When the mouse moves over the framebox, JMP looks for handler functions in the attached graphic scripts and calls them until one handles the mouse.

[#8]

Thank Craige!

Yes, one of my code changes was deleted by mistake;

Since my actual generated graph bar graph is very small, using Hover Labels is prone to errors and raises unwanted data.So I still need to trigger the script by clicking on the bar chart.
I want to modify it by imitating the script given by the expert earlier in this post.But I studied for a long time, still do not know how to modify.You can only post again to ask the experts for help.
Thanks Experts!

[#9]

Interesting example.

[#10]

frame = (gp << report)[FrameBox( 1 )];
frame << Set Graphlet(
	Picture(
		Try( Close( d3, nosave ) );
		Current Data Table( dt );
		d3 = dt << Subset(
			Output Table( "tt" ),
			Selected Rows( 0 ),
			Rows( dt << Get Selected Rows() ),
			Selected columns only( 0 )
		);
	),
	Reapply( 1 )
);

This allows mouse clicks and Hover Labels to be used simultaneously.

Click can implement the selected line, Hover Labels can extract a subset of the selected line.

Thanks!

[#11]