<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hola,
Estoy trazando tres gráficos diferentes (IR, EWMA y CUSUM) en una sola ventana, pero el problema al que me enfrento es que también muestra la condición donde se usa dentro de los gráficos en la ventana de visualización.
Ventana de visualización:
Código:
objeto = Nueva ventana ( "Informe de análisis de tendencias" || cita larga ( Hoy ()) ,
vlb = Cuadro de lista V ()
) ;
mostrar = Función ({ Proceso , Etiqueta , Por , Tipo_src , lmt1 , lmt2 , lmt3 } ,
r1 = Nueva ventana ( "" ,
plb = Caja de paneles ( "Gráficos de control para" || Proceso || " & " || " Tipo de fuente = " || Tipo_src , Tabla de datos actuales ( dt ) ;
Cuadro de lista H (
Tabla de control (
Etiqueta de muestra ( Columna ( dt , Etiqueta )) ,
Tamaño del grupo ( 1 ) , KSigma ( 3 ) ,
Como columna ( dt , Proceso ) , Medición individual ( LCL ( lmt1 [ 6 ]) , AVG ( lmt1 [ 5 ]) , UCL ( lmt1 [ 7 ]))) ,
Dónde ( Como columna ( dt , Por ) == Tipo_src ) ;
) ;
Etiqueta de muestra ( Columna ( dt , Etiqueta )) ,
Tamaño de la muestra ( 1 ) ,
Alfa ( 0.00269979606326021 ) ,
Mostrar leyenda de límites ( 0 ) ,
Como columna ( dt , Proceso ) , CUSUM ( Dos caras ( 1 ) , AVG ( lmt2 [ 5 ]))) ,
Dónde ( Como columna ( dt , Por ) == Tipo_src ) ;
) ;
Etiqueta de muestra ( Columna ( dt , Etiqueta )) ,
Tamaño de la muestra ( 1 ) ,
KSigma ( 3 ) , Peso ( 0,2 ) ,
Como columna ( dt , Proceso ) , EWMA ( AVG ( lmt3 [ 5 ]))) ,
Dónde ( Como columna ( dt , Por ) == Tipo_src ) ;
) ;
) ;
) ;
) ; vlb << Adjuntar ( r1 ) ; r1 << Cerrar ventana ;
) ;
trama = Función ({ lmts , pmt_path } ,
param_dt = Abierto ( pmt_path , "invisible" ) ;
param_summ = param_dt << Resumen ( Invisible ,
Grupo ( : Agrupar por ,: Proceso ,: Etiqueta de muestra ,: Por )) << Mostrar ventana ( 0 ) ;
Para ( q = 12 , q <= Nfila ( param_summ ) , q ++, Tabla de datos actuales ( param_summ ) ;
col2 =: Proceso [ q ] ; col3 =: Etiqueta de muestra [ q ] ; col4 =: Por [ q ] ;
Tabla de datos actuales ( lmts ) ;
clms = lmts << Obtener nombres de columnas ( Cadena ) ;
Eliminar de ( clms , 1 , 3 ) ;
Para ( t = 1 , t <= N artículos ( clms ) , t ++, Tabla de datos actuales ( lmts ) ;
indv_lmts = Como columna ( clms [ t ])[ lmts << Obtener filas donde ( : Parámetro == col2 & : Tipo de gráfico == "Individual" )] ;
cusum_lmts = Como columna ( clms [ t ])[ lmts << Obtener filas donde ( : Parámetro == col2 & : Tipo de gráfico == "CUSUM" )] ;
ewma_lmts = Como columna ( clms [ t ])[ lmts << Obtener filas donde ( : Parámetro == col2 & : Tipo de gráfico == "EWMA" )] ;
mostrar ( col2 , col3 , col4 , clms [ t ] , indv_lmts , cusum_lmts , ewma_lmts ) ;
) ;
) ;
) ;
No puedo entender por qué está sucediendo. Cualquier ayuda sería apreciada. ¡¡Gracias!!
Vea si este ejemplo es útil. Modifiqué un ejemplo en la excelente introducción de JSL Jump into JMP Scripting de Murphrey y Lucas.
dt = Abrir( "$SAMPLE_DATA/Control de calidad/Diámetro.jmp" );
cc = Gráfico de control(
Tamaño del grupo (1),
KSigma( 3 ),
Gráfico Col( :DIÁMETRO, Medición individual ),
Donde( :MÁQUINA == "A386")
);
Espere (2);
(Informe( cc ) << Padre)[Cuadro de texto( 1 )] << eliminar;
Espere (2);
El texto de la cláusula Where es una salida estándar de JMP y no es específica de su código.Por ejemplo para este script:
Tabla de control (
Tamaño del grupo ( 1 ) ,
KSigma ( 3 ) ,
Col del gráfico ( : DIÁMETRO , Medición individual ) ,
Dónde ( : Máquina == "A386" )
) ;
La salida se ve así:
Desafortunadamente, este texto no parece aparecer en el árbol de visualización y, por lo tanto, no se puede eliminar fácilmente.El enfoque que adopto es crear subconjuntos de datos para cada gráfico de modo que no se requiera la cláusula donde.Si estoy componiendo una ventana que contiene varios gráficos, tener el título "Gráfico de control" no agrega ninguna información útil, por lo que reemplazo este texto con la cláusula de selección utilizada para subconjuntos de datos:
Aquí está el guión completo:
dt = Abierto ( "$SAMPLE_DATA/Control de calidad/Diámetro.jmp" ) ;
// nombre de columna usado para la cláusula 'dónde'
Nombre del grupo = "Máquina" ;
// necesito esto para realizar tareas domésticas después del evento de cierre de ventana
ns = Nuevo espacio de nombres ( "tablas-temporales-para-eliminar" ) ;
// obtener valores únicos para la máquina
Resumir ( niveles = Por ( Como columna ( Nombre del grupo ) ) ) ;
noroeste = Nueva ventana ( "Mis gráficos" ,
hlb = Cuadro de lista H ()
) ;
// iterar sobre cada valor
ns : listas de tablas = {} ;
Para ( i = 1 , i <= NArtículos ( niveles ) , i ++,
// crear el subconjunto de datos
filas coincidentes = dt << Obtener filas donde ( Como columna ( Nombre del grupo ) == niveles [ i ] ) ;
dtNombre = "Subconjunto para" || Nombre del grupo || "=" || niveles [ i ] ;
dtSubconjunto = dt << Subconjunto ( Filas ( filas coincidentes ) , Tabla de salida ( dtNombre ) , Invisible ) ;
// agregar al espacio de nombres para referenciar mediante el evento de cierre
Insertar en ( ns : listas de tablas , dtSubconjunto ) ;
// usar un contenedor para garantizar que el gráfico no se represente hasta que se agregue a la ventana
envase = Cuadro de lista V (
cc = dtSubconjunto << Tabla de control (
Tamaño del grupo ( 1 ) ,
KSigma ( 3 ) ,
Col del gráfico ( : DIÁMETRO , Medición individual ) ,
)
) ;
// revisa el título
reps = cc << Informe ;
transmisión exterior = reps [ Cuadro de esquema ( 1 )] ;
transmisión exterior << Establecer título ( Nombre del grupo || " = " || niveles [ i ]) ;
// agregar a la ventana del informe
hlb << Adjuntar ( envase )
) ;
// limpieza - eliminar las tablas del subconjunto
noroeste << Al cerrar (
ns = Espacio de nombres ( "tablas-temporales-para-eliminar" ) ;
Para ( i = 1 , i <= NArtículos ( ns : listas de tablas ) , i ++,
Intentar ( Cerca ( ns : listas de tablas [ i ] , No guardar ) )
)
) ;
Y la salida asociada:
-dave
