749264_zh-TW

liliconcom

如何取得列中彩色儲存格的行號並在新建立的列中為其指派標籤（例如「1」）？

我使用 Color Out of Spec Values() 來處理測量資料中顏色規格失敗的情況。我有多個包含測量數據的列，並且每列的超出規格值根據每個參數列的規格進行著色。

對於每個參數列，我想建立一個相鄰列，當儲存格顏色為「0」時，該列會指派「1」。

如何透過 JSL 實現這一點？

自動化和腳本編寫視窗回覆：如何取得列中彩色儲存格的行號並在新建立的列中為其指派標籤（例如「1」）？

這讓您了解如何處理一列的情況

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
a = {1, 3, 5};
b = {2, 4, 6};
c = {7, 8, 9};

:height << color cells({{"Red", a}, {"blue", b}, {"yellow", c}});
:weight << color cells({{"Red", a}});
:age << color cells({{"Red", a}, {"blue", b}});


get_colored_cells = Function({dt, colname}, {Default Local},
	colscript = Column(dt, colname) << Get Script;
	l = Substitute(Name Expr(colscript), Expr(New Column()), List());
	colored_cells = {};
	Try(
		colors = l["Color Cells"];
		If(Type(colors[1]) == "List",
			jmptrickery = 1;
		,
			jmptrickery = 0;
		);
		For Each({color}, colors,
			If(jmptrickery,
				Insert Into(colored_cells, color[2]);
			,
				Insert Into(colored_cells, color);
			);
		);
	);
	return(Matrix(colored_cells));
);

colname = "age";
// for single column
rows = J(1, N Rows(dt), 0);
colored_rows = get_colored_cells(dt, colname);
rows[colored_rows] = 1;
dt << New Column("result", Numeric, Nominal, Values(rows));

然後，您可以建立額外的列，以便在循環遍歷它們時為每個列著色