92893_zh-CN

liliconcom

将数据表保存到日记或新窗口后如何保留单元格颜色

/*
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>

 

回复：如何将数据表保存到日记或新窗口后保留单元格颜色谢谢。
我的JMP版本JMP14，（64位）；没有修改脚本，运行下面的确切脚本：
名称默认为此处( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
dt << 按列颜色( :age );
等待（0）；

//下一个命令不保存单元格颜色。
//dt << 按行状态对行着色；
dt << 清除列选择();
dt << 清除选择；

//获取唯一的颜色
nr = N 行( dt );
//创建一个表格大小的列表来获取行颜色并定位给定颜色的行

_clr = 作为列表( J( nr, 1, 0 ) );

For( i = 1, i <= N 行( dt ), i++,
_clr[i] = 颜色转 RGB( 颜色 ( 行状态 ( i ) ) )
）；

//创建一个独特颜色的列表
clr_keys = 关联数组( _clr ) << 获取键；

//对于每种颜色 (j)，使用 Loc(_clr, ...) 查找分配了该颜色的行
For( j = 1, j <= N 个项目( clr_keys ), j++,

idx = Loc( _clr, clr_keys[j] );
//给idx行和每列的单元格着色
For( i = 1, i <= N Col( dt ), i++,
列( dt, i ) << 颜色单元格( RGB 颜色( clr_keys[j] ), idx )
）；

）；

//现在记录表
dt << 日记；回复：如何将数据表保存到日记或新窗口后保留单元格颜色

您拥有哪个版本的 JMP？您使用的是这个脚本还是修改后的脚本？ 如有修改，请附上。

回复：如何将数据表保存到日记或新窗口后保留单元格颜色无法复制您在日记中保留细胞颜色的结果，
不知道是不是因为你用的是JMP-Pro而我的不是。
谢谢。回复：如何将数据表保存到日志或新窗口后保留单元格颜色

表消息dt << 按行状态对行着色()似乎是一个“视图”声明。 表视图已更改，但保存表并打开它或记录日志不会保留彩色单元格。记录该表将在日志中创建一个报告，其中表字体颜色与行状态颜色匹配。

然而， col << 颜色单元格( clr, rows)是一个列消息。 该消息存储在表列的属性中。 此外，在记录日志时，细胞颜色也会保持不变。

 

下面显示了脚本和结果。 请注意，另一种方法（可能更直接）是获取每个组（年龄）的唯一键，获取每个年龄的行，然后选择一种颜色并将其应用到每列的这些行。

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;