GRR 报告你好，
我有生成 GRR 图然后制作汇总表的脚本。问题是当我混合使用一侧和两侧规格并使用命令“制作组合数据表”时，它只会根据第一个参数显示一侧规格或两侧规格。
如何在脚本中获得两者的汇总表？
new window ("GRR",
for (i = 1, i <= N items (ColList), i++,
variability chart (
Y ((ColList [i])),
X (:Operators, :Parts),
Model ("Crossed"),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Show group means (1),
Points Jittered( 1 ),
AIAG Labels( 0 ),
Show Box Plots( 1 ),
Mean Diamonds( 1 ),
Mean Plots( 1 ),
Historical Sigma(0),
Name( "Gauge R&R" )(5.15),
Name( "Gauge R&R Report" )(1),
Automatic Recalc( 1 ),
)
);
);
temp = report (variability chart[1])["GaugeR&R"][table box(1)] << make combined data table;
temp = report (variability chart[1])["GaugeR&R"][table box(1)] << make combined data table;
temp << set name("GR&R summary");
data table ("GR&R summary") << select where (:Measurement Source != "Gauge R&R");
data table ("GR&R summary") << delete rows;
回复：GRR 报告我所说的显示对象是指可以放入 New Window() 并将显示的任何对象。您可以在不在新窗口中的情况下使用这些对象，并且可以将输出放入这些对象中，并且它们不会显示，直到附加到新窗口中。下面是一个非常简单的示例，使用 <
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
vlb = V List Box(
Graph Builder(
Size( 1000, 1000 ),
Show Control Panel( 0 ),
Variables( X( :weight ), Y( :height ) ),
Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) )
),
Graph Builder(
Size( 1000, 1000 ),
Show Control Panel( 0 ),
Variables( X( :age ), Y( :height ) ),
Elements( Box Plot( X, Y, Legend( 9 ) ) )
)
);
nw = New Window( "pptslide", <<JOURNAL></JOURNAL>
回复：GRR 报告你能给我一个创建显示对象的例子吗？回复：GRR 报告我用来执行此操作的方法是创建一个显示对象，其中包含我想要放在 ppt 幻灯片上的图形，然后从显示对象创建一个图片对象，并将其放入日记中。从日记条目中保存演示文稿；
回复：GRR 报告你好，
GRR 图是正确的，但 GR&R 摘要中没有数据。 不管怎样，今天下午我尝试了一种不同的方式。 我将情节分成 2 个选项卡。一侧规格的第一个选项卡和两侧规格的另一个选项卡。 现在它似乎工作。
我的下一个问题是我想将绘图保存到 .ppt 中。 我想要每页一个变量图表。
当我尝试将演示文稿保存为 .ppt 时。 它每页显示一个小图（在变量图表内）。 有没有办法将它们结合起来？
data table("split_spec") << select where (:spec type == "one side") ;
rows = data table("split_spec")<< get selected rows;
ColList1 = :Label[rows];
data table("split_spec") << select where (:spec type == "two side") ;
rows = data table("split_spec")<< get selected rows;
ColList2 = :Label[rows];
dtOut = New Table( "GRR_Summary");
current data table(dt_raw);
nw = new window ("GRR",tb = tab box(),vlb = vlist box());
tb << add ("OneSideSpec", vlb = v list box());
for (i = 1, i <= N items (ColList1), i++,
vlb << append(
v1 = variability chart (
Y ((ColList1 [i])),
X (:Operators, :Parts),
Model ("Crossed"),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Show group means (1),
Points Jittered( 1 ),
AIAG Labels( 0 ),
Show Box Plots( 1 ),
Mean Diamonds( 1 ),
Mean Plots( 1 ),
Historical Sigma(0),
Name( "Gauge R&R" )(5.15),
Name( "Gauge R&R Report" )(1),
Automatic Recalc( 1 ),
);
);
);
temp = report (v1)["GaugeR&R"][table box(1)] << make combined data table;
dtOut << concatenate( temp, append to first table( 1 ) );
close(temp, nosave);
tb << Add( "TwoSideSpec", vlb2 = V List Box() ) ;
current data table(dt_raw);
For( i = 1, i <= N Items( ColList2 ), i++,
vlb2 << append(
v2 = variability chart(
Y( (ColList2[i]) ),
X( :Operators, :Parts ),
Model( "Crossed" ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Show group means( 1 ),
Points Jittered( 1 ),
AIAG Labels( 0 ),
Show Box Plots( 1 ),
Mean Diamonds( 1 ),
Mean Plots( 1 ),
Historical Sigma( 0 ),
Name( "Gauge R&R" )(5.15),
Name( "Gauge R&R Report" )(1),
Automatic Recalc( 1 ),
);
);
);
temp = report(v2)["GaugeR&R"][table box(1)] << make combined data table;
dtOut << concatenate( temp, append to first table( 1 ) );
close(temp, nosave);
data table ("GRR_Summary") << select where (:Measurement Source != "Gauge R&R");
data table ("GRR_Summary") << delete rows;回复：GRR 报告我重新编写了代码，并根据可用的数据表对其进行了测试，它似乎可以正常工作。看看它是否适合你
Names Default To Here( 1 );
dt = Current Data Table();
dtOut = New Table( "Guage R&R Summary" );
colList = dt << get column names( continuous, string );
New Window( "GRR",
For( i = 1, i <= N Items( ColList ), i++,
theChart = dt << variability chart(
Y( (ColList[i]) ),
X( :Operators, :Parts ),
Model( "Crossed" ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Show group means( 1 ),
Points Jittered( 1 ),
AIAG Labels( 0 ),
Show Box Plots( 1 ),
Mean Diamonds( 1 ),
Mean Plots( 1 ),
Historical Sigma( 0 ),
Name( "Gauge R&R" )(5.15, 0, 0, 0),
Name( "Gauge R&R Report" )(1),
Automatic Recalc( 1 ),
);
temp = Report( theChart )["GaugeR&R"][Table Box( 1 )] << make combined data table;
dtOut << concatenate( temp, append to first table( 1 ) );
Close( temp, nosave );
)
);
回复：GRR 报告我试过你的脚本。 for 循环不起作用。它只报告第一个参数。
回复：GRR 报告我会在每个变异性图表之后输出有问题的表格，然后将它连接到一个主表，然后继续下一个变异性图表。就像是：
dtOut = New Data Table( "Guage R&R Summary" );
New Window( "GRR",
For( i = 1, i <= N Items( ColList ), i++,
variability chart(
Y( (ColList[i]) ),
X( :Operators, :Parts ),
Model( "Crossed" ),
Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
Show group means( 1 ),
Points Jittered( 1 ),
AIAG Labels( 0 ),
Show Box Plots( 1 ),
Mean Diamonds( 1 ),
Mean Plots( 1 ),
Historical Sigma( 0 ),
Name( "Gauge R&R" )(5.15),
Name( "Gauge R&R Report" )(1),
Automatic Recalc( 1 ),
);
temp = Report( variability chart[1] )["GaugeR&R"][Table Box( 1 )] << make combined data table;
dtOut << concatenate( temp, append to first table( 1 ) );
Close( temp, nosave );
)
);
data table ("GR&R summary") << select where (:Measurement Source != "Gauge R&R");
data table ("GR&R summary") << delete rows;
