314840_zh-CN

liliconcom

使用JSL作为字符数据类型从配置文件更新列名

大家好，

 

这是我昨天发布的一个较早相关问题的跟进。 我想问一下您如何更新列名以具有来自另一个配置文件的单位。 下面是我昨天的帖子采用的解决方案代码，除了我进行了修改以绘制逻辑图而不是双变量。 我发现这对于二元图来说效果很好，但是当我尝试绘制对数图时，我无法将单位视为y轴标签的一部分。 即使单位是标题的一部分，也可以。

 

// This version of the script used Transform variables
// to temporarially change the name of the column just
// for the running of the Bivariate

Names Default To Here( 1 );
dt = open( "table_1.jmp" );
dt1 = open( "config_table.jmp" );

// Add the Units Column Property to the columns in the
// original data table
For( i = 1, i <= N Cols( dt ), i++,
 foundRow = dt1 << get rows where(
  :Column_name == Column( dt, i ) << get name & dt1
  :additional_name != ""
 );

 If( N Rows( foundRow ) > 0,
  column( dt, i ) << set property("units", eval(dt1:additional_name[foundRow[1]]));
 );
);

// Now run logistic

For( i = 2, i <= N Cols( dt ), i++,
 dt << Logistic( Y( Column( i ) ), X( :id ) )
);

数据表已随附。

谢谢，

西蒙

脚本编写关于使用字符数据类型的JSL从配置文件更新列名称

显然，Logistic平台不支持对（单位）的自动处理。但是，下面的脚本可以解决这个问题。

Names Default To Here( 1 );
dt = Data Table( "table_1.jmp" );
dt1 = Data Table( "config_table.jmp" );

// Add the Units Column Property to the columns in the
// original data table
For( i = 1, i <= N Cols( dt ), i++,
 foundRow = dt1 << get rows where(
  :Column_name == Column( dt, i ) << get name & dt1:additional_name !=
  ""
 );

 If( N Rows( foundRow ) > 0,
  Column( dt, i ) << set property(
   "units",
   Eval( dt1:additional_name[foundRow[1]] )
  )
 );
);

// Now run logistic

For( i = 2, i <= N Cols( dt ), i++,
 log = dt << Logistic( Y( Column( i ) ), X( :id ) );
 Report( log )[AxisBox( 1 )][Text Box( 1 )] <<
 set text(
  Char( Report( log )[AxisBox( 1 )][Text Box( 1 )] << get text ) || "("
   || Char( Column( i ) << get property( "units" ) ) || ")"
 )
 
 ;
);

关于使用字符数据类型的JSL从配置文件更新列名称

吉姆，你好

 

我运行了您的脚本，并出现以下错误：

 

Names Default To Here( 1 );
dt = Open( "table_1.jmp" );
dt1 = Open( "config_table.jmp" );
For( i = 1, i <= N Cols( dt ), i++,
 foundRow = dt1 << get rows where(
  :Column_name == Column( dt, i ) << get name & dt1:additional_name != ""
 );
 If( N Rows( foundRow ) > 0,
  Column( dt, i ) << set property(
   "units",
   Eval( dt1:additional_name[foundRow[1]] )
  )
 );
);
For( i = 2, i <= N Cols( dt ), i++,
 log = dt << Logistic( Y( Column( i ) ), X( :id ) );
 Report( log )[AxisBox( 1 )][Text Box( 1 )] <<
 set text(
  Char( Report( log )[AxisBox( 1 )][Text Box( 1 )] << get text ) || "(" ||
  Char( Column/*###*/(i) << get property( "units" ) ) || ")"
 );
);
invalid argument in access or evaluation of 'Column' , Column/*###*/(i)
/*:
Names Default To Here( 1 );
dt = Open( "table_1.jmp" );
dt1 = Open( "config_table.jmp" );
For( i = 1, i <= N Cols( dt ), i++,
 foundRow = dt1 << get rows where(
  :Column_name == Column( dt, i ) << get name & dt1:additional_name != ""
 );
 If( N Rows( foundRow ) > 0,
  Column( dt, i ) << set property(
   "units",
   Eval( dt1:additional_name[foundRow[1]] )
  )
 );
);
For( i = 2, i <= N Cols( dt ), i++,
 log = dt << Logistic( Y( Column( i ) ), X( :id ) );
 Report( log )[AxisBox( 1 )][Text Box( 1 )] <<
 set text(
  Char( Report( log )[AxisBox( 1 )][Text Box( 1 )] << get text ) || "(" ||
  Char( Column/*###*/(i) << get property( "units" ) ) || ")"
 );
);
invalid argument in access or evaluation of 'Column' , Column/*###*/(i)

 

谢谢，

西蒙