438466_zh-CN

liliconcom

根据另一个数据表中的数据更新列轴参考线

我正在寻找基于来自另一个数据能力的数据添加列参考线。 例如，使用“Big Class”将使用查找数据表中的 P50 和 P95 值更新“体重”和“高度”列。

 

查找数据表上的行对应于主表中的列名称。 参考线需要从查找表列名称“P50”或“P95”分配标签值，并且该值来自该列中的行。  

 

显示添加的列轴参考线的示例：

 

 

查找数据表示例：

 

我不太熟悉 JSL，因此非常感谢您在这个主题上提供的任何帮助。 我已经创建了一个脚本，但它没有执行我想要的操作。

它似乎损坏了列，有时在绘制分布时显示所有“0”值。 另外，如果我尝试添加 P50 和 P95 参考线，则只有最后一个参考线会保存到该列中，并且会将其保存在两列中。

 

dt = Open ("C:\Program Files\SAS\JMP\15\Samples\Data\big class.jmp");
dtLookup = New Table( "Lookup Table",
 Add Rows( 2 ),
 New Column( "Column Name",
  Character,
  Nominal,
  Set Values( {"weight", "height"} )
 ),
 New Column( "P50",
  "Continuous",
  Set Values( [100, 61] )
 ),
 New Column( "P95",
  "Continuous",
  Set Values( [120, 70] )
 )
);

col_name_list = dt << get column names(string);
col_name_list_lookup = dtLookup << get column names(string);
 
numRowsLookup = N Rows( dtLookup );
numColsLookup = N Cols( dtLookup );

for(n=1,n<=numRowsLookup,n++,
 col_name = dtLookup[n,1];
 If(contains(col_name_list,col_name),
  for(j=2,j<=numColsLookup,j++,
  col = Column(dt, col_name);
  col_name_Lookup = col_name_list_lookup[j];
  value = Column(dtLookup,col_name_Lookup)[n];
  col <<
   Set Property("Axis", 
   {
    //Add Ref Line( 63, "Dashed", "Orange", "P50", 2 )
    Add Ref Line( value, "Dashed", "Orange", col_name_Lookup, 2 )
   });
  );
 );
);

谢谢你，

罗杰

自动化和脚本编写数据混合和清理大规模定制回复：根据另一个数据表中的数据更新列轴参考线

最后更新在这里。 特别感谢贾莫。

 

我能够按预期工作。 最终代码在这里供将来参考。

 

Names Default To Here(1);
namespace("here")<<REMOVE></REMOVE>    New Column("P99", "Continuous", Set Values([125, 75]))
);


col_name_list = dt << get column names(string);
col_name_list_lookup = dtLookup << get column names(string);


For Each Row(dtLookup,
 col_name  =:"Analysis Columns"n; //Ref column name
 new_properties = {}; // re-init
 old_properties = {}; // re-init
 If(contains(col_name_list,col_name),
  old_properties = Column(dt, col_name) << get property("Axis");
  //Add Multiple Ref Lines
  For( i = 2, i <= N Items( col_name_list_lookup ), i++,
   new_properties_temp = 
   EvalExpr({
     Add Ref Line(Expr(as column(dtLookup,col_name_list_lookup[i])), "Dashed", Expr(Color To RGB( 67 )),Expr(char(col_name_list_lookup[i])), 1)
     });
   
   new_properties = Insert(new_properties, new_properties_temp); 
  );
  //end Add Multiple  
  
  //Add Specified Reference Lines
  //new_properties = EvalExpr({
  //  Add Ref Line(Expr(:P50), "Dashed", "Orange", "P50", 2), 
  //  Add Ref Line(Expr(:P95), "Dashed", "Orange", "P95", 2)
  //});
  
  If(!IsList(old_properties),
   prop_to_add = Name Expr(new_properties),
   prop_to_add = Insert(old_properties, new_properties);
  );
  //show(prop_to_add); // for debug
  Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis",expr(prop_to_add)))); //Applies the new axis settings.
 );
);

 

回复：根据另一个数据表中的数据更新列轴参考线

嗨，贾莫，

 

我很感谢对此的帮助。 不幸的是，我没有看到这里更新旧的和新的轴属性。 我看到“prop_to_add”列表附加了旧属性和新属性，但是当我检查实际的轴设置时，我只看到了两个新属性。

 

从设置的属性中删除大括号后，它能够按预期工作！

 

现在我只需要在 N 个查找列上完成这项工作。

 

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
dtLookup = New Table("Lookup Table",
 Add Rows(2),
 New Column("Column Name", Character, Nominal, Set Values({"weight", "height"})),
 New Column("P50", "Continuous", Set Values([100, 61])),
 New Column("P95", "Continuous", Set Values([120, 70]))
);

col_name_list = dt << get column names(string);
col_name_list_lookup = dtLookup << get column names(string);

Column(dt, "weight") << Set Property("Axis", {Add Ref Line(10, "Dashed", "Red", "P10", 2)}); //debugging axis property
//stop();

For Each Row(dtLookup,
 //stop();
 Row() = 1;
 col_name  = Column(dtLookup, "Column Name")[Row()]; //easier to work with without For Each Row
 If(contains(col_name_list,col_name),
  old_properties = Column(dt, col_name) << get property("Axis");
  //stop();
  new_properties = EvalExpr({Add Ref Line(Expr(:P50), "Dashed", "Orange", "P50", 2), Add Ref Line(Expr(:P95), "Dashed", "Orange", "P95", 2)});
  //stop();
  If(!IsList(old_properties),
   prop_to_add = Name Expr(new_properties),
   prop_to_add = Insert(old_properties, new_properties);
  );
  show(prop_to_add);
  //stop();
  //Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis",{Expr(prop_to_add)}))); // Didn't work with the braces.
  Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis",expr(prop_to_add)))); //Worked when removing the braces.
 );
);

回复：根据另一个数据表中的数据更新列轴参考线

您可以尝试分段调试代码。 您可以使用 Row() = rownumber 而不是循环来逐行“运行”For Each Row。

 

//For Each Row(dtLookup,
 Row() = 1;
 col_name  =:"Column Name"n;
 If(contains(col_name_list,col_name),
  old_properties = Column(dt, col_name) << get property("Axis");
  old_with_new = Insert(old_properties, 
  {Expr( Add Ref Line(Expr(:P50), "Dashed", "Orange", "P50", 2),
    Add Ref Line(Expr(:P95), "Dashed", "Orange", "P95", 2)
   )
  });
  Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis",{
   Expr(old_with_new) 
  })));
 );
);

然后开始逐行运行代码：

 

 

old_properties = Column(dt, col_name) << get property("Axis");
//Empty()

 

一些调试断点（我不使用调试器，但使用它很可能会更容易）：

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
dtLookup = New Table("Lookup Table",
 Add Rows(2),
 New Column("Column Name", Character, Nominal, Set Values({"weight", "height"})),
 New Column("P50", "Continuous", Set Values([100, 61])),
 New Column("P95", "Continuous", Set Values([120, 70]))
);

col_name_list = dt << get column names(string);
col_name_list_lookup = dtLookup << get column names(string);

Column(dt, "weight") << Set Property("Axis", {Add Ref Line(10, "Dashed", "Red", "P10", 2)}); //debugging axis property
stop();

For Each Row(dtLookup,
 stop();
 Row() = 1;
 col_name  = Column(dtLookup, "Column Name")[Row()]; //easier to work with without For Each Row
 If(contains(col_name_list,col_name),
  old_properties = Column(dt, col_name) << get property("Axis");
  stop();
  new_properties = EvalExpr({Add Ref Line(Expr(:P50), "Dashed", "Orange", "P50", 2), Add Ref Line(Expr(:P95), "Dashed", "Orange", "P95", 2)});
  stop();
  If(!IsList(old_properties),
   prop_to_add = Name Expr(new_properties),
   prop_to_add = Insert(old_properties, new_properties);
  );
  show(prop_to_add);
  stop();
  Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis",{Expr(prop_to_add)})));
 );
);

插入的脚本索引：

 

一些协助编写脚本的链接：

JSL 语法参考

脚本指南

JMP 16 帮助

回复：根据另一个数据表中的数据更新列轴参考线

Insert() 函数在这里做什么？ 我觉得它无法工作。

 

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
dtLookup = New Table("Lookup Table",
 Add Rows(2),
 New Column("Column Name", Character, Nominal, Set Values({"weight", "height"})),
 New Column("P50", "Continuous", Set Values([100, 61])),
 New Column("P95", "Continuous", Set Values([120, 70]))
);

col_name_list = dt << get column names(string);
col_name_list_lookup = dtLookup << get column names(string);

For Each Row(dtLookup,
 col_name  =:"Column Names"n;
 If(contains(col_name_list,col_name),
  old_properties = Column(dt, col_name) << get property("Axis");
  old_with_new = Insert(old_properties, 
  {Expr( Add Ref Line(Expr(:P50), "Dashed", "Orange", "P50", 2),
    Add Ref Line(Expr(:P95), "Dashed", "Orange", "P95", 2)
   )
  });
  Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis",{
   Expr(old_with_new) 
  })));
 );
);

回复：根据另一个数据表中的数据更新列轴参考线

我不是 100% 确定，但也许您可以首先使用 << Get Propery("Axis") 获取旧的 Axis 属性，然后添加到其中。

 

也许是这样的（也可能有更简单的方法）：

old_properties = Column(dt, "height") << get property("Axis");
old_with_new = Insert(old_properties, Expr(Add Ref Line(1, "Dashed", "Orange", "P45", 2)));
Eval(EvalExpr(column(dt, "height") << Set Property("Axis",{expr(old_with_new)})));

回复：根据另一个数据表中的数据更新列轴参考线

谢谢贾莫。 这个解决方案要简单得多，但它似乎会覆盖任何现有的轴参考线。 您知道是否有办法保留该列中已存在的任何轴参考线？  

回复：根据另一个数据表中的数据更新列轴参考线

这是一个示例脚本。 我的猜测是，如果您尝试多次这样做，轴就会被覆盖，因此您可能必须将它们添加到相同的 << Set Property 中（构建表达式的多种不同方式来执行此操作）。

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class.jmp");
dtLookup = New Table("Lookup Table",
 Add Rows(2),
 New Column("Column Name", Character, Nominal, Set Values({"weight", "height"})),
 New Column("P50", "Continuous", Set Values([100, 61])),
 New Column("P95", "Continuous", Set Values([120, 70]))
);

For Each Row(dtLookup,
 col_name  =:"Column Name"n;
 //because we know we have only two lines to add and they are always added
 Eval(EvalExpr(Column(dt, col_name) << Set Property("Axis", {
  Add Ref Line(Expr(:P50), "Dashed", "Orange", "P50", 2),
  Add Ref Line(Expr(:P95), "Dashed", "Orange", "P95", 2) 
  }))
 );
);

不知道评估（EvalExpr（））这里是必要的，但不会造成伤害。

 

回复：根据另一个数据表中的数据更新列轴参考线

这是一个非常有用的 JSL 脚本，可以直接将数据导入到 Axis 中。请问是否可以将以下标签设置添加到上面的 JSL 脚本中？

我尝试添加/修改您的代码并添加其他设置，但出现错误。

对于（i = 2，i <= N 项（col_name_list_lookup），i++，

new_properties_temp =

EvalExpr({

添加 Ref Line(Expr(as column(dtLookup,col_name_list_lookup[i])), "虚线", Expr(Color To RGB( 0 )),Expr(char(col_name_list_lookup[i])), 1,

标签位置（"内联"），相反轴（1））

)

});

new_properties = Insert(new_properties, new_properties_temp);

）；

回复：根据另一个数据表中的数据更新列轴参考线

请确保所有支架都处于正确位置。

查看更多...

For(i = 2, i <= N Items(col_name_list_lookup), i++,
	new_properties_temp = Eval Expr(
		{Add Ref Line(
			Expr(As Column(dtLookup, col_name_list_lookup[i])),
			"Dashed",
			Expr(Color To RGB(0)),
			Expr(Char(col_name_list_lookup[i])),
			1,
			Label Position("Inside Inline"),
			Opposite Axis(1)
		)}
	);
 
	new_properties = Insert(new_properties, new_properties_temp);
);