55340_zh-CN

liliconcom

红外图表标签和拼箱

我有以下脚本运行良好，它根据数据表中的唯一值生成的列表中的值创建多个IR图表。  我想将每个图表标记为与其生成的列表中的值相同。  我还想将我的所有控制下限设置为0。   我看不出怎么做。

 

总结（SNTime2，UnitNames = by（Column（“Sub_name”）））;
count_UnitNames = nitems（UnitNames）;

新窗口（“M11运行时间摘要 - 控制图”，
V列表框（
for（i = 1，i <= count_UnitNames，i ++，
控制图（
样品标签（：日期），
团体规模（1），
KSigma（3），
图表Col（：名称（“平均值（运行时间）”），个人测量值），
Where（：Sub_name == UnitNames [i]），
SendToReport（
调度（
{“个人测量平均值（运行时间）}}，
“2”，
ScaleBox，
{格式（“hr：m：s”，11,0）}
）））;
）;
））;

 

谢谢

回复：IR图表标签和拼箱

我会告诉你做你想做的所需的改变，但是，我会告诉你你可以自己解决这个问题，因为JMP会告诉你如何做到这一点。

您的请求是更改重复标题创建的大纲框的名称， “平均值（运行时间）的单独测量”。  因此，第一步是简单地在其中一个输出中更改该标题。

然后转到红色三角形并保存更改图表的脚本

Control Chart(
 Sample Label( :Date ),
 Group Size( 1 ),
 KSigma( 3 ),
 Chart Col( :Name( "Mean(RunTime)" ), Individual Measurement( LCL( 0 ) ) ),
 Where( :Sub_name == UnitNames[i] ),
 SendToReport(
  Dispatch(
   {},
   "Individual Measurement of Mean(RunTime)",
   OutlineBox,
   {Set Title( "This is the title I want to have" )}
  ),
  Dispatch(
   {"Individual Measurement of Mean(RunTime)"},
   "2",
   ScaleBox,
   {Format( "hr:m:s", 13, 0 )}
  ),
  Dispatch(
   {"Individual Measurement of Mean(RunTime)"},
   "Control Chart Limits frame",
   FrameBox,
   {Frame Size( 64, 208 )}
  )
 )
);

请注意JMP如何指示如何更改图表以使“大纲框”标题成为不同的名称

Dispatch(
   {},
   "Individual Measurement of Mean(RunTime)",
   OutlineBox,
   {Set Title( "This is the title I want to have" )}
  )

现在您需要做的就是将此更改重新纳入您的脚本，并将标题替换为UnitNames [i]，这是您请求的Sub_name的列表条目

New Window( "M11 Runtime times Summary - Control Chart",
 V List Box(
  For( i = 1, i <= count_UnitNames, i++,
   Control Chart(
    Sample Label( :Date ),
    Group Size( 1 ),
    KSigma( 3 ),
    Chart Col( :Name( "Mean(Runtime)" ), Individual Measurement( LCL( 0 ) ) ),
    Where( :Sub_name == UnitNames[i] ),
    SendToReport(
    Dispatch(
     {},
     "Individual Measurement of Mean(RunTime)",
     OutlineBox,
     {Set Title( UnitNames[i] )}
    ),
     Dispatch(
      {"Individual Measurement of Mean(Runtime)"},
      "2",
      ScaleBox,
      {Format( "hr:m:s", 11, 0 )}
     )
    )
   )
  )
 )
);

 

回复：IR图表标签和拼箱

谢谢你，这是有限的。 

 

如何更改IR图表的名称。  我在垂直窗口中生成大约16到20个图表。  当我从表数据创建它时，它们都用Sub_name列值标记，但是当我从脚本创建它时，它们被标记为“控制图”和“单独测量平均值（运行时间）”。  我希望每个图表都标有UnitNames [i]中的值。

 

再次感谢。

回复：IR图表标签和拼箱

我用来解决此问题的方法是使用保存的限制表，其中仅指定值为“0”的下限，并且还指定了IM图表规范中的LCL的示例。

Names Default To Here( 1 );

// Setup some sample data
SNTime2 = Open( "$SAMPLE_DATA/Quality Control/Phase Historical Data.jmp" );
SNTime2:Force << set name("Mean(RunTime)");
SNTime2:Site << set name("Sub_name") << data type( character );
SNTime2 << New Column("Date",format("m/d/y"),formula(today()));

// create a limits table with just a lower limit of zero and save it
dtlim = New Table( "Limits",
 Add Rows( 1 ),
 New Column("_LimitsKey",
  Character( 4 ),
  "Nominal",
  Set Values( {"_LCL"} )
 ),
 New Column("Mean(Runtime)",
  Numeric,
  "Continuous",
  Format( "Best", 10 ),
  Set Values( [0] ),
  Set Display Width
 )
);

close( dtlim, save("$TEMP\limits.jmp"));

// Run your code
Summarize( SNTime2, UnitNames = by( Column( "Sub_name" ) ) );
count_UnitNames = N Items( UnitNames );

New Window( "M11 Runtime times Summary - Control Chart",
 V List Box(
  For( i = 1, i <= count_UnitNames, i++,
   Control Chart(
    Sample Label( :Date ),
    Group Size( 1 ),
    KSigma( 3 ),
    Chart Col( :Name( "Mean(Runtime)" ), Individual Measurement ),
    // Read in limits
    Get Limits( "$TEMP\limits.jmp" ),
    Where( :Sub_name == UnitNames[i] ),
    SendToReport(
     Dispatch(
      {"Individual Measurement of Mean(Runtime)"},
      "2",
      ScaleBox,
      {Format( "hr:m:s", 11, 0 )}
     )
    )
   )
  )
 )
);

有关限制表使用的文档可以在“质量和过程方法”一书中找到

     帮助==>书籍==>质量和流程

并在脚本索引中

     帮助==>脚本索引==>控制图

 

您也可以在IM图表上使用LCL规范来获得相同的结果

// You can also just use the LCL paramater on the IM specification
Summarize( SNTime2, UnitNames = by( Column( "Sub_name" ) ) );
count_UnitNames = N Items( UnitNames );

New Window( "M11 Runtime times Summary - Control Chart",
 V List Box(
  For( i = 1, i <= count_UnitNames, i++,
   Control Chart(
    Sample Label( :Date ),
    Group Size( 1 ),
    KSigma( 3 ),
    Chart Col( :Name( "Mean(Runtime)" ), Individual Measurement( LCL(0)) ),
    Where( :Sub_name == UnitNames[i] ),
    SendToReport(
     Dispatch(
      {"Individual Measurement of Mean(Runtime)"},
      "2",
      ScaleBox,
      {Format( "hr:m:s", 11, 0 )}
     )
    )
   )
  )
 )
);