252365_it-IT

liliconcom

Ri: Per generare grafici di variabilità basati sulle variabili Y disponibili e salvarli in immagini PNG

Ho modificato il tuo codice.  Non ho testato il tuo codice, ma credo che funzionerà.  Non l'ho provato.

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 );
);

Ri: Per generare grafici di variabilità basati sulle variabili Y disponibili e salvarli in immagini PNG

Grazie mille Jim. 

Ho provato il codice, ma ora sono apparse più finestre del grafico Var, ma nessuna di esse è stata salvata come PNG nell'unità designata.  Forse ho perso qualcosa vicino al segmento "salva immagine".  

Ri: Per generare grafici di variabilità basati sulle variabili Y disponibili e salvarli in immagini PNGCiao,

Ne ho trovato la causa. Lo script è ora in grado di funzionare.
Tuttavia, per le variabili con "/" nei loro nomi (esempio, A_B / Tox / Cap), lo script richiederà un errore e non potrà continuare.

Rapporto (obj) << Salva immagine ("$ TEMP / myPics /" || colList [i] || ".png", PNG);

È dovuto a colList [i]?

Per generare grafici di variabilità basati sulle variabili Y disponibili e salvarli in immagini PNG

Ciao,

 

Sto cercando di scrivere alcuni codici che mi aiuteranno a generare automaticamente alcuni grafici di variabilità in base ai nomi delle colonne disponibili e salvarli come individuale Immagini PNG in modo da poter collegare le immagini al mio powerpoint.

 

Ma non sono sicuro del motivo per cui "obj" è stato sempre indefinito durante il debug. 

 

Vorrei chiedere qualche consiglio al riguardo. Grazie con molto apprezzamento.

 

- Ann

 

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