En mi búsqueda de extraterrestres en BigClass, hoy quiero generar un diagrama de mapa de calor para mostrar a los extraterrestres de un vistazo.
La idea: colorear a los estudiantes no alienígenas de verde y a los alienígenas de rojo.
Pero con varios no alienígenas en el mismo grupo de edad, el rojo alienígena es apenas visible:
Siguiente idea:
Aumentemos la transparencia para los no extraterrestres, de modo que los grupos de edad con extraterrestres dentro se vean bien.
Expulsé esas células para que se pusieran rojas (con un toque verdoso), pero son bastante verdes, no rojas.
Parece que la transparencia no se trata por separado para diferentes colores, pero mezclado también y luego se aplica al color mezclado.
Entonces, 5% verde + 100% rojo da
último intento:
cambie el tipo de datos y use Estadísticas de resumen máximas:
A veces es más fácil cambiar de carácter a números, si desea agregar, como aquí.
Pero la agregación de valores de caracteres también tiene cierto potencial:
Resumen y tabulación: agregue la opción de agregación para las columnas de caracteres
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << New Column( "alien", Character,nominal, set each value( "-" ) );
dt << add rows( {name = "XX", alien = "alien", sex = "M", age = 15} );
dt << add rows( {name = "YZ", alien = "alien", sex = "F", age = 12} );
dt << add rows( {name = "KR", alien = "alien", sex = "F", age = 17} );
// first attempt
dt << Graph Builder(
Variables( X( :sex ), Y( :age ), Color( :alien ) ),
Elements( Heatmap( X, Y, Legend( 10 ) ) ),
SendToReport(
Dispatch({},"400",ScaleBox,
{Legend Model( 10, Properties( 0, {Fill Color( 36 )}, Item ID( "-", 1 ) ) )}
)
)
);
// second attempt: increase transparency for non-aliens
dt << Graph Builder(
Variables( X( :sex ), Y( :age ), Color( :alien ) ),
Elements( Heatmap( X, Y, Legend( 10 ) ) ),
SendToReport(
Dispatch(
{},
"400",
ScaleBox,
{Legend Model( 10, Properties( 0, {Fill Color( 36 ), Transparency( 0.05 )}, Item ID( "-", 1 ) ) )}
)
)
);
// 3rd attempt: aggregate
Graph Builder(
Variables(
X( :sex ),
Y( :age ),
Color( :alien_num, Summary Statistic( "Max" ) )
),
Elements( Heatmap( X, Y, Legend( 10 ) ) ),
SendToReport(
Dispatch(
{},
"400",
ScaleBox,
{Legend Model(
10,
Properties( 0, {Fill Color( 36 )}, Item ID( "0", 1 ) )
)}
)
)
)
