cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
JMP is taking Discovery online, April 16 and 18. Register today and join us for interactive sessions featuring popular presentation topics, networking, and discussions with the experts.
Choose Language Hide Translation Bar
rfeick
Level IV

Remove Control Chart Axis Labels

I have a script that imports data then manipulates the data and makes control charts. The person I'm writing it for does not want labels or tick marks along the x axis. I built the control charts using control chart builder and I removed the the x axis labels and tick marks, but when I run the script it puts them back.  Everything else I've done in control chart builder is replicated when the script is run. Is there a way to fix this? Here's the section of my script related to the control chart:

Control Chart Builder(
	Size( 534, 440 ),
	Show Two Shewhart Charts( 0 ),
	Show Control Panel( 0 ),
	Show Capability( 0 ),
	Variables( Y( :Name( "0.5 Micron Particulate (part/m3)" ) ) ),
	Chart( Points( Statistic( "Individual" ) ), Limits( Sigma ) ),
	SendToReport(
		Dispatch(
			{},
			"Control Chart Builder",
			OutlineBox,
			{Set Title( "IR Control  Chart" )}
		),
		Dispatch(
			{},
			"0.5 Micron Particulate (part",
			ScaleBox,
			{Min( 0 ), Max( 400000 ), Inc( 50000 ), Minor Ticks( 0 ),
			Add Ref Line( 125000, "Dashed", "Purple", "125000", 1 ),
			Add Ref Line( 352000, "DashDotDot", "Cyan", "352000", 1 )}
		),
		Dispatch(
			{},
			"graph display 1 title",
			TextEditBox,
			{Set Text(
				char(RM[r]) ||" 0.5 Micron Particulate (part/m3) "|| char(As Date(:Date[1]))|| " - " || char(As Date(:Date[NRows()]))
			)}
		)
	)
);
1 ACCEPTED SOLUTION

Accepted Solutions
txnelson
Super User

Re: Remove Control Chart Axis Labels

This script deals with the issue by deleting the X Axis Box

ccb=Control Chart Builder(
	Size( 534, 440 ),
	Show Two Shewhart Charts( 0 ),
	Show Control Panel( 0 ),
	Show Capability( 0 ),
	Variables( Y( :Name( "0.5 Micron Particulate (part/m3)" ) ) ),
	Chart( Points( Statistic( "Individual" ) ), Limits( Sigma ) ),
	SendToReport(
		Dispatch(
			{},
			"Control Chart Builder",
			OutlineBox,
			{Set Title( "IR Control  Chart" )}
		),
		Dispatch(
			{},
			"0.5 Micron Particulate (part",
			ScaleBox,
			{Min( 0 ), Max( 400000 ), Inc( 50000 ), Minor Ticks( 0 ),
			Add Ref Line( 125000, "Dashed", "Purple", "125000", 1 ),
			Add Ref Line( 352000, "DashDotDot", "Cyan", "352000", 1 )}
		),
		Dispatch(
			{},
			"graph display 1 title",
			TextEditBox,
			{Set Text(
				char(RM[r]) ||" 0.5 Micron Particulate (part/m3) "|| char(As Date(:Date[1]))|| " - " || char(As Date(:Date[NRows()]))
			)}
		)
	)
);
report(ccb)[AxisBox(1)]<<delete;
Jim

View solution in original post

2 REPLIES 2
txnelson
Super User

Re: Remove Control Chart Axis Labels

This script deals with the issue by deleting the X Axis Box

ccb=Control Chart Builder(
	Size( 534, 440 ),
	Show Two Shewhart Charts( 0 ),
	Show Control Panel( 0 ),
	Show Capability( 0 ),
	Variables( Y( :Name( "0.5 Micron Particulate (part/m3)" ) ) ),
	Chart( Points( Statistic( "Individual" ) ), Limits( Sigma ) ),
	SendToReport(
		Dispatch(
			{},
			"Control Chart Builder",
			OutlineBox,
			{Set Title( "IR Control  Chart" )}
		),
		Dispatch(
			{},
			"0.5 Micron Particulate (part",
			ScaleBox,
			{Min( 0 ), Max( 400000 ), Inc( 50000 ), Minor Ticks( 0 ),
			Add Ref Line( 125000, "Dashed", "Purple", "125000", 1 ),
			Add Ref Line( 352000, "DashDotDot", "Cyan", "352000", 1 )}
		),
		Dispatch(
			{},
			"graph display 1 title",
			TextEditBox,
			{Set Text(
				char(RM[r]) ||" 0.5 Micron Particulate (part/m3) "|| char(As Date(:Date[1]))|| " - " || char(As Date(:Date[NRows()]))
			)}
		)
	)
);
report(ccb)[AxisBox(1)]<<delete;
Jim
rfeick
Level IV

Re: Remove Control Chart Axis Labels

Thanks for your help! I put that in my script and it worked great!