如何建立箱線圖並保存到本地然後插入到ppt中嗨，JMPer
我有一個測試數據，如下所示。
我想自動建立箱線圖，可以將每個列與夾具進行比較，並且每個列都有一個註釋。 （標題格式：夾具對比：Col--備註）。
如何使用 Col_1、Col_2、Col_3、Col_4 自動建立這些箱線圖循環。並自動儲存箱線圖然後插入ppt？
非常感謝。
自動化和腳本編寫基礎資料分析與建模回覆：如何建立箱線圖並將其儲存到本地然後插入到ppt中上傳測試數據。
回覆：如何建立箱線圖並將其儲存到本地然後插入到ppt中我沒有太多儲存 PowerPoint 簡報的經驗，但此腳本可以滿足您的要求，每次都假設相同的列格式。它允許更多或更少的 :Col_n 列，而無需進行任何調整。
<MMM><YYYY> <HH24><MM><SS>" ) ); cols = Filter Each( {val, idx}, dt << 取得列名( "String" ), Contains( val, "Col_" ) ); remarkarray = 關聯數組( :Col, :Remark ); Each( {val, idx}, cols, text = val || "--" || remarkarray[Substitute( val, "_", "" )]; pres = dt << 圖形產生器( Size( 534, 450 ) , 顯示控制面板( 0 ), 變數( X( :Fixture ), Y( 列( val ) ) ), 元素( 點( X, Y, 圖例( 7 ) ), 箱線圖( X, Y, 圖例( 8 ) ) ), SendToReport( Dispatch( {}, "圖表標題", TextEditBox, {Set Text( "夾具比較: " || text )} ) ) ); If( idx == 1, Report( pres ) <<儲存簡報( "$DOCUMENTS/Fixtures " || thedate || ".pptx" ), Report( pres ) << 儲存簡報( "$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", "
回覆：如何建立箱線圖並將其儲存到本地然後插入到ppt中嗨，mmarchandTSI
非常感謝。 「關聯數組」對我很有用。
圖片保存到PPT同樣不美觀。
我想把圖片保存成這樣的ppt。是否可以？
回覆：如何建立箱線圖並將其儲存到本地然後插入到ppt中您可以將圖片複製到剪貼簿，然後透過 PowerShell 腳本將它們貼上到 PPT，就像在圖形產生器工具列中完成的那樣
回覆：如何建立箱線圖並將其儲存到本地然後插入到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">
回覆：如何建立箱線圖並將其儲存到本地然後插入到ppt中謝謝霍吉。我用的是MAC，它的工具列對我來說無效。
