How to use JSL to set the color gradient of a column in text format by the value of a numeric column?

[#1]

For example, the name column of Big Class.jmp automatically sets the color gradient of the name based on the value of the height column
It is required to be done in script.

Thanks!

[#2]

Here is the only way I know how to do it

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
a = {1, 3, 5};
b = {2, 4, 6};
:height << color cells( {{"Red", a}, {"blue", b}} );
theScript = Char( :height << get script );
theScript = Substr( theScript, Contains( theScript, "Color Cells" ) );
theScript = ":Name<<" || Substr(
	theScript,
	1,
	Contains( theScript, "Set Value" ) - 3
);
Eval( Parse( theScript ) );

[#3]

Thank Jim!

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
m= 4 ;Column(m)<<set property("Color Gradient",{"Green to White to Red",Range({col min(Column(m)),col max(Column(m)),col mean(Column(m))})})<<Color Cell by Value;

//？？
theScript = Char( :height << get script );
theScript = Substr( theScript, Contains( theScript, "Color Cells" ) );
theScript = ":Name<<" || Substr(
	theScript,
	1,
	Contains( theScript, "Set Value" ) - 3
);
Eval( Parse( theScript ) );

[#4]

I do not have a solution for a gradient color pattern.  

[#5]

Thank Jim!

How do I get the fill color of a cell using JSL?

[#6]

One place where you could get the color is from report html. You will have to perform conversion though

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
m = 4;
Eval(EvalExpr(
	Column(dt, m) << set property(
		"Color Gradient",
		{"Green to White to Red", Range({Expr(Col Min(Column(m))), Expr(Col Max(Column(m))), Expr(Col Mean(Column(m)))})}
	) << Color Cell by Value;	
));

(dt << get as report) << get html;

[#7]

• Complex I will not operate, can use the script to achieve?

Thanks Experts!

[#8]

Also depending on how the gradient is created, you could maybe use Value Colors instead of Gradient column property. Then you can get the colors from column properties.

[#9]

txt = dt << get as report;
txt << Save HTML( "c:\tt.html" );
u = "c:\tt.html";
For( k = 0, k <= 60, k++,
	Try( d1 = Open( u, HTML Table( k, Column Names( 1 ), Data Starts( 2 ) ) ) );
	Wait( 0 );
);

[#10]

Ask experts how to use RE to get these content?

How do I set the color in the name column after I get this?

Thanks!