topic Re: Remove Data Filter and Range Plot Text from Graph in Discussions

Remove Data Filter and Range Plot Text from Graph

pmroz — Sun, 11 Jun 2023 11:13:10 GMT

I have a series of graphs that look like this:

I'm using a local data filter to display several graphs in one window.

How can I remove the text at the bottom of the graph? I've looked through the tree structure but can't find this text.

The error bars are constructed by using Summary Statistic: Median and Error Bars: Range.

Re: Remove Data Filter and Range Plot Text from Graph

Thierry_S — Mon, 19 Apr 2021 14:54:43 GMT

Hi,
As far as I can tell, there is no specific structure that specifically captures the Filter information at the bottom of the GB plots. However, I wonder if using the opposite approach of only capturing the GraphBuilderBox (exact id of this element needs to be defined based on the structure of the GB plots) that does not contain the offending text could be meeting your goal.
Just a thought.
Best,
TS

Re: Remove Data Filter and Range Plot Text from Graph

pmroz — Mon, 19 Apr 2021 15:00:30 GMT

I figured it out. If I click on the text to be removed in the graph, it gets highlighted in the tree structure. Then it was a matter of removing the text boxes like this:

fp_win[textbox(35)] << delete box();
fp_win[textbox(28)] << delete box();
fp_win[textbox(21)] << delete box();
fp_win[textbox(14)] << delete box();
fp_win[textbox(7)]  << delete box();

fp_win points to the new window() containing the graphs.

Re: Remove Data Filter and Range Plot Text from Graph

ih — Mon, 19 Apr 2021 15:23:14 GMT

Another option might be to search for the text box(es):

(fp_win<< XPath("//TextBox[contains(text(),'Where')]")) << delete box();

Or, in an example:

Names default to here(1);

dt = Open("$Sample_data/iris.jmp");

gb = dt << Graph Builder(
	Size( 534, 456 ),
	Show Control Panel( 0 ),
	Variables( X( :Sepal length ), Y( :Species ) ),
	Elements( Line( X, Y, Legend( 6 ), Error Interval( "Range" ) ) ),
	Local Data Filter(
		Add Filter(
			columns( :Petal length ),
			Where( :Petal length >= 1 & :Petal length <= 6.4083 )
		)
	),
	SendToReport(
		Dispatch( {}, "Graph Builder", FrameBox, {Reference Line Order( 3 )} )
	)
);

(gb << XPath("//TextBox[contains(text(),'Where')]")) << delete box();