箱ひげ図グラフを作成してローカルに保存し、ppt に挿入する方法こんにちは、JMPer
以下のようなテストデータが1つありました。
各列をフィクスチャと比較できる箱ひげ図を自動構築したいのですが、各列には 1 つのコメントがありました。 （タイトル形式：Fixture Comparison：Col--Remark）。
Col_1、Col_2、Col_3、Col_4 を含む箱ひげ図グラフ ループを自動構築する方法。そして箱ひげ図を自動保存してpptに挿入しますか？
どうもありがとうございます。
自動化とスクリプト作成基本的なデータ分析とモデリングRe: 箱ひげ図を作成してローカルに保存し、ppt に挿入する方法テストデータをアップロードします。
Re: 箱ひげ図を作成してローカルに保存し、ppt に挿入する方法PowerPoint プレゼンテーションを保存する経験はあまりありませんが、このスクリプトは、毎回同じ列形式を想定して、要求されたことを実行します。調整を行わなくても、:Col_n 列の数を増減できます。
<MMM><YYYY> <HH24><MM><SS>" ) );cols = Filter Each( {val, idx}, dt << Get Column Names( "String" ), Contains( val, "Col_" ) ); markarray = Associative Array( :Col, :Remark ); Each( {val, idx},cols, text = val || "--" || markarray[Substitute( val, "_", "" )]; pres = dt << グラフ ビルダー( Size( 534, 450 ) 、コントロール パネルの表示( 0 )、変数( X( :Fixture )、Y( Column( val ) ) )、要素( Points( X, Y, Legend( 7 ) )、箱ひげ図( X, Y, Legend( 8 ) ) ), SendToReport( Dispatch( {}, "グラフ タイトル", TextEditBox, {Set Text( "Fixture Comparison: " || text )} ) ) ); If( idx == 1, Report( pres ) << プレゼンテーションを保存( "$DOCUMENTS/Fixtures " || thedate || ".pptx" ), Report( pres ) << Save Presentation( "$DOCUMENTS/Fixtures " || thedate || ".pptx", Append ) ); (pres < < ウィンドウを取得) << ウィンドウを閉じる;<BR /> );</SS></MM></HH24></YYYY></MMM>Names Default To Here( 1 );
dt = Open(
"$DOWNLOADS/jmp test data.xlsx",
Worksheets( "Sheet1" ),
Use for all sheets( 1 ),
Concatenate Worksheets( 0 ),
Create Concatenation Column( 0 ),
Worksheet Settings(
1,
Has Column Headers( 1 ),
Number of Rows in Headers( 1 ),
Headers Start on Row( 1 ),
Data Starts on Row( 2 ),
Data Starts on Column( 1 ),
Data Ends on Row( 0 ),
Data Ends on Column( 0 ),
Replicated Spanned Rows( 1 ),
Replicated Spanned Headers( 0 ),
Suppress Hidden Rows( 1 ),
Suppress Hidden Columns( 1 ),
Suppress Empty Columns( 1 ),
Treat as Hierarchy( 0 ),
Multiple Series Stack( 0 ),
Import Cell Colors( 0 ),
Limit Column Detect( 0 ),
Column Separator String( "-" )
)
);
thedate = Uppercase( Format( Today(), "Format Pattern", "
Re: 箱ひげ図を作成してローカルに保存し、ppt に挿入する方法こんにちは、mmarchandTSI
どうもありがとうございます。 「連想配列」が便利です。
PPTに保存した画像も美しくありません。
このように画像をpptに保存したいです。出来ますか？
Re: ボックスプロット チャートを作成し、ローカルに保存してから ppt に挿入する方法グラフビルダーツールバーで行われるように、PowerShellスクリプトを使用して画像をクリップボードにコピーし、PPTに貼り付けることができます。
Re: ボックスプロット チャートを作成し、ローカルに保存してから ppt に挿入する方法この方法では、さらに数行のコードを使用して、元のグラフ ビルダー形式が維持されます。
Names Default To Here( 1 );
dt = Open(
"$DOWNLOADS/jmp test data.xlsx",
Worksheets( "Sheet1" ),
Use for all sheets( 1 ),
Concatenate Worksheets( 0 ),
Create Concatenation Column( 0 ),
Worksheet Settings(
1,
Has Column Headers( 1 ),
Number of Rows in Headers( 1 ),
Headers Start on Row( 1 ),
Data Starts on Row( 2 ),
Data Starts on Column( 1 ),
Data Ends on Row( 0 ),
Data Ends on Column( 0 ),
Replicated Spanned Rows( 1 ),
Replicated Spanned Headers( 0 ),
Suppress Hidden Rows( 1 ),
Suppress Hidden Columns( 1 ),
Suppress Empty Columns( 1 ),
Treat as Hierarchy( 0 ),
Multiple Series Stack( 0 ),
Import Cell Colors( 0 ),
Limit Column Detect( 0 ),
Column Separator String( "-" )
)
);
thedate = Uppercase( Format( Today(), "Format Pattern", "<DL><DD><MMM><YYYY> <HH24><MM><SS>" ) );
cols = Filter Each( {val, idx}, dt << Get Column Names( "String" ), Contains( val, "Col_" ) );
remarkarray = Associative Array( :Col, :Remark );
For Each( {val, idx}, cols,
text = val || "--" || remarkarray[Substitute( val, "_", "" )];
pres = dt << Graph Builder(
Size( 534, 450 ),
Show Control Panel( 0 ),
Variables( X( :Fixture ), Y( Column( val ) ) ),
Elements( Points( X, Y, Legend( 7 ) ), Box Plot( X, Y, Legend( 8 ) ) ),
SendToReport( Dispatch( {}, "graph title", TextEditBox, {Set Text( "Fixture Comparison: " || text )} ) )
);
Report(pres)<<SAVE picture=""></SAVE></SS></MM></HH24></YYYY></MMM></DD><P><CODE class=" language-jsl">
Re: ボックスプロット チャートを作成し、ローカルに保存してから ppt に挿入する方法hogiさん、ありがとうございます。私はMACを使用しましたが、ツールバーは私にとっては効果がありません。
