848204_es-ES

liliconcom

Escala de eje uniforme en el script del generador de gráficos de control

Estoy trabajando en un script para recorrer una lista de propiedades y crear un par de gráficos de control para cada una. El par de gráficos (por "Línea") debe mostrarse uno al lado del otro y tener la misma escala en el eje Y.

Tengo una lista de propiedades (una variable de lista llamada CCProperty) y una lista de configuraciones de eje para cada propiedad (una variable de matriz llamada CCFormat). Aunque usé los mismos números (como CCFormat[i,j]) para el mínimo, el máximo, el incremento y el número de marcas de cada gráfico, las escalas no coinciden.

Agradecería cualquier ayuda. Uso JMP Pro 18.1.1.

Se adjunta la tabla de datos completa con el script incrustado. A continuación, un fragmento del código:

For(i=1, i <= N Items(CCProperty), i += 1,  //  Loop through all the properties and make control charts using the graph min and max

Mainbox<<APPEND></APPEND>

<LINGO-LABS id="lingo-labs-848204" slang="en-US" mode="CREATE"><LINGO-LABEL>Automatización y scripting</LINGO-LABEL></LINGO-LABS>Re: Escala de eje uniforme en el script del generador de gráficos de control

Hice pequeños cambios en tu script que podrían solucionar el problema en este caso. Esta parte fue la que más modifiqué.

SendToReport(
	Dispatch({}, CCProperty[i], ScaleBox, {Min(CCFormat[i, 1]), Max(CCFormat[i, 2]), Inc(CCFormat[i, 3]), Minor Ticks(CCFormat[i, 4])}),
)

Ver más...

Names Default To Here(1);

CCProperty = {"Strength", "Elongation", "Weight", "Thickness"};

CCFormat = [60 66 1 4, 25 45.5 5 4, 3.4 4.0 0.1 4, 8 16 1 4];

outputwin = New Window("Control Charts", Outline Box("Control Charts", Mainbox = V List Box()));

For(i = 1, i <= N Items(CCProperty), i++,
	Mainbox << append(hb = H List Box());

	hb << append(
		Control Chart Builder(
			Size(650, 600),
			Graph Spacing(10),
			Test Excluded Subgroups(0),
			Show Limit Labels(1),
			Show Capability(0),
			Show Limit Summaries(0), 
	
			Variables(Subgroup(:Workorder), Y(Column(CCProperty[i]))),
			Chart(Position(1), Points(Statistic("Average")), Limits(Sigma("Moving Range"), Spec Limits(1))),
			Chart(Position(2), Points(Statistic("Moving Range on Means")), Limits(Sigma("Moving Range"))),
			Chart(Position(3), Points(Statistic("Standard Deviation")), Limits(Sigma("Standard Deviation"))),
			Show Control Panel(0),
			By(:Line), 

			Where(:Line == "Line 1"),
			SendToReport(
				Dispatch({}, CCProperty[i], ScaleBox, {Min(CCFormat[i, 1]), Max(CCFormat[i, 2]), Inc(CCFormat[i, 3]), Minor Ticks(CCFormat[i, 4])}),
			)
		)
	);

	hb << append(
		Control Chart Builder(
			Size(650, 600),
			Graph Spacing(10),
			Test Excluded Subgroups(0),
			Show Limit Labels(1),
			Show Capability(0),
			Show Limit Summaries(0), 
	
			Variables(Subgroup(:Workorder), Y(Column(CCProperty[i]))),
			Chart(Position(1), Points(Statistic("Average")), Limits(Sigma("Moving Range"), Spec Limits(1))),
			Chart(Position(2), Points(Statistic("Moving Range on Means")), Limits(Sigma("Moving Range"))),
			Chart(Position(3), Points(Statistic("Standard Deviation")), Limits(Sigma("Standard Deviation"))),
			Show Control Panel(0),
			By(:Line),
			Where(:Line == "Line 2"),
			SendToReport(
				Dispatch({}, CCProperty[i], ScaleBox, {Min(CCFormat[i, 1]), Max(CCFormat[i, 2]), Inc(CCFormat[i, 3]), Minor Ticks(CCFormat[i, 4])}),
			)
		)
	);
);  //end of For Loop

En general, sugeriría configurar los valores del eje fuera del gráfico, pero en un caso simple como este, usar sendtoreport dentro del mensaje del gráfico debería ser suficiente.

Re: Escala de eje uniforme en el script del generador de gráficos de control

¡Gracias por la ayuda! Supongo que la falta del subíndice [i] en la variable de lista CCProperty fue la causa de mis problemas.