¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Por ejemplo, la columna de nombre de Big Class.jmp establece automáticamente el degradado de color del nombre según el valor de la columna de altura.
Es necesario hacerlo en guión.
¡Gracias!
Automatización y secuencias de comandosRe: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Esta es la única forma que sé de hacerlo.
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 ) );
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?¡Gracias Jim!
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
m= 4 ;Column(m)<<SET property=""></SET>
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?No tengo una solución para un patrón de color degradado.
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?¡Gracias Jim!
¿Cómo obtengo el color de relleno de una celda usando JSL?
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Un lugar donde puede obtener el color es en el informe html. Aunque tendrás que realizar la conversión.
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;
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?¡Gracias expertos!
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?También dependiendo de cómo se crea el degradado, tal vez podrías usar Value Colors en lugar de Propiedad de columna de degradado. Luego puede obtener los colores de las propiedades de la columna.
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?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 );
);
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Pregunte a los expertos cómo utilizar RE para obtener este contenido.
¿Cómo configuro el color en la columna de nombre después de recibir esto?
¡Gracias!
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?EmEditor
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Se hacen muchas suposiciones en este script y definitivamente no es sólido.
and drop first row (headers)
l = Words(Regex(str, ""), "\!N");
Remove From(l, 1,2);
Remove From(l, N Items(l));
// Get bgcolors
colors = {};
For Each({line}, l,
str = Regex(line, "bgcolor=#(.*?)>", "\1");
Insert Into(colors, str);
);
// Convert colors
// Option 1 (might work?)
jmp_colors = Transform Each({color}, colors, Hex To Number(color) * -1);
// Option 2
jmp_colors2 = Transform Each({color}, colors,
r = Hex To Number(Left(color, 2));
g = Hex To Number(Substr(color, 3, 2));
b = Hex To Number(Right(color, 2));
RGB Color({r,g,b});
);
// Set colors
// One row at the time
For Each Row(
:name << Color Cells(jmp_colors[Row()], Row());
);
// Or create list of lists and use that
color_list = Transform Each({jmp_color, idx}, jmp_colors2,
Eval List({jmp_color, idx});
);
Eval(EvalExpr(:age << Color Cells(Expr(color_list))));Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
m = 4;
Eval(
Eval Expr(
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(1);
)
);
// Lots of assumptions made in this solution
str = (dt << get as report) << get html;
// get just Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?¿no tendrá ningún efecto?
l = Words(Regex(str, ""), "\!N");
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Usé la oración JSL no lo hizo bien, por alguna razón, JMP 17
¡Gracias!
str = (dt << get as report) << get html;
// get just and drop first row (headers)
l = Words(Regex(str, ""), "\!N");
Remove From(l, 1,2);
Remove From(l, N Items(l));
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Tu patrón de expresiones regulares es incorrecto
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?
Eval(EvalExpr(:age << Color Cells(Expr(color_list))));
¿Cómo modifico este JSL para que sea un bucle?
¡Gracias por su ayuda!
For( j = 1, j <= N Row( dt ), j++,
dt[j, "age"] << color_list( {j} )//?
);
Re: ¿Cómo utilizar JSL para establecer el degradado de color de una columna en formato de texto según el valor de una columna numérica?Puedes obtener la idea de Transformar cada uno que usé o usar el otro método con Para cada fila
