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;
