343851_it-IT

liliconcom

Trasforma più colonne con JSL

Ciao Guru JSL,

Esiste un modo semplice per trasformare un elenco di colonne in JSL con la stessa formula di trasformazione?

Sto cercando di ottenere funzionalità simili come in una tabella, ad esempio, dove posso selezionare più colonne e dal menu di scelta rapida:

Colonna Nuova formula -> Trasforma -> Valore assoluto

Se questo può essere fatto senza un ciclo For, sarà utile.

Apprezzare qualsiasi indicazione.

Grazie.

SceneggiaturaRe: Trasforma più colonne con JSL

Grande! Grazie per l'aiuto e le risposte tempestive.

Re: Trasforma più colonne con JSL

Ecco un esempio che potrebbe farti iniziare:

 

names default to here(1);

dt = open("$Sample_data/iris.jmp");
ColumnList = dt << Get Column Names(Numeric);

ReplaceTarget = "<COLUMN>";
FormulaInput = "<COLUMN> + 1";

//for each column
For( i = 1, i <= N Items( ColumnList ), i++,
 FormulaComplete = Substitute( FormulaInput, "<COLUMN>", ":Name(\!"" || Char( ColumnList[i] ) || "\!")");
 
 //create an expression that will create the new column reference
 newColExpr = Expr(
  dt << New Column( Expr( Char( ColumnList[i] ) || " Transformed" ),
   Numeric,
   Formula( Expr( Parse( FormulaComplete ) ) )
  )
 );
 
 //Create the new column
 Eval( Eval expr( newColExpr ) );
);</COLUMN></COLUMN></COLUMN>

Re: Trasforma più colonne con JSL

Grazie. Questa è una grande utilità.

Se hai qualcosa di più semplice per quello che ho descritto sopra che posso incorporare in altri script, sarà utile per l'elenco dei nomi di colonna che ho generato in altre parti del mio script. In caso contrario, posso analizzare e utilizzare parti/concetti nel codice per farlo.

Re: Trasforma più colonne con JSL

Potresti ottenere molte risposte sui modi per farlo con gli strumenti esistenti in JMP, ma uso ancora lo script seguente che viene eseguito da una voce di menu all'interno di una tabella.Seleziona le colonne in una tabella, esegui lo script, scrivi una formula che faccia riferimento a quelle prime colonne, quindi ogni colonna selezionata viene trasformata.

 

Sceneggiatura:

 

Visualizza di più...

Names default to here( 1 );

//Reference current table
dt1 = Current Data Table();

//flag to output a bunch of status info to the log file
debug = 0;

//window box, all code is inside this box
nw = New Window( "Custom Column Transformation",

 //box to hold spacers on left and right side of data
 H List Box ( 
  
  //spacer on left side of window
  Spacer Box( Size( 12, 12) ),
 
  //box to hold all other parts of window
  V List Box(
   
   //heading and instructions
   Text Box( "Choose Transformation Settings " ), 
   Spacer Box( Size( 12, 12 ) ),
   V List Box( Text Box( "Directions:" ||
          "\!N1. Select columns to transform in the data table." ||
          "\!N2. Type a formula below, or select an example." ||
          "\!N3. Select a phrase to be appended to each new column name." ||
          "\!N4. Press OK." ||
          "\!N5. Repeat 2-4 as necessary." ||
          "\!N6. Press Close/Cancel to exit."), 
   Spacer Box( Size( 12, 12 ) ) ),
   
   //radio buttons with examples, when selected the text in the formula edit box is modified
   panelbox("Example Equations",
    rb1 = radio box({"Lag", "Change", "Shuffle", "Date Dep", "Column Only", "Cos Oscillation", "Sin Oscillation", "10 day t score"},
     one_rb = rb1 << get selected;
     if (one_rb == "Lag",
      FormulaIn << set text("Lag(<COLUMN>,1)");,
      one_rb == "Change",
      FormulaIn << set text("<COLUMN> - Lag(<COLUMN>,1)");,
      one_rb == "Shuffle",
      FormulaIn << set text("Col Stored Value(<COLUMN>, Col Shuffle())");,
      one_rb == "Date Dep",
      FormulaIn << set text("If( As Column( \!"Date\!" ) < Date DMY( 1, 1, 2016 )," ||
             "\!N\!t<COLUMN> / 10,\!N\!t<COLUMN>\!N)");,
      one_rb == "Cos Oscillation",
      FormulaIn << set text("cos(<COLUMN> * (2 * pi()) / Col Max( <COLUMN> ) )");,
      one_rb == "Sin Oscillation",
      FormulaIn << set text("sin(<COLUMN> * (2 * pi()) / Col Max( <COLUMN> ) )");,
      one_rb == "10 day t score",
      FormulaIn << set text("Lag( 
        (<COLUMN> - Mean(
       Lag( <COLUMN>, 1 ),
       Lag( <COLUMN>, 2 ),
       Lag( <COLUMN>, 3 ),
       Lag( <COLUMN>, 4 ),
       Lag( <COLUMN>, 5 ),
       Lag( <COLUMN>, 6 ),
       Lag( <COLUMN>, 7 ),
       Lag( <COLUMN>, 8 ),
       Lag( <COLUMN>, 9 ),
       Lag( <COLUMN>, 10 )
      ) ) / Std Dev(
       Lag( <COLUMN>, 1 ),
       Lag( <COLUMN>, 2 ),
       Lag( <COLUMN>, 3 ),
       Lag( <COLUMN>, 4 ),
       Lag( <COLUMN>, 5 ),
       Lag( <COLUMN>, 6 ),
       Lag( <COLUMN>, 7 ),
       Lag( <COLUMN>, 8 ),
       Lag( <COLUMN>, 9 ),
       Lag( <COLUMN>, 10 )
      ) ) )");,
      FormulaIn << set text("<COLUMN>");
      
      
      
     );
    ),
   ),
   
   //Formula edit box with instructions
   Spacer Box( Size( 6, 6 ) ),
   V List Box( Text Box( "FORMULA\!NCreate a new column in the data table and then copy/paste the formula from " ||
          "the formula editor.  Then use <COLUMN> up to 50 times to indicate where column names " ||
          "should be substituted. Reference other columns using As Column(\!"Column Name\!")." ),
   Spacer Box( Size( 12, 12 ) ), 
   V List Box( 
    FormulaIn = Text Edit Box(
     "Lag(<COLUMN>,1)",
     <<JUSTIFY text="">, <COLUMN2>, etc.
     
     //variable to hold text string to be replaced with column names
     ReplaceTarget = "<COLUMN>";
     
     //Get formula from text box
     FormulaInput = FormulaIn << Get Text;
     
     //get column description from text box
     DescInput = DescIn << Get Text;
     
     //output debug info
     if (debug == 1,Show( FormulaInput );Show( DescInput );Show( ColumnList ););
     
     //get number of selected columns
     n = N Items( ColumnList );
     
     //for each column
     For( i = 1, i <= n, i++,
     
      //get data type of column
      ColumnDataType = Column( ColumnList[i] ) << Get Data Type;
      
      //output debug info
      if (debug == 1,Show( columnList[i] );Show( ColumnDataType ););
      
      //create new variable for modified formula
      FormulaComplete = FormulaInput;
      
      //TODO: stop itterating when string no longer found or after a huge number of cycles
      
      //replace column reference for up to 50 occurances (change this for large formulas)
      For( j = 1, j <= 50, j++,
      
       //output debug info
       if (debug == 1,Show( FormulaComplete );Show( Contains( FormulaComplete, ReplaceTarget ) );
        Show( Length( ReplaceTarget ) ););
        
       //if the formula contains the target string
       If( Contains( FormulaComplete, ReplaceTarget ) > 0,
        
        //replace the first occurance of the target string
        FormulaComplete = Eval(
         Munger(
          FormulaComplete,
          Contains( FormulaComplete, ReplaceTarget ),
          Length( ReplaceTarget ),
          "As Column(\!"" || Char( ColumnList[i] ) || "\!")"
         )
        )
       ); //end if formula contains reference string
      ); //loop for each occurance of the reference string
      
      //output debug info
      if (debug == 1,Show( FormulaComplete ););
      
      //create string containing expression that will create the new column reference
      newColExpr = Expr(
       dt1 << New Column( Char( ColumnList[i] ) || Char( DescInput ),
        Expr( ColumnDataType ),
        Formula( Eval( Parse( FormulaComplete ) ) )
       )
      );
      
      //output debug info
      if (debug == 1,Show( Eval Expr( newColExpr ) ););
      
      //Try creating the new column reference
      Try( Eval( Eval Expr( newColExpr ) ) );
      
      //TODO: Check if new column was created and it has a formula, inform user
      
      //output debug info
      if( debug == 1, Show( "done" ););
      
     ); //loop each selected column
    ), //end of 'OK' command button
    
    //button to close the window
    Button Box( "Close/Cancel",
     Show( "Closed" );
     nw << Close Window;
    )
    
   ), //end of box to hold command buttons
   
   //spacer on bottom of window
   Spacer Box( Size( 12, 12 ) )
  ), //end of vertical box with all window content except left and right spacers
  
  //spacer in right side of window
  Spacer Box( Size( 12, 12 ) )
  
 ) //end of horizontal box for spacers on left and right side
 
); //end of window box</COLUMN></COLUMN2></JUSTIFY></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN></COLUMN>