233888_zh-CN

liliconcom

如何更改参考线？没有数字

你好我想将两个数据的标准平均值放入参考线中，如下图所示。

下面的 JMP 脚本是我任意编写的标准平均值，13.2 (22.2+4.2)/2 = 13.2

其实我用的数据不止两个。 （下图只是示例）

我怎样才能改变脚本？

dt = Open( "$SAMPLE_DATA/Big Class.jmp" ) ;


Graph Builder(
 Size( 1056, 825 ),
 Variables( Y( :height ), Y( :weight ) ),
 Elements(
  Position( 1, 1 ),
  Points( Y, Legend( 7 ) ),
  Caption Box( Y, Legend( 13 ), Summary Statistic( "Std Dev" ) )
 ),
 Elements(
  Position( 1, 2 ),
  Points( Y, Legend( 8 ) ),
  Caption Box( Y, Legend( 14 ), Summary Statistic( "Std Dev" ) )
 ),
 SendToReport(
  Dispatch(
   {},
   "height",
   ScaleBox,
   {Add Ref Line( 13.3, "Solid", "Medium Dark Red", "Std Dev mean", 2 )}
  ),
  Dispatch(
   {},
   "weight",
   ScaleBox,
   {Add Ref Line( 13.3, "Solid", "Medium Dark Red", "Std Dev mean", 2 )}
  )
 )
);

回复：如何更改参考线？没有数字

以下是我用来捕获您正在使用的给定子组（例如年龄）的列统计信息的方法。

这是脚本。只需使用相同的方法添加您想要的其他参考线

names default to here(1);
dt = Open( "$SAMPLE_DATA/Big Class.jmp" ) ;



gb = Graph Builder(
 Size( 1056, 825 ),
 Variables( X( :height ), Group Y( :age ) ),
 Elements(
  Bar( X, Legend( 17 ) ),
  Caption Box( X, Legend( 15 ), Response Axis( "X" ) ),
  Caption Box(
   X,
   Legend( 16 ),
   Response Axis( "X" ),
   Summary Statistic( "Std Dev" )
  )
 )
);


Report( gb )[AxisBox( 1 )] << Add Ref Line(
 Col Mean( if(:age == 12,:height,.) ) + 4*Col Std Dev( If(:age==12,:height,) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean 12",
 2
);
Report( gb )[AxisBox( 1 )] << Add Ref Line(
 Col Min( if(:age == 12,:height,.) ),
 "Solid",
 "Medium Dark Red",
 "Min 12",
 2
);
Report( gb )[AxisBox( 1 )] << Add Ref Line(
 Col Max( if(:age == 12,:height,.) ),
 "Solid",
 "Medium Dark Red",
 "Max 12",
 2
);

Report( gb )[AxisBox( 1 )] << Add Ref Line(
 Col Mean( if(:age == 13,:height,.) ) + 4*Col Std Dev( If(:age==13,:height,) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean 13",
 2
);

回复：如何更改参考线？没有数字

@tx尼尔森

感谢您的热心回复！

我还有最后一张！问题。

抱歉打扰你..

 

我想在所有组（年龄）中添加参考线 Max, min (Mean + 4 * Std dev)。

问题是下面的脚本不起作用..

names default to here(1);
dt = Open( "$SAMPLE_DATA/Big Class.jmp" ) ;



gb = Graph Builder(
 Size( 1056, 825 ),
 Variables( X( :height ), Group Y( :age ) ),
 Elements(
  Bar( X, Legend( 17 ) ),
  Caption Box( X, Legend( 15 ), Response Axis( "X" ) ),
  Caption Box(
   X,
   Legend( 16 ),
   Response Axis( "X" ),
   Summary Statistic( "Std Dev" )
  )
 )
);


Report( gb )[AxisBox( 1 )] << Add Ref Line(
 Col Mean( :height ) + 4*Col Std Dev( :height ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);

另一个问题是，我如何提取所有组（年龄）的最大值、最小值（平均值 + 4 * 标准差）。

我想应用参考线 Max (Mean + 4 * Std dev)、Min (Mean + 4 * Std dev)，所有组都相同。

我想我可以使用 Max()、Min() 函数...

回复：如何更改参考线？没有数字

我看到你指出的问题了。看起来，即使显示树指示有 4 个独立的轴，JMP 实际上也将它们视为 2 个轴。因此，为了尽可能接近您想要的结果，我们可以根据性别值将身高和体重的数据分为 4 列，然后分别绘制 4 个变量。

这是 JSL

names default to here(1);
dt = Open( "$SAMPLE_DATA/Big Class.jmp" ) ;

dtSplit = dt << Split(
 Split By( :sex ),
 Split( :height, :weight ),
 Remaining Columns( Drop All ),
 Sort by Column Property
);

gb = dtSplit << Graph Builder(
 Variables( Y( :height F ), Y( :weight F ), Y( :height M ), Y( :weight M ) ),
 Elements(
  Position( 1, 1 ),
  Points( Y, Legend( 11 ) ),
  Caption Box( Y, Legend( 15 ), Summary Statistic( "Std Dev" ) )
 ),
 Elements(
  Position( 1, 2 ),
  Points( Y, Legend( 12 ) ),
  Caption Box( Y, Legend( 16 ), Summary Statistic( "Std Dev" ) )
 ),
 Elements(
  Position( 1, 3 ),
  Caption Box( Y, Legend( 17 ), Summary Statistic( "Std Dev" ) ),
  Points( Y, Legend( 18 ) )
 ),
 Elements(
  Position( 1, 4 ),
  Points( Y, Legend( 14 ) ),
  Caption Box( Y, Legend( 19 ), Summary Statistic( "Std Err" ) )
 ),
 SendToReport(
  Dispatch(
   {},
   "weight F",
   ScaleBox,
   {Min( 49.5141101773061 ), Max( 150.319351489306 ), Inc( 20 ),
   Minor Ticks( 0 )}
  ),
  Dispatch(
   {},
   "400",
   ScaleBox,
   {Legend Model(
    18,
    Properties( 0, {Line Color( 21 )}, Item ID( "height M", 1 ) )
   ), Legend Model(
    14,
    Properties( 0, {Line Color( 19 )}, Item ID( "weight M", 1 ) )
   )}
  ),
  Dispatch(
   {},
   "400",
   LegendBox,
   {Legend Position( {11, [0], 12, [1], 18, [3], 14, [2]} ),
   Position( {0, 1, 3, 2} )}
  )
 )
);

Report( gb )[AxisBox( 2 )] << Add Ref Line(
 Col Std Dev( :Height F ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);

Report( gb )[AxisBox( 3 )] << Add Ref Line(
 Col Std Dev( :Weight F),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);
Report( gb )[AxisBox( 4 )] << Add Ref Line(
 Col Std Dev( :Height M ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);
Report( gb )[AxisBox( 5 )] << Add Ref Line(
 Col Std Dev( :Weight M ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);

回复：如何更改参考线？没有数字

@tx尼尔森

感谢您的回复。

在下面的脚本中，F 组中的所有 STD 值都写为 M 组 STD 值。

我们怎样才能将他们分成两组呢？

 

dt = Open( "$SAMPLE_DATA/Big Class.jmp" ) ;


gb = Graph Builder(
 Size( 1056, 825 ),
 Variables( Y( :height ), Y( :weight ), Group Y( :sex ) ),
 Elements(
  Position( 1, 1 ),
  Points( Y, Legend( 7 ) ),
  Caption Box( Y, Legend( 13 ), Summary Statistic( "Std Dev" ) )
 ),
 Elements(
  Position( 1, 2 ),
  Points( Y, Legend( 8 ) ),
  Caption Box( Y, Legend( 14 ), Summary Statistic( "Std Dev" ) )
 )
);

Report( gb )[AxisBox( 2 )] << Add Ref Line(
 Col Std Dev( If( :sex == "F", :Height, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);

Report( gb )[AxisBox( 3 )] << Add Ref Line(
 Col Std Dev( If( :sex == "F", :Height, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);
Report( gb )[AxisBox( 4 )] << Add Ref Line(
 Col Std Dev( If( :sex == "M", :Height, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);
Report( gb )[AxisBox( 5 )] << Add Ref Line(
 Col Std Dev( If( :sex == "M", :Weight, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);

回复：如何更改参考线？没有数字

从我之前的回复中可以看出，要添加参考线，您所要做的就是将 << Add Ref Line 消息传递到要添加参考线的轴：

Report( gb )[AxisBox( 2 )] << Add Ref Line( Col Std Dev( :Height ), "Solid", "Medium Dark Red", "Std Dev mean", 2 );

为了找出正确指向哪个轴，需要查看图形生成器输出的树结构。为此，右键单击图形生成器标题旁边的灰色三角形，然后选择

编辑==>显示树结构

然后，您可以将图形窗口与树结构窗口对齐，然后单击图形窗口中要查看其树结构的项目，JMP 将移至树结构窗口中的该结构

 

从这里可以看出，Height 列的轴，对于 Sex=="F" 是 AxisBox(2)

如果单击每个有问题的轴，您将看到要添加参考线的轴框。问题的最后一个轴，重量列，性别==“M”是：

现在需要做的就是扩展 JSL，为所有 4 个轴创建参考线，并在每个添加参考线消息中计算参考线放置的正确值。以下是 4 行添加参考线代码：

Report( gb )[AxisBox( 3 )] << Add Ref Line(
 Col Std Dev( If( :sex == "F", :Weight, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);
Report( gb )[AxisBox( 2 )] << Add Ref Line(
 Col Std Dev( If( :sex == "M", :Height, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);
Report( gb )[AxisBox( 3 )] << Add Ref Line(
 Col Std Dev( If( :sex == "M", :Weight, . ) ),
 "Solid",
 "Medium Dark Red",
 "Std Dev mean",
 2
);

请注意，在这种情况下，在计算标准差时必须考虑性别列以及测量列。

回复：如何更改参考线？没有数字

@tx尼尔森感谢您的及时答复！

我还有一个问题。

如果数据按性别分组，如下图所示，我该如何处理？

回复：如何更改参考线？没有数字

这是对脚本的简单修改，它在每列的标准差值处绘制参考线（：高度，：体重）

dt = Open( "$SAMPLE_DATA/Big Class.jmp" ) ;


gb=Graph Builder(
 Size( 1056, 825 ),
 Variables( Y( :height ), Y( :weight ) ),
 Elements(
  Position( 1, 1 ),
  Points( Y, Legend( 7 ) ),
  Caption Box( Y, Legend( 13 ), Summary Statistic( "Std Dev" ) )
 ),
 Elements(
  Position( 1, 2 ),
  Points( Y, Legend( 8 ) ),
  Caption Box( Y, Legend( 14 ), Summary Statistic( "Std Dev" ) )
 )
 );
report(gb)[AxisBox(2)]<<ADD ref="" line=""></ADD>