793337_zh-CN

liliconcom

[JSL]使用“复杂”条件选择行

大家好，

我想编写一个 JSL 脚本来根据“复杂”条件选择表中的行：

我需要按优先级顺序为每个指标（列：指标）选择一行：

1- 如果条件 Flag1 = “FLAG” AND Flag2 = “FLAG” 存在，则选择此条件的 Col Max (:Metric1)

2- 如果条件 Flag1 = “FLAG” XOR Flag2 = “FLAG” 存在，则选择此条件的 Col Max (:Metric1)

3- 否则，选择行最大值（Metric1）

下面是使用 For Each Row() 和调试列的试验性代码，但我的尝试不起作用并且不太优雅。

另外，我不确定如何在不使用基本门组合的情况下在 JLS 中执行 XOR（排他或）。

有没有更好的方法来做到这一点？

注：附件是一张 PNG 图片，说明了我的请求

谢谢

- 传教士

Names Default To Here(1);

dt = New Table("RawData",
	Add Rows(27),
	Compress File When Saved(1),
	New Column("Metric",
		Character,
		"Nominal",
		Set Values(
			{"A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "C", "D", "D", "D", "D", "D", "D", "D"}
		)
	),
	New Column("Flag1",
		Character,
		"Nominal",
		Set Values(
			{"FLAG", "OK", "FLAG", "OK", "OK", "OK", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "FLAG",
			"FLAG", "OK", "OK", "OK", "FLAG", "OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column("Flag2",
		Character,
		"Nominal",
		Set Values(
			{"OK", "OK", "OK", "OK", "OK", "FLAG", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "OK",
			"OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column("metric1",
		Numeric,
		"Continuous",
		Format("Best", 10),
		Set Values([1, 2, 3, 5, 7, 10, 13, 2, 4, 5, 6, 8, 11, 1, 2, 4, 5, 5, 9, 12, 1, 2, 4, 5, 5, 9, 18])
	)
);


//This attempt doesn't select the right rows

debugcol = dt << New Column("Debug", Numeric, Continuous);

For Each Row(dt, 

	FLAG_row = 
		If(
			:Flag1 == "FLAG" & :Flag2 == "FLAG",
				Col Max(:metric1, :Metric),
			IF(
				:Flag1 == "FLAG" | :Flag2 == "FLAG",
					Col Max(:metric1, :Metric),
				If(
					:Flag1 == "OK" & :Flag2 == "OK",
						Col Max(:metric1, :Metric)
			)));
	debugcol[Row()] = FLAG_row;
);

dt << select where (:metric1 == :Debug);

 

基础数据分析与建模回复：[JSL]使用“复杂”条件选择行

以下是我如何做到这一点

Names Default To Here( 1 );

dt = New Table( "RawData",
	Add Rows( 27 ),
	Compress File When Saved( 1 ),
	New Column( "Metric",
		Character,
		"Nominal",
		Set Values(
			{"A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "C", "D", "D",
			"D", "D", "D", "D", "D"}
		)
	),
	New Column( "Flag1",
		Character,
		"Nominal",
		Set Values(
			{"FLAG", "OK", "FLAG", "OK", "OK", "OK", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "FLAG", "FLAG",
			"OK", "OK", "OK", "FLAG", "OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column( "Flag2",
		Character,
		"Nominal",
		Set Values(
			{"OK", "OK", "OK", "OK", "OK", "FLAG", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "OK", "OK", "OK",
			"OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column( "metric1",
		Numeric,
		"Continuous",
		Format( "Best", 10 ),
		Set Values( [1, 2, 3, 5, 7, 10, 13, 2, 4, 5, 6, 8, 11, 1, 2, 4, 5, 5, 9, 12, 1, 2, 4, 5, 5, 9, 12] )
	)
);

dt << clear select;
rowsToSelect = {};
groups = associative array(:metric<<GET values=""> 0,
		Insert Into( rowsToSelect, Max( theRows ) ),
		theRows = dt << get rows where( :metric == group & (:Flag1 == "FLAG" | :Flag2 == "FLAG") );
		If( N Rows( theRows ) > 0,
			Insert Into( rowsToSelect, Max( theRows ) ),
			Insert Into( rowsToSelect, Max( dt << get rows where( :metric == group ) ) )
		);
	);
);

dt << select rows( rowsToSelect );</GET>

回复：[JSL]使用“复杂”条件选择行

无需额外的列即可完成，但使用它们可能会更容易

Names Default To Here(1);

dt = New Table("RawData",
	Add Rows(27),
	Compress File When Saved(1),
	New Column("Metric",
		Character,
		"Nominal",
		Set Values(
			{"A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "C", "D", "D", "D", "D", "D", "D", "D"}
		)
	),
	New Column("Flag1",
		Character,
		"Nominal",
		Set Values(
			{"FLAG", "OK", "FLAG", "OK", "OK", "OK", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "FLAG", "FLAG", "OK", "OK", "OK", "FLAG",
			"OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column("Flag2",
		Character,
		"Nominal",
		Set Values(
			{"OK", "OK", "OK", "OK", "OK", "FLAG", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK",
			"OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column("metric1",
		Numeric,
		"Continuous",
		Format("Best", 10),
		Set Values([1, 2, 3, 5, 7, 10, 13, 2, 4, 5, 6, 8, 11, 1, 2, 4, 5, 5, 9, 12, 1, 2, 4, 5, 5, 9, 18])
	)
);

typecol = dt << New Column("ROWTYPE", Numeric, Continuous, Formula(
	If(:Flag1 == "FLAG" & :Flag2 == "FLAG",
		2
	, :Flag1 == "OK" & :Flag2 == "OK",
		0
	,
		1
	);	
));

dt << Select Where(
	:metric1 == Col Max(
		If(:ROWTYPE == Col Max(:ROWTYPE, :Metric),
			:metric1
		, 
			.
		),
		:Metric
	);
);

dt << Delete Columns(typecol);
wait(0);

此解决方案的一个问题是，它可能会在任何即将推出的 JMP 版本中失效，因为您不应该使用除列引用之外的任何其他东西来使用 Col 统计函数。这里有一个愿望清单项目，希望 JMP 不会破坏这些函数目前最有用的“功能”之一
在“设置每个值”中使用公式表达式并在 Col 统计公式中使用表达式作为第一个参数支持的行为（我试图越来越少地使用这些函数，但是这很困难，因为它们目前非常强大并且它们确实比其他选项更容易创建更快更容易阅读的脚本）。

回复：[JSL]使用“复杂”条件选择行

嗨吉姆，

谢谢你的回复，

非常抱歉，我意识到我的请求不太清楚。

在对每个指标中的行组进行优先级排序之后（这与您的脚本配合得很好），

我需要选择最高值的行（Column：metric1），而不是像当前脚本那样基于Max （theRows）。

我之前提供的虚拟表增加了混乱，因为每个组内的“Col Max（：metric1）”始终等于“Max（theRows）”。

您建议的脚本在使用新值集时不再起作用。下面我将 :metric1 替换为 :Value 以消除列名称歧义，此外我还重新调整了数值。

我尝试在“get rows where()”中添加“Col Max()”作为规则，但没有成功。

（我意识到我的英语并不完美，所以我添加了一张图片来描述我的目标，如果我的措辞不够精确的话）

你有什么建议吗？

再次感谢

牧师

Names Default To Here( 1 );

dt = New Table( "RawData",
	Add Rows( 27 ),
	Compress File When Saved( 1 ),
	New Column( "Metric",
		Character,
		"Nominal",
		Set Values(
			{"A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "B", "C", "C", "C", "C", "C", "C", "C", "D", "D",
			"D", "D", "D", "D", "D"}
		)
	),
	New Column( "Flag1",
		Character,
		"Nominal",
		Set Values(
			{"FLAG", "OK", "FLAG", "OK", "OK", "OK", "OK", "FLAG", "FLAG", "OK", "OK", "FLAG", "OK", "OK", "FLAG", "FLAG",
			"OK", "OK", "OK", "FLAG", "OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column( "Flag2",
		Character,
		"Nominal",
		Set Values(
			{"OK", "OK", "OK", "OK", "OK", "FLAG", "OK", "FLAG", "FLAG", "FLAG", "OK", "FLAG", "OK", "OK", "OK", "OK", "OK",
			"OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK", "OK"}
		)
	),
	New Column( "Value",
		Numeric,
		"Continuous",
		Format( "Best", 10 ),
		Set Values( [1, 2, 9, 5, 13, 2, 7, 9, 4, 11, 6, 8, 3, 1, 2, 13, 5, 5, 9, 12, 1, 2, 4, 5, 5, 9, 7] )
	)
);

dt << clear select;
rowsToSelect = {};
groups = associative array(:metric<<GET values=""> 0,
		Insert Into( rowsToSelect, Max( theRows ) ),
		theRows = dt << get rows where( :metric == group & (:Flag1 == "FLAG" | :Flag2 == "FLAG") /*& :Value == Col Max (:Value, :Metric, :Flag1, :Flag2)*/ );
		show (theRows);
		If( N Rows( theRows ) > 0,
			Insert Into( rowsToSelect, Max( theRows ) ),
			Insert Into( rowsToSelect, Max( dt << get rows where( :metric == group /*& :Value == Col Max (:Value, :Metric, :Flag1, :Flag2)*/) ) );
			show (theRows);
		);
	);
);

dt << select rows( rowsToSelect );</GET>

回复：[JSL]使用“复杂”条件选择行

雅尔莫,

多谢，

您提出的解决方案在我的主脚本中有效！

尽管您提到 JMP 的未来版本可能会破坏这种 Col 功能安排。

我们公司每年都会将 JMP 版本升级到最新版本。

我现在将使用您的脚本，并将尝试获得 Jim (txnelson) 的帮助以使他的建议发挥作用，这样我的代码将更加健壮。

再次感谢！！

牧师

回复：[JSL]使用“复杂”条件选择行

我们不知道 JMP 是否会改变行为。JMP 认为这是非预期行为，这意味着它随时可能在没有任何信息的情况下发生变化。如果您还没有，请对愿望清单项表示赞赏，将其更改为功能而不是非预期行为（ 使在“设置每个值”中使用公式表达式和在 Col 统计公式中使用表达式作为第一个参数支持行为）

回复：[JSL]使用“复杂”条件选择行

我刚才

谢谢:)