693151_es-ES

liliconcom

Celdas de color

Hola,

 

¿Cómo puedo atenuar celdas vacías o con puntos?

Tengo la versión 16.1.

Gracias

Acceso a los datosRe: Color de celdas

Si por atenuar te refieres a cambiar el color de la celda, las opciones más sencillas probablemente estén basadas en secuencias de comandos. Una opción es usar << Obtener filas Dónde obtener las filas que desea colorear y luego usar << Color Cells para establecer el color de esas filas

Names Default To Here(1);

dt = Current Data Table();

For Each({colname}, dt << Get Column Names("String"),
 rows_to_color = dt << Get Rows Where(Is Missing(Column(dt, colname)[]));
 Column(dt, colname) << Color Cells("Gray", rows_to_color);
 dt << Clear Select;
);

 

Re: Color de celdas

Si desea que se haga en cada columna, puede utilizar este script.

For Each( {col}, dt << Get Column Names( "String" ),
 Eval(
  Eval Expr(
   dt << Select Where( Is Missing( As Column( Expr( col ) ) ) );
   Expr( Column( col ) ) << Color Cells( "gray" );
   dt << Clear Select;
  )
 )
);

*editar

El Expr() y todo eso son completamente innecesarios.@jthi lo señaló con su ejemplo.

For Each( {col}, dt << Get Column Names( "String" ),
 dt << Select Where( Is Missing( As Column( col ) ) );
 Column( col ) << Color Cells( "gray" );
 dt << Clear Select;
);

 

Re: Color de celdas

@mmarchandTSI Es posible que también desee agregar una verificación de que algunas filas estén seleccionadas (<< Color Cells, de lo contrario, coloreará todas las celdas).

Names Default To Here(1);

dt = New Table("Untitled",
 Add Rows(3),
 Compress File When Saved(1),
 New Column("Column 1", Numeric, "Continuous", Format("Best", 12), Set Values([., ., 1])),
 New Column("Column 2", Numeric, "Continuous", Format("Best", 12), Set Values([., ., .])),
 New Column("Column 3", Numeric, "Continuous", Format("Best", 12), Set Values([2, 3, 4]))
);

For Each({col}, dt << Get Column Names("String"),
 dt << Select Where(Is Missing(As Column(col)));
 Column(col) << Color Cells("gray");
 dt << Clear Select;
);
/*
For Each({col}, dt << Get Column Names("String"),
 dt << Select Where(Is Missing(As Column(col)));
 If(N Items(dt << Get Selected Rows) > 0,
  Column(col) << Color Cells("gray");
 );
 dt << Clear Select;
);
*/

Re: Color de celdas

Debería estar bien, porque <

dt << Select Where( Is Missing( As Column( col ) ), current selection( "clear" ) )

Re: Color de celdas

Hola jarmo,

 

¿Dónde puedo agregar esta opción? Lo siento, soy nuevo en el uso del software JMP.

Re: Color de celdas

Lo que quise decir es que si no hay ninguna fila seleccionada, todas las celdas de esa columna se colorearán.

 

En este caso, todas las celdas de Edad se colorearán porque no hay filas seleccionadas.

Names Default To Here(1);

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

:Age << Color Cells("Red");
wait(1);

dt << Select Rows([2,4,6,20]);
:Name << Color Cells("Blue");
dt << Clear Select;

 

Re: Color de celdas

Sí, buen punto.

Re: Color de celdas

Dependiendo de cómo se utilizará, hay pocas opciones. La opción más sencilla y lo que le ayudará a empezar es abrir un nuevo archivo de script desde el menú Archivo.

Luego copie y pegue el script en esa ventana que se abrirá

Verifique que tenga la tabla correcta en la "barra de herramientas" superior (debería tenerla si estuvo activa por última vez cuando abrió el nuevo archivo de script).

Luego presione Ejecutar script en la barra de herramientas

 

Si esto debe hacerse repetidamente, puede convertir ese script en un elemento de la barra de herramientas, complemento, script de tabla, archivo de script... dependiendo del uso.

 

Re: Color de celdas

¡Perfecto! Gracias por su ayuda. Realmente lo aprecio.