559670_zh-CN

liliconcom

如何在红色参考线上添加标签？

你好，

如何向参考线添加标签？

 

这是我的代码：

有什么建议吗？

Names Default To Here( 1 );

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

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Mean = 60;
std = 0.5;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue, 
   
    <<SET function=""></SET>

 

大规模定制回复：如何在红色参考线上添加标签？

。

回复：如何在红色参考线上添加标签？

删除参考线在我的系统上运行良好。恢复轴的问题是，如果轴上的任何内容发生更改，则运行恢复轴时它将返回到原始设置。因此，如果实际轴范围或增量已更改，则恢复轴会将轴移回原始状态。我认为您遇到的问题可能是时间问题，因此我添加了 Wait(0)，我相信这可能会为您解决问题。此外，在将“权重”列添加到“变异性平台”后，您不再指向正确的图表。更改后，输出显示结构也会更改。现在有两个独立的报告部门。

国标[1]

和

国标[2]

Names Default To Here( 1 );

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

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
wMean = 105;
wstd = 2;
std = 0.5;
LL = Mean - (sliderValue * 3 * std);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
wLL = wMean - (sliderValue * 3 * wstd);
wUL = wMean + (sliderValue * 3 * wstd);
wholdLL = LL;
wholdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    wLL = wMean - (sliderValue * 3 * wstd);
    wUL = wMean + (sliderValue * 3 * wstd);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb[1] )[AxisBox( 1 )];
    gbfb2 = Report( gb[2] )[AxisBox( 1 )];
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    wLL = wMean - (sliderValue * 3 * wstd);
    wUL = wMean + (sliderValue * 3 * wstd);
    //gbfb1 << revert axis;
    try(gbfb1 << remove ref line(holdLL));
    try(gbfb1 << remove ref line(holdUL));
    try(gbfb2 << remove ref line(wholdLL));
    try(gbfb2 << remove ref line(wholdUL));
    wait(0);
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     gbfb2 << add ref line( wLL, Solid, red, "LL" );
     gbfb2 << add ref line( wUL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    wholdLL = wLL;
    wholdUL = wUL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb[1] )[AxisBox( 1 )];
     gbfb2 = Report( gb[2] )[AxisBox( 1 )];
     LL = Mean - (sliderValue * 3 * std);
     UL = Mean + (sliderValue * 3 * std);
     wLL = wMean - (sliderValue * 3 * wstd);
     wUL = wMean + (sliderValue * 3 * wstd);
     try(gbfb1 << remove ref line(holdLL));
     try(gbfb1 << remove ref line(holdUL));
     try(gbfb2 << remove ref line(wholdLL));
     try(gbfb2 << remove ref line(wholdUL));
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     gbfb2 << add ref line( wLL, Solid, red, "LL" );
     gbfb2 << add ref line( wUL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height, : weight ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );

 )  
);

请参阅新代码以了解如何处理更改。

 

回复：如何在红色参考线上添加标签？

@tx尼尔森删除参考线不起作用。 我提出了恢复轴。

另一个问题：如果说，我正在运行 2 个高度和体重的变异性图表，我想为它们添加参考线，并随着滑块框的变化而变化。 我该如何实现呢？

 

这是带有恢复轴的代码：我想向两个变异性图表添加参考线，并使用滑块框改变参考线

Names Default To Here( 1 );

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

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
std = 0.5;
LL = Mean - (sliderValue * 3 * 0.5);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb )[AxisBox( 1 )];
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    gbfb1 << revert axis;
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb )[AxisBox( 1 )];
     LL = Mean - (sliderValue * 3 * 0.5);
     UL = Mean + (sliderValue * 3 * std);
     gbfb1 << revert axis;
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height, : weight ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );

 )  
);

回复：如何在红色参考线上添加标签？

这是使用添加引用行来显示动态行的代码的修改

Names Default To Here( 1 );

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

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
std = 0.5;
LL = Mean - (sliderValue * 3 * 0.5);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb )["Graph Builder"][AxisBox( 2 )];
    LL = Mean - (sliderValue * 3 * 0.5);
    UL = Mean + (sliderValue * 3 * std);
    Try( gbfb1 << remove ref line( holdLL ) );
    Try( gbfb1 << remove ref line( holdUL ) );
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb )["Graph Builder"][AxisBox( 2 )];
     LL = Mean - (sliderValue * 3 * 0.5);
     UL = Mean + (sliderValue * 3 * std);
     Try( gbfb1 << remove ref line( holdLL ) );
     Try( gbfb1 << remove ref line( holdUL ) );
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );
  gb = dt << Graph Builder(

   Size( 373, 325 ), 

   Show Control Panel( 0 ), 

   Variables( X( Transform Column( "Row", Formula( Row() ) ) ), Y( :height ) )
  );
 )  
);

回复：如何在红色参考线上添加标签？

当变量发生变化时，滑块脚本必须删除之前的参考线并添加新线。

回复：如何在红色参考线上添加标签？

我不确定您是否可以将图形脚本移到框架框之外，但如果您可以将标签放在框架框内

您可以将文本添加到图形脚本中

Text Color("Red");
Text({0, LL}, "Lower");
Text({0, UL}, "Upper");

回复：如何在红色参考线上添加标签？

@杰德坎贝尔谢谢。 我想使用滑块动态移动参考线。 添加参考线不会通过改变滑块框动态移动。

回复：如何在红色参考线上添加标签？

您可以使用“添加参考线”来解决该问题，而不是使用“添加图形脚本”代码吗？

 

Graph Builder(
 Transform Column( "Row", Formula( Row() ) ),
 Variables( X( :Row ), Y( :height ) ),
 Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) ),
 SendToReport(
  Dispatch(
   {},
   "Row",
   ScaleBox,
   {Add Ref Line( LL, "Solid", "Black", "My Label", 1 )}
  )
 )
);

回复：如何在红色参考线上添加标签？

也许是这个：将参考线添加到图表中

回复：如何在红色参考线上添加标签？