462295_zh-TW

liliconcom

按另一列中的值列表對列進行分組？

我正在努力按名稱將數千列組合在一起，該名稱與初始列中的值列表中的某些內容相匹配

 

例子：

Col1 值 = {step1, step2, step3}

Col2：5000 個名稱：step1_blahblahblah、step2_blahblbahblah 等

 

我想我不太確定如何定義 if(contain) 語句使用 Col1 中的值列表。

 

dt = current data table();
Summarize( dt, StepIDIndex= by( :RecipeStepId) );//get list of unique RecipeStepID's
colNamesList = dt << get column names(string, continuous);  //get all the column names
StepList = {}; //Create an empty list for the matching columns

// Find matching column names
For( i = 1, i <= N Items( colNamesList ), i++,
 If( 
  contains( colNamesList[i], StepIDIndex),
  Insert Into( StepList , colNamesList[i] )
 )
);

// If groups of columns are found, create col groupings
If( N Items( StepList ) > 0,
 dt<< select columns( StepList );
 dt<< group columns();
);

 

 

腳本回复：按另一列中的值列表對列進行分組？

如果您的列名（？）始終具有 step1_something 格式，您可以使用 Word 將步驟與字符串的其餘部分分開，以使比較更容易。 下面是我認為你想做的一個例子（由於 For Each 需要 JMP16）：

Names Default To Here(1);

dt = New Table("Untitled",
 Add Rows(3),
 Set Header Height(44),
 New Column("Col1", Character, "Nominal", Set Values({"step1", "step2", "step3"})),
 New Column("step1_a", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .])),
 New Column("step1_b", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .])),
 New Column("step1_c", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .])),
 New Column("step2_a", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .])),
 New Column("step2_b", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .]))
);

Summarize(dt, uniq_vals = by(:col1)); 
col_list = dt << get column names(string, continuous);

//initialize col group collector associative array
col_groups = Repeat({{}}, N Items(uniq_vals));

For Each({col_name}, col_list,
 found_idx = Contains(uniq_vals, Word(1, col_name, "_"));
 If(found_idx,
  Insert Into(col_groups[found_idx], col_name);
 );
);

For Each({col_group, idx}, uniq_vals,
 If(N Items(col_groups[idx]) > 0,
  Eval(EvalExpr(dt << Group Columns(col_group, Expr(col_groups[idx]))));
 );
);