252365_es-ES

liliconcom

Re: Para generar gráficos de variabilidad basados en variables Y disponibles y guardarlos en imágenes PNG

Modifiqué tu código.  No probé su código, pero creo que funcionará.  No lo probé.

dt = Open( "D:\My Drive\Program.jmp" );

// Find the Y Columns
numericColNamesList = dt << get column names( string, numeric );

For( i = N Items( numericColNamesList ), i >= 1, i--,
 If( Not( Is Missing( Num( Word( 1, numericColNamesList[i], ":" ) ) ) == 0 & Word( 2, numericColNamesList[i], ":" ) != "" ),
  numericColNamesList = Remove( numericColNamesList, i, 1 )
 )
);


// With varying Y columns and fixed X columns

For( i = 2, i <= N Items( numericColNamesList ), i++, 

 obj = dt << Variability Chart(
  Y( ::Column( numericColNamesList[i] ) ),
  X( :code, :lot, :Label, :wafer ),
  Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
  Connect Cell Means( 1 ),
  Std Dev Chart( 0 ),
  Automatic Recalc( 1 ),
  SendToReport(
   Dispatch(
    {"Variability Chart for numericColNamesList[i]"},
    "Variability Chart",
    FrameBox,
    {Marker Size( 6 ), Row Legend(
     Label,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 );
 fName = Report( obj )[Outline Box( 1 )] << Get Title;
 Report( obj )[Outline Box( 1 )] << Save Picture( "$TEMP/myPics/" || fName || ".png", "PNG", append );
);

Re: Para generar gráficos de variabilidad basados en variables Y disponibles y guardarlos en imágenes PNG

Muchas gracias Jim. 

Probé el código, pero ahora tengo varias ventanas del gráfico Var, pero ninguna de ellas se guardó como PNG en la unidad designada.  Supongo que quizás me he perdido algo cerca del segmento "guardar imagen".  

Re: Para generar gráficos de variabilidad basados en variables Y disponibles y guardarlos en imágenes PNGHola,

He encontrado la causa de esto. El script puede ejecutarse ahora.
Sin embargo, para las variables con "/" en sus nombres (ejemplo, A_B / Tox / Cap), el script generará un error y no podrá continuar.

Informe (obj) << Guardar imagen ("$ TEMP / myPics /" || colList [i] || ".png", PNG);

¿Se debe a colList [i]?

Para generar gráficos de variabilidad basados en las variables Y disponibles y guardarlas en imágenes PNG

Hola,

 

Estoy tratando de escribir algunos códigos que me ayudarán a generar automáticamente algunos gráficos de variabilidad basados en los nombres de columna disponibles y guardarlos como individual Imágenes PNG para poder vincular las imágenes a mi powerpoint.

 

Pero no estoy seguro de por qué el "obj" siempre estuvo indefinido durante la depuración. 

 

Me gustaría buscar algún consejo sobre esto. Gracias con mucho aprecio.

 

- Ana

 

dt = Open( "D:\My Drive\Program.jmp" );

// Find the Y Columns
numericColNamesList = dt << get column names( string, numeric );

For( i = N Items( numericColNamesList ), i >= 1, i--,
 If(
  Not(
   Is Missing( Num( Word( 1, numericColNamesList[i], ":" ) ) ) == 0 &
   Word( 2, numericColNamesList[i], ":" ) != ""
  ),
  numericColNamesList = Remove( numericColNamesList, i, 1 )
 )
);


// With varying Y columns and fixed X columns

For( i = 2, i <= N Items( numericColNamesList ), i++, 

 obj = dt << Variability Chart(
  Y( ::Column( numericColNamesList[i] ) ),
  X( :code, :lot, :Label, :wafer ),
  Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
  Connect Cell Means( 1 ),
  Std Dev Chart( 0 ),
  Automatic Recalc( 1 ),
  SendToReport(
   Dispatch(
    {"Variability Chart for numericColNamesList[i]"},
    "Variability Chart",
    FrameBox,
    {Marker Size( 6 ), Row Legend(
     Label,
     Color( 1 ),
     Color Theme( "JMP Default" ),
     Marker( 0 ),
     Marker Theme( "" ),
     Continuous Scale( 0 ),
     Reverse Scale( 0 ),
     Excluded Rows( 0 )
    )}
   )
  )
 )
);

obj = List( obj[i] );
For( i = 1, i <= N Items( obj ), i++,
 fName = Report( obj )[Outline Box( 1 )] << Get Title;
 Report( obj )[Outline Box( 1 )] << Save Picture( "$TEMP/myPics/" || fName || ".png", "PNG" );
 Report( obj )[Outline Box( 1 )] << Save Picture( "$TEMP/myPics/" || fName || ".png", "PNG", append );
);

 

Scripting