343851_de-DE

liliconcom

Transformieren Sie mehrere Spalten mit JSL

Hallo JSL-Gurus,

Gibt es eine einfache Möglichkeit, eine Spaltenliste in JSL mit derselben Transformationsformel zu transformieren?

Ich versuche, ähnliche Funktionen wie beispielsweise in einer Tabelle zu erhalten, in der ich mehrere Spalten und aus dem Rechtsklickmenü auswählen kann:

Neue Formelspalte -> Transformieren -> Absoluter Wert

Wenn dies ohne eine For-Schleife möglich ist, ist dies hilfreich.

Schätzen Sie alle Hinweise.

Vielen Dank.

SkripterstellungBetreff: Transformieren Sie mehrere Spalten mit JSL

Groß! Vielen Dank für eure Hilfe und prompten Antworten.

Betreff: Transformieren Sie mehrere Spalten mit JSL

Hier ist ein Beispiel, das Ihnen den Einstieg erleichtern könnte:

 

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>

Betreff: Transformieren Sie mehrere Spalten mit JSL

Vielen Dank. Dies ist ein großartiges Dienstprogramm.

Wenn Sie für das, was ich oben beschrieben habe, etwas Einfacheres haben, das ich in andere Skripte einbetten kann, ist dies für die Liste der Spaltennamen nützlich, die ich in anderen Teilen meines Skripts generiert habe. Wenn nicht, kann ich Teile/Konzepte in Ihrem Code analysieren und verwenden, um dies zu tun.

Betreff: Transformieren Sie mehrere Spalten mit JSL

Möglicherweise erhalten Sie viele Antworten auf Möglichkeiten, dies mit vorhandenen Tools in JMP zu tun, aber ich verwende immer noch das folgende Skript, das von einem Menüelement in einer Tabelle ausgeführt wird.Wählen Sie Spalten in einer Tabelle aus, führen Sie das Skript aus, schreiben Sie eine Formel, die auf diese ersten Spalten verweist, und dann wird jede ausgewählte Spalte transformiert.

 

Skript:

 

Mehr sehen...

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>