cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 
The Discovery Summit 2025 Call for Content is open! Submit an abstract today to present at our premier analytics conference.
Choose Language Hide Translation Bar
View Original Published Thread

Remove Control Chart Axis Labels

rfeick
Level IV

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!