/*
After save dt into Journal, the cell color from data data table was changed into the font color in the journal
*/
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Color by Column( :age);
Wait( 0 );
dt << Color Rows by Row State;
dt<<SAVE></SAVE>
Quelle version de JMP possédez-vous ?Avez-vous utilisé ce script ou un script modifié ? En cas de modification, veuillez joindre.
Le message du tableau dt << Colorer les lignes par état de ligne() semble être une déclaration de « vue ». La vue du tableau est modifiée, mais l'enregistrement du tableau et son ouverture ou sa journalisation ne conserve pas les cellules colorées.La journalisation de ce tableau créera un rapport dans le journal avec les couleurs de police du tableau correspondant aux couleurs de l'état des lignes.
Cependant, col << Cellules de couleur (clr, lignes) est un message en colonne. Ce message est stocké dans les attributs de la colonne du tableau. De plus, lors de la journalisation, la couleur des cellules est conservée.
Ci-dessous, le script et le résultat sont affichés ci-dessous. Notez qu'une autre méthode (peut-être plus directe) consisterait à obtenir les clés uniques pour chaque groupe (âge), à obtenir les lignes pour chaque âge, puis à choisir une couleur et à l'appliquer à ces lignes de chaque colonne.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << Color by Column( :age );
Wait( 0 );
//This next command does not save the cell colors.
//dt << Color Rows by Row State;
dt << Clear column selection();
dt << clear select;
//get the unique colors
nr = N Row( dt );
//make a list the size of the table to get the row colors and locate rows of a given color
_clr = As List( J( nr, 1, 0 ) );
For( i = 1, i <= N Row( dt ), i++,
_clr[i] = Color To RGB( Color Of( Row State( i ) ) )
);
//creates a list of unique colors
clr_keys = Associative Array( _clr ) << get keys;
//for each color (j), locate which rows are assigned that color using Loc( _clr, ...)
For( j = 1, j <= N Items( clr_keys ), j++,
idx = Loc( _clr, clr_keys[j] );
//Color the cells in rows idx and each coloumn
For( i = 1, i <= N Col( dt ), i++,
Column( dt, i ) << color cells( RGB Color( clr_keys[j] ), idx )
);
);
//now journal the table
dt << journal;
