複数のグラフを JSL に保存するこんにちは、dataCols が数値列であるこのスクリプトを実行しています。
OWA = Data Table ("Filtered_raw") << Oneway(
Y(eval( dataCols)),
X( " WhichTest"),
Each Pair( 0 ),
Means( 0 ),
Plot Actual by Quantile( 0 ),
Plot Quantile by Actual( 1 ),
Mean Diamonds( 1 )
);これにより、数値列の一元配置分析と通常の分位点プロットが作成されます。 今、私はこのスクリプトでこれらのプロットを保存しようとしています:
OWA << report;
OWA << Save MSWord( "\\snl\home\malepp\Software\JMP\JMP_Report\Oneway_normalQ.doc");
問題は、最後の列の Oneway/Quantile プロットのみを保存することです。 それらすべてをドキュメントに保存するにはどうすればよいですか?
ありがとう！
Re: JSLで複数のグラフを保存するはるかに優れたコード........ウェンディに感謝
Re: JSLで複数のグラフを保存するに追加するには@txnelsonの応答がなければ、ジャーナル メッセージを Oneway オブジェクトのリストに送信することで、For() ループをなくすことができます。OWA はリストを表すため、ジャーナル メッセージはリスト内の各アイテムに送信されます。あとは、Current Journal() 関数を使用してジャーナルへの参照を取得するだけです。以下は、上記のサンプル スクリプトの変更バージョンです。
Names Default To Here( 1 );
// Setup an Example Data table
dt = Open( "$SAMPLE_DATA/blood pressure.jmp" );
dataCols = dt << get column names( continuous );
dt:Dose << set name( "WhichTest" );
dt << set name( "Filtered_raw" );
// Run the charts
OWA = Data Table( "Filtered_raw" ) << Oneway(
Y( Eval( dataCols ) ),
X( "WhichTest" ),
Each Pair( 0 ),
Means( 0 ),
Plot Actual by Quantile( 0 ),
Plot Quantile by Actual( 1 ),
Mean Diamonds( 1 )
);
// Create a journal containing each Oneway
OWA << Journal;
// Obtain a reference to the journal
jj = Current Journal();
// Save the journal to disk
jj << Save MSWord( "$DOCUMENTS\Oneway_normalQ.doc" );
jj << Close Window;
Re: JSLで複数のグラフを保存する綺麗な！ N アイテムをループして各ループ内に追加しようとする同様のアプローチを試みましたが、それでも機能しませんでした。 しかし、私はジャーナルを使用していませんでした。
同じことを PowerPoint に保存することに関するアドバイスはありますか? 特に、pptのフォーマット？ Word を使用したのは、ページごとに 1 つの分析が得られるためです (Oneway と Normal Quantile Plot が 1 つずつあり、タイトルは正常に見えました)。 一方、ppt では、1 回の分析に 3 ページを要し、書式設定がめちゃくちゃです。
ありがとう！！！！
Re: JSLで複数のグラフを保存する発生している問題は、レポート出力が 1 つではなく、実行された OneWay 分析の実際の数に基づいて n 個の出力があることです。したがって、MSWord の保存を実行すると、各出力が 1 つずつ保存されます。ただし、出力を .doc ファイルに追加するのではなく、置き換えます。したがって、実行する必要があるのは、各出力を JMP ジャーナルに配置し、ジャーナルを保存することです。これは、以下のスクリプトで行われることです
Names Default To Here( 1 );
// Setup an Example Data table
dt = Open( "$SAMPLE_DATA/blood pressure.jmp" );
dataCols = dt << get column names( continuous );
dt:Dose << set name( "WhichTest" );
dt << set name( "Filtered_raw" );
// Run the charts
OWA = Data Table( "Filtered_raw" ) << Oneway(
Y( Eval( dataCols ) ),
X( " WhichTest" ),
Each Pair( 0 ),
Means( 0 ),
Plot Actual by Quantile( 0 ),
Plot Quantile by Actual( 1 ),
Mean Diamonds( 1 )
);
// Create a Journal to store the output in
jj = New Window( "The Output", <<JOURNAL></JOURNAL>
