62140_de-DE

liliconcom

Wählen und löschen Sie eine Spalte, in der alle Zeilen denselben Wert haben

Hi,

 

Arbeiten an einem geerbten Skript, das eine ziemlich große Datentabelle ausgibt. Eine große Anzahl der Spalten wird in jeder Zeile denselben Wert haben. Zum Beispiel wird :Fred alle Zeilen =1 haben, während :lucy alle Zeilen = "gestern" haben wird. Diese Spalten sind für die weitere Analyse nicht nützlich, daher möchte ich sie löschen oder ausblenden.

 

Wem würde ich das schreiben? Ich möchte jede Spalte überprüfen, um zu sehen, ob alle Werte gleich sind, und sie gegebenenfalls löschen. Wenn einige der Zeilen leer sind, aber andere Zeilen alle denselben Wert enthalten, sollte die Spalte beibehalten werden.

 

Irgendwelche Ansatzpunkte?

Betreff: Spalte auswählen und löschen, in der alle Zeilen denselben Wert habenIch danke Ihnen sehr. Funktioniert wie ein Weltmeister.
AndyBetreff: Spalte auswählen und löschen, in der alle Zeilen denselben Wert haben

Ich würde die Funktion Summarize() verwenden.Hier ist ein kleines Beispiel, wie das geht:

Names Default To Here( 1 );
dt = New Table( "Sample",
 Add Rows( 18 ),
 New Column("name",Character,
  "Nominal",
  Set Values(
   {"KATIE", "LOUISE", "JANE", "JACLYN", "LILLIE", "BARBARA", "ALICE", "SUSAN",
   "JUDY", "ELIZABETH", "LESLIE", "CAROL", "PATTY", "MARY", "AMY", "MARTHA",
   "MARION", "LINDA"}
  )
 ),
 New Column( "age" ,Numeric,
  "Ordinal",
  Format( "Fixed Dec", 5, 0 ),
  Set Values(
   [12, 12, 12, 12, 12, ., 13, 13, 14, 14, 14, 14, 14, 15, 15, 16, 16, 17]
  )
 ),
 New Column( "sex" ,Character( 1 ),
  "Nominal",
  Set Values(
   {"F", "F", "", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F",
   "F", "F", "F"}
  )
 ),
 New Column(
  "height",
  Numeric,
  "Continuous",
  Format( "Fixed Dec", 5, 0 ),
  Set Values(
   [59, ., 55, 66, 52, 60, 61, 56, 61, 62, 65, 63, 62, 62, 64, 65, 60, 62]
  )
 ),
 New Column("weight",
  Numeric,
  "Continuous",
  Format( "Fixed Dec", 5, 0 ),
  Set Values(
   [95, 123, 74, 145, 64, 112, 107, 67, 81, 91, 142, 84, 85, 92, 112, 112, 115,
   116]
  )
 ),
 New Column( "allthesame",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] )
 ),
 New Column( "allcharthesame",
  Character,
  "Nominal",
  Set Selected,
  Set Values(
   {"zippy", "zippy", "zippy", "zippy", "zippy", "zippy", "zippy", "zippy",
   "zippy", "zippy", "zippy", "zippy", "zippy", "zippy", "zippy", "zippy",
   "zippy", "zippy"}
  )
 ),
 Set Row States( [1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0] ),
 Set Label Columns( :name )
);

colNamesList = dt << get column names( String );
colsToDeleteList = {};
For( i = 1, i <= N Items( colNamesList ), i++,
 Summarize( dt, bygroup = by( colNamesList[i] ) );
 If( N Items( bygroup ) == 1 | (N Items( bygroup ) == 2 & bygroup[1] == ""),
  Insert Into( colsToDeleteList, colNamesList[i] )
 );
);
Show( colsToDeleteList );