topic Re: JSL Row Color in Discussions

JSL Row Color

Dennisbur — Thu, 08 Jun 2023 16:40:50 GMT

Hello

I have written the script in JSL, and the last point is to color row by SOFT_BIN

IF SOFT_BIN = 1 OR 2 >> Color all rows in Green

OTHER rows >> Color in Red

And the second question is,

It's not exactly Red or Green color

I have attached the print screen where I chose the colors,

but how I can know the index of this color and use the shade of color it in the script?

Re: JSL Row Color

jthi — Thu, 26 Jan 2023 15:52:46 GMT

There are quite a few different options, but one quick one is to color the rows by selecting some of the rows and right clicking on row number

Then select the color you are interested in. If you have JMP16+ and Enhanced Log enabled you can find the color there

// Set selected rows' colors
Data Table("Big Class") << Clear Select << Select Rows([1, 2]) <<
Colors("Light YellowGreen");

You could also set the same color as Value Colors column property and get it from enhanced log OR by copying column properties

Add Column Properties(
	Set Property("Notes", "Explore data adventurously"),
	Set Property("Value Colors", {"F" = 76, "M" = -4354269})
)

This can also be helpful Scripting Guide > Data Tables > Work with Rows > Row States (see Colors and Markers part) and Mark's

Re: JSL Row Color

Dennisbur — Thu, 26 Jan 2023 17:01:06 GMT

Thank you for your assistance

Actually, this is a perfect way for what I wanted to do.

But I want to color all rows as I have shown in the first print screen

Can you tell me how I can do it by script?

Data Table("BIN PARETO") << Select Rows << Select where (:"SOFT_BIN" < 3) << Colors("Light YellowGreen");
Data Table("BIN PARETO") << Select Rows << Select where (:"SOFT_BIN" > 2) << Colors("Light Red");

Re: JSL Row Color

jthi — Fri, 27 Jan 2023 05:27:40 GMT

Coloring cells seems to be bit more work as you might have to loop over all columns, but this should work

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");

m_rows = dt << Get Rows Where(:sex == "M");
f_rows = dt << Get Rows Where(:sex == "F");

For Each({col}, dt << Get Column Names("String"),
	Column(dt, col) << Color Cells({{"Orange", m_rows}, {"Blue", f_rows}});
);