459192_es-ES

liliconcom

Cómo guardar gráficos de control y su resumen en la misma diapositiva en ppt

Hola,

Tengo una secuencia de comandos que crea un bloque de gráficos de control con capacidades basadas en el parámetro y me gustaría guardar cada informe para cada parámetro en una diapositiva ppt separada. Cualquier ayuda apreciada.

Aquí están los gráficos:

y me gustaría tener cada gráfico de parámetros e informar en una diapositiva ppt separada:

 

Se adjunta la tabla con el script del gráfico de control.

 

Gracias,

tomasz

 

PD. y si es posible guardar solo los gráficos que tienen Ppk por debajo de 1.33, entonces sería magnífico

Organización de contenidoLa personalización en masaIngeniería de Calidad y ProcesosRe: Cómo guardar gráficos de control y su resumen en la misma diapositiva en ppt

Hola Jim,

 

Eso es exactamente lo que necesitaba, muchas gracias.

 

tomasz

Re: Cómo guardar gráficos de control y su resumen en la misma diapositiva en ppt

Agregue el JSL a continuación al final de su secuencia de comandos y debería obtener lo que desea

nw = New Window( "Control Charts", 
 V List Box(
  obAge = Outline Box( "Control Chart for Age" ),
  obWeight = Outline Box( "Control Chart for Weight" ),
  obOxy = Outline Box( "Control Chart for Oxy" )
 )
);

ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Age"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Age"] );
hlb << append( ob2 );
obAge << append( ob << get picture );

ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Weight"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Weight"] );
hlb << append( ob2 );
obWeight << append( ob << get picture );

ob = Outline Box( "", hlb = H List Box() );
hlb << append( Report( gb )["Levey Jennings of Oxy"] );
ob2 = Outline Box( "Distributions" );
ob2 << append( Report( gb )["Oxy"] );
hlb << append( ob2 );
obOxy << append( ob << get picture );

nw << Save Presentation( "$TEMP/jmp_example2.pptx" );
Open( "$TEMP/jmp_example2.pptx" );

nw << close window;

Re: Cómo guardar gráficos de control y su resumen en la misma diapositiva en ppt

Hola Jim,

Esto se ve muy bien y la dosis es un trabajo excelente, pero ¿hay alguna manera de hacer un trabajo similar pero manteniendo la integridad de la secuencia de comandos del gráfico de control original sin cambios?

Estoy extrayendo las capacidades de todos los gráficos, así que las necesito en un bloque.

Hago lago el acercamiento que mencionaste en el Cómo guardar un diario como PPT (2 gráficos por diapositiva) usando JSL , ¿hay alguna forma de modificar esa secuencia de comandos para que funcione con la secuencia de comandos del gráfico de control?

 

Gracias,

tomasz

Re: Cómo guardar gráficos de control y su resumen en la misma diapositiva en ppt

Esta pregunta se ha hecho antes.Aquí hay un enlace a la forma en que abordo el problema.

Cómo guardar un diario como PPT (2 gráficos por diapositiva) usando JSL

 

Aquí hay un ejemplo completo, usando sus datos que crea el resultado que desea

Names Default To Here( 1 );
nw = New Window( "Control Charts",
 ob1 = Outline Box( "Levey Jennings of Age" ),
 ob2 = Outline Box( "Levey Jennings of Weight" ),
 ob3 = Outline Box( "Levey Jennings of Oxy" )
);
cc1 = Control Chart(
 invisible,
 Sample Label( :Name ),
 KSigma( 3 ),
 Chart Col(
  :Age,
  Levey Jennings(
   Show Zones( 1 ),
   Shade Zones( 1 ),
   Test 1( 1 ),
   Test 2( 1 ),
   Test 5( 1 ),
   Test 6( 1 ),
   Test Beyond Limits( 1 )
  ),
  Capability(
   Distribution(
    Continuous Distribution(
     Column( :Age ),
     Quantiles( 0 ),
     Horizontal Layout( 1 ),
     Vertical( 0 ),
     Outlier Box Plot( 0 ),
     Normal Quantile Plot( 1 ),
     Process Capability(
      Use Column Property Specs,
      Process Capability Analysis(
       Nonconformance( 0 ),
       Histogram( 1, Show Within Sigma Density( 0 ) )
      )
     ),
     Customize Summary Statistics( Skewness( 1 ) )
    )
   )
  )
 )
);
cc2 = Control Chart(
 invisible,
 Sample Label( :Name ),
 KSigma( 3 ),
 Chart Col(
  :Weight,
  Levey Jennings(
   Show Zones( 1 ),
   Shade Zones( 1 ),
   Test 1( 1 ),
   Test 2( 1 ),
   Test 5( 1 ),
   Test 6( 1 ),
   Test Beyond Limits( 1 )
  ),
  Capability(
   Distribution(
    Continuous Distribution(
     Column( :Weight ),
     Quantiles( 0 ),
     Horizontal Layout( 1 ),
     Vertical( 0 ),
     Outlier Box Plot( 0 ),
     Normal Quantile Plot( 1 ),
     Process Capability(
      Use Column Property Specs,
      Process Capability Analysis(
       Nonconformance( 0 ),
       Histogram( 1, Show Within Sigma Density( 0 ) )
      )
     ),
     Customize Summary Statistics( Skewness( 1 ) )
    )
   )
  )
 )
);
cc3 = Control Chart(
 invisible,
 Sample Label( :Name ),
 KSigma( 3 ),
 Chart Col(
  :Oxy,
  Levey Jennings(
   Show Zones( 1 ),
   Shade Zones( 1 ),
   Test 1( 1 ),
   Test 2( 1 ),
   Test 5( 1 ),
   Test 6( 1 ),
   Test Beyond Limits( 1 )
  ),
  Capability(
   Distribution(
    Continuous Distribution(
     Column( :Oxy ),
     Quantiles( 0 ),
     Horizontal Layout( 1 ),
     Vertical( 0 ),
     Outlier Box Plot( 0 ),
     Normal Quantile Plot( 1 ),
     Process Capability(
      Use Column Property Specs,
      Process Capability Analysis(
       Nonconformance( 0 ),
       Histogram( 1, Show Within Sigma Density( 0 ) )
      )
     ),
     Customize Summary Statistics( Skewness( 1 ) )
    )
   )
  )
 )
);
ob1 << append( cc1 << get picture );
ob2 << append( cc2 << get picture );
ob3 << append( cc3 << get picture );

nw << Save Presentation( "$TEMP/jmp_example.pptx" );
Open( "$TEMP/jmp_example.pptx" );