topic Re: Coloring selective cells in Discussions

Coloring selective cells

kayne — Mon, 04 Apr 2016 07:10:38 GMT

Hi there, how do I color the cells red for values that are lower than the limits? Thanks.

dt = New Table( "Marks",

Add Rows( 2 ),

New Column( "Name", Character, Nominal, Set Values( {"Peter", "Leslie"} ) ),

New Column( "Limits",

Numeric,

Continuous,

Format( "Best", 12 ),

Set Values( [20, 30] )

New Column( "Column 1",

Numeric,

Continuous,

Format( "Best", 12 ),

Set Values( [10, 15] )

New Column( "Column 2",

Numeric,

Continuous,

Format( "Best", 12 ),

Set Values( [30, 40] )

New Column( "Column 3",

Numeric,

Continuous,

Format( "Best", 12 ),

Set Values( [20, 55] )

New Column( "Column 4",

Numeric,

Continuous,

Format( "Best", 12 ),

Set Values( [53, 24] )

Set Row States( [0, 1] )

)

fail = dt << Get Rows Where( :Column 1 < :Limits );

:Column 1 << color cells(Red, fail);

Re: Coloring selective cells

ms — Mon, 04 Apr 2016 10:25:56 GMT

The syntax looks right and you're code works well for me in JMP 12 (if inserting a semicolon between New Table(...) and fail ).

Re: Coloring selective cells

kayne — Mon, 04 Apr 2016 23:52:06 GMT

Thanks MS, but the syntax works only on column 1. Are there any ways to make it work for all the columns? My example has only 4 columns but in practice, I'm actually having 200+ so I'm trying to figure out if there are any ways to do that.

Re: Coloring selective cells

txnelson — Tue, 05 Apr 2016 02:09:52 GMT

If you change your last 2 lines to:

for(i=2,i<=N Cols(dt),i++,

fail = dt << Get Rows Where( as column(column(dt,i)) < :Limits );

column(dt,i) << color cells(Red, fail);

);

your columns will be changed

Re: Coloring selective cells

kayne — Tue, 05 Apr 2016 02:36:54 GMT

Thanks Jim! That seems to work fine!

Re: Coloring selective cells

ram — Sat, 08 Jul 2017 15:36:36 GMT

HI Jim,
is it possible to apply color gradient to a column for selected rows only?

Re: Coloring selective cells

Mark_Bailey — Sat, 08 Jul 2017 16:45:11 GMT

First add a Value Colors column property, then use the Color Cell by Value( 1 ) message to apply the colors. You can use a gradient as the color theme for the column property.

See Help > Scripting Index, then select Data Table object > Column Scripting protocol and finally select Color Cell by Value message.

Re: Coloring selective cells

Mark_Bailey — Sat, 08 Jul 2017 16:52:12 GMT

Actually, I am not sure about the 'selected rows only' requirement. You might have to compute the associated color value and apply it to specific rows without the value color property.

Re: Coloring selective cells

txnelson — Sat, 08 Jul 2017 17:31:58 GMT

The color gradient does not honor excluded rows, so the best method that I found(a bit of a kluge) is below. I colors all of the cells, and then comes back and changes to cell color for those colors you want to be changed back. But it does it by placing a cell color on top of the gradient color.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA\Big Class.jmp" );
dt:height << Set Property( "Color Gradient", {"Blue to Gray to Red"} );
dt:height << Color Cell by Value;
colorlist = As List( dt << get rows where( :sex == "F" ) );
dt:height << color cells( "White", colorlist );

Re: Coloring selective cells

ENTHU — Mon, 05 Nov 2018 20:23:23 GMT

Hi,
I am also trying to color cells with a slight variation.
I have a row in .csv which is colored yellow.But after importing the color vanishes.

So trying to color that row in jsl using following code.But doesnt seem to work -
dinout << Select Rows( [40] );
<<color cells(Yellow);

Any inputs ?

thanks

Re: Coloring selective cells

pmroz — Mon, 05 Nov 2018 21:37:28 GMT

You have to color by column. This code will do the trick. The color "73" is a bit lighter than "Yellow"

for (i = 1, i <= ncols(dinout), i++,
	column(dinout, i) << Color Cells( {73, {40}} );
);