cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
Check out the JMP® Marketplace featured Capability Explorer add-in
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!