682688_zh-CN

liliconcom

过滤多列中出现频率最高的值

大家好，

 

我的目标是仅选择每列中具有最常见值（字符类型）的行。

 

例如，我的表有四列：A、B、C 和 D。 A、B、C 和 D 列中出现最多的值分别是 A1、B2、C3 和 D4。 如何编写 JSL 代码来按这些值过滤行并使用过滤后的数据创建一个新表？ 谢谢。

 

谢谢

数据混合和清理视窗回复：过滤多列中出现频率最高的值

如果你有这样的数据，其中（COL -> 大多数出现）是 A -> A1、B -> B2、C -> C1（实际上 C 有平局，这些应该如何处理？）

您是否希望只保留 row1，因为它有 A1、B2 和 C1？ 如果有更多行具有相同的值，您想保留它们吗？ 或者您正在寻找完全不同的东西，例如您想要一个只包含出现次数最多的值的表吗？

回复：过滤多列中出现频率最高的值

这是一个可以帮助您解决问题的脚本

Names Default To Here( 1 );

// build an example data table
dt = New Table( "Example",
 add rows( 20 ),
 New Column( "A",
  character,
  formula(
   rand = Random Uniform( 0, 100 );
   If(
    rand >= 0 & rand <= 40, x = 1,
    rand >= 40 & rand <= 60, x = 2,
    rand >= 60 & rand <= 80, x = 3,
    x = 4
   );
   "A" || Char( x );
  )
 ),
 New Column( "B",
  character,
  formula(
   rand = Random Uniform( 0, 100 );
   If(
    rand >= 0 & rand <= 20, x = 1,
    rand >= 20 & rand <= 60, x = 2,
    rand >= 60 & rand <= 80, x = 3,
    x = 4
   );
   "B" || Char( x );
  )
 ),
 New Column( "C",
  character,
  formula(
   rand = Random Uniform( 0, 100 );
   If(
    rand >= 0 & rand <= 20, x = 1,
    rand >= 20 & rand <= 40, x = 2,
    rand >= 40 & rand <= 80, x = 3,
    x = 4
   );
   "C" || Char( x );
  )
 ),
 New Column( "D",
  character,
  formula(
   rand = Random Uniform( 0, 100 );
   If(
    rand >= 0 & rand <= 20, x = 1,
    rand >= 20 & rand <= 40, x = 2,
    rand >= 40 & rand <= 60, x = 3,
    x = 4
   );
   "D" || Char( x );
  )
 )
);


// The JSL below is the code that does the actual work
Data Table( "Example" ) << Stack(
 columns( :A, :B, :C, :D</img> ),
 Source Label Column( "Column" ),
 Stacked Data Column( "Data" ),
 Output Table( "Stacked" )
);

dtS = Data Table( "Stacked" ) << Summary(
 Group( :Column, :Data ),
 Freq( "None" ),
 Weight( "None" ),
 output table name( "Summary" )
);

dtS << select where( :N Rows[Row()] == col max(:N Rows, :Data));
dtS << new column("Mode", formula(
 Col Max(:N Rows, :Column)
));
dtS << select where( :N Rows == :Mode);
dtS << invert row selection << delete rows;

eval(parse(
"dt << Select Where (dt:\!"" || dts:column[1]  || "\!"n == dtS:Data[1] );"));

For( i=2,i<=NRows(dtS), i++,
 eval(parse(
 "dt << Select Where (dt:\!"" || dts:column[i]  || "\!"n == dtS:Data[i] , current selection(\!"extend\!"));"));
);

dtFinal = dt << Subset( selected columns(0), selected rows(1), output table("Final"));