722308_ja-JP

liliconcom

プロットに自動注釈を付ける

仕様ドキュメントを取得し、仕様制限とメモをデータ ファイルに適用するスクリプトを作成しました。私は、注釈として入力されたメモを後続のプロットに自動的に追加する方法を考え出そうとしていました。

ユーザーコミュニティからの多大な協力を得て、これを思いつきました。自動注釈を追加できるプロット タイプに関して、スクリプトをより柔軟にする明らかな機会があるかどうか疑問に思っていますか?

clear Globals();

Delete Symbols();



dt=Current Data Table();

cd=Column Dialog(

       exy =

       ColList( "Y",

              Min Col( 1 ),

              Max Col( 100 ),

       ),

       exx =

       ColList( "X",

              Min Col( 1 ),

              Max Col( 10 ),

       ),



);





eval(cd[1]);eval(cd[2]);

yyy=expr(y());

xxx=expr(x());

xval = exx[1];

for (i=1, i<=nitems(exy), i++,

insert into(yyy, exy[i]));

for (i=1, i<=nitems(exx), i++,

insert into(xxx, exx[i]));



nw = New Window( "Annotated Multiple Plots", V List Box( vlb = v List Box() ) );



For( i = 1, i <= N Items( exy ), i++,

Notes = exy[i] << Get Property( "Notes" );

       plots = V List Box(

       oneway( x( exx[1] ), y( exy[i] ),

              SendToReport(

              Dispatch(

                     {},

                     "Oneway Plot",

                     FrameBox,

                     Add Text Annotation(

                           Text( "Category: " || Notes ),

                           Fixed Size( 0 ),

                           Text Box( {0, 0, 0, 0} ),

                           Filled( 0 ),

                           Font( "Segoe UI", 10, "Bold" )

                     )

              ) )

       ));

       vlb << append( plots );

);

このスクリプトを改善する機会があれば、提案をお待ちしています。

ありがとう

12月

自動化とスクリプト作成Re: プロットの自動注釈

Y 列の入力には、数値列のみを指定できるように制限を設ける必要があります。