如何使用列切换器在控制图中添加/使参考线保持一致?我正在尝试重新创建类似于下面的控制图。 我是带有列切换器的 Levey-Jennings 控制图。 x 轴一致,是字母数字批次代码。 我目前需要帮助添加批次 ID 的垂直蓝色参考线。 理想情况下,当我在列切换器中移动时,这些线将保留。
我目前使用的是 Windows 10 上的 JMP 15.2.0
谢谢!
视窗回复:如何在带有列切换器的控制图中添加/使参考线保持一致?您还可以使用图形脚本。 首先计算您拥有的参考线的索引,然后使用 V Line 添加图形脚本:
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Quality Control/Coating.jmp");
ccb = dt << Control Chart Builder(
Size(528, 456),
Show Two Shewhart Charts(0),
Show Control Panel(0),
Show Limit Summaries(0),
Variables(Subgroup(:Sample), Y(:Pin)),
Chart(Points(Statistic("Average")), Limits(Sigma("Levey Jennings"))),
Column Switcher(:Pin, {:Pin, :Weight, :Weight 2})
);
//calculate indices for references
uniq_vals = Associative Array(dt[0, "Sample"]) << get keys;
ref_vals = {4, 5, 6, 8};
/*jmp16
ref_idx = Transform Each({ref_val}, ref_vals,
Contains(uniq_vals, ref_val) - 1
);
*/
//jmp15
ref_idx = [];
For(i = 1, i <= N Items(ref_vals), i++,
idx = Contains(uniq_vals, ref_vals[i]);
If(idx,
Insert Into(ref_idx, idx - 1);
)
);
//add reference lines as Graphic Script
rep = ccb << report;
framebox = rep[frame box(1)];
Eval(EvalExpr(framebox << Add Graphics Script(
Pen Size(1);
Pen Color("Blue");
V Line(Expr(Transpose(ref_idx)));
)));
回复:如何在带有列切换器的控制图中添加/使参考线保持一致?您附加的脚本添加了 5 条参考线。它们将被放置在 x 值 1、2、3、4、5 处。 如果您希望将它们放置在不同的位置,则需要使用适当的位置更新脚本。
请查看 OSI 中的“添加参考线”条目,了解参考线的语法如何工作。

回复:如何在带有列切换器的控制图中添加/使参考线保持一致?谢谢你, @tonya_mauldin 。 我能够让脚本运行,没有任何错误;但是,它将这些参考点移至控制图的开头;而不是将它们整合到一起。 对此有什么想法吗?
再次感谢!
回复:如何在带有列切换器的控制图中添加/使参考线保持一致?你好@布兰登P1092 ,
除了什么@tonya_mauldin建议,您还可以考虑将规格限或控制限作为元数据添加到您的列中。 右键单击您的列并选择列信息。 从“列属性”下拉菜单中,选择适合您需要的一项。

输入规格/控制限值后,您可以选择“显示为图形参考线”,每次使用数据制作图形、分布等时,都会有细蓝线表示 USL、LSL、和目标(如果没有丢失)。

如果您更高级并且编写了大量脚本,则可以使用分析 > 质量和流程 > 管理规格限制平台自动执行此过程。 如果您必须经常这样做,它会让您的生活变得更加轻松。

希望这可以帮助!,
DS
回复:如何在带有列切换器的控制图中添加/使参考线保持一致?这是您可以使用的类似示例。
dt=Open("$SAMPLE_DATA/Cities.jmp");
Control Chart Builder(
Show Two Shewhart Charts( 0 ),
Variables( Subgroup( :Region ), Y( :"pop- m"n ) ),
Chart( Points( Statistic( "Average" ) ), Limits( Sigma( "Levey Jennings" ) ) ),
Column Switcher( :"pop- m"n, {:"pop- m"n, :POP, :Max deg. F Jan, :OZONE, :CO} ),
SendToReport(
Dispatch(
{},
"Region",
ScaleBox,
{Add Ref Line( 1, "Solid", "Blue", "", 1 ),
Add Ref Line( 2, "Solid", "Blue", "", 1 ),
Add Ref Line( 3, "Solid", "Blue", "", 1 )}
)
)
)