52311_ja-JP

liliconcom

フォレスト プロットのバーとエラーバーの色は?

私は森林区画を作成しており、2 つのスタイルを考え出しました。

行の色でバー、ポイント、エラーバーの色を制御しようとしています:

私の質問は、ソリッド バーとエラー バーが目的の色にならないのはなぜですか?

dt = New Table( "Forest Plot", Add Rows( 5 ), 
 New Column( "EVENT_NAME", Character( 20 ), "Nominal",
  Set Values( {"AAAAAAA", "BBBBBBB", "CCCCCCC", "DDDDDDD", "EEEEEEE"} ) ),
 New Column( "DISPROP025", Numeric, "Continuous", Format( "Fixed Dec", 16, 2 ),
  Set Values(
   [5.3766744840813, 1.28687381477736, 5.96303490967794, 1.55531597890029, 2.34164191312678] ) ),
 New Column( "DISPROP", Numeric, "Continuous", Format( "Fixed Dec", 16, 2 ),
  Set Values(
   [5.76756983251198, 1.49287821887835, 7.02941951612351, 3.83591362397761, 2.62194430908125] ) ),
 New Column( "DISPROP975", Numeric, "Continuous", Format( "Fixed Dec", 16, 2 ),
  Set Values(
   [6.06935482201811, 1.66251397924122, 7.91895228410917, 6.92389142535734, 2.84619058478479] ) ),
 New Column( "Alert", Character, "Nominal",
  Formula( If( :DISPROP025 > 1 & :DISPROP > 2, "Y", "N" ) ) ),
 Set Row States( [13568, 13056, 13568, 13568, 13568] )
);

// Bars + central point
dt << Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :DISPROP025 ),
  X( :DISPROP, Position( 1 ) ),
  X( :DISPROP975, Position( 1 ) ),
  Y( :EVENT_NAME )
 ),
 Elements(
  Bar( X( 1 ), X( 3 ), Y, Legend( 9 ), Bar Style( "Range" ) ),
  Points( X( 2 ), Y, Legend( 10 ), Jitter( 0 ) )
 ),
 SendToReport(
  Dispatch( {}, "DISPROP025", ScaleBox,
   {Min( 0 ), Add Ref Line( 1, "Dotted", "Dark Red", "", 2 ),
   Label Row( Show Major Grid( 1 ) )}
  ),
  Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
  Dispatch( {}, "X title", TextEditBox, {Set Text( "Disproportionality" )} ),
  Dispatch( {}, "Y title", TextEditBox, {Set Text( "PT" )} )
 )
);

// Error bars
dt << Graph Builder(
 Show Control Panel( 0 ),
 Variables(
  X( :DISPROP025 ),
  X( :DISPROP, Position( 1 ) ),
  X( :DISPROP975, Position( 1 ) ),
  Y( :EVENT_NAME )
 ),
 Elements(
  Bar( X( 1 ), X( 3 ), Y, Legend( 9 ), Bar Style( "Interval" ) ),
  Points( X( 2 ), Y, Legend( 10 ), Jitter( 0 ) )
 ),
 SendToReport(
  Dispatch( {}, "DISPROP025", ScaleBox,
   {Min( 0 ), Add Ref Line( 1, "Dotted", "Dark Red", "", 2 ),
   Label Row( Show Major Grid( 1 ) )}
  ),
  Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
  Dispatch( {}, "X title", TextEditBox, {Set Text( "Disproportionality" )} ),
  Dispatch( {}, "Y title", TextEditBox, {Set Text( "PT" )} )
 )
);

Re: フォレスト プロットのバーとエラーバーの色は?

それは「政府の仕事に十分近い」巧妙な解決策です。線幅を 2 に太くしたところ、わずかなずれは目立ちません。ありがとうクリス！

Re: フォレスト プロットのバーとエラーバーの色は?

まあ、くそー。もう 1 つの方法は、DISPROP 列を 1 つに積み重ねて、値列 (以下のスクリプトでは data と呼ばれます) を連続させることです。 次に、このスクリプトを使用します

Graph Builder(
 Size( 992, 630 ),
 Show Control Panel( 0 ),
 Variables( X( :Data ), Y( :EVENT_NAME ), Overlay( :Alert ) ),
 Elements(
  Points(
   X,
   Y,
   Legend( 5 ),
   Jitter( 0 ),
   Summary Statistic( "Median" ),
   Error Bars( "Range" )
  )
 ),
 SendToReport(
  Dispatch( {}, "Data", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
  Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} )
 )
);

近いですが、グリッド線とオーバーレイを使用したデータ ポイントについては、まだ少しずれがあります。

Re: フォレスト プロットのバーとエラーバーの色は?

まだ喜びはありません。Y アラートと N アラートが混在している場合、エラー バーがグリッド線からずれているように見えます。

コードは次のとおりです。

Graph Builder(
 Size( 726, 451 ),
 Show Control Panel( 0 ),
 Show Legend( 0 ),
 Variables(
  X( :DISPROP025 ),
  X( :DISPROP975, Position( 1 ) ),
  X( :DISPROP, Position( 1 ) ),
  Y( :EVENT_NAME ),
  Overlay( :Alert )
 ),
 Elements(
  Bar( X( 1 ), X( 2 ), X( 3 ), Y, Legend( 8 ), Bar Style( "Interval" ) )
 ),
 SendToReport(
  Dispatch( {}, "DISPROP025", ScaleBox,
   {Min( 0 ), Add Ref Line( 1, "Dotted", "Dark Red", "", 1 ),
   Label Row( Show Major Grid( 1 ) )}
  ),
  Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
  Dispatch( {}, "400", ScaleBox,
   {Legend Model(
    8,
    Properties( 0, {Line Color( 51 ), Line Width( 2 )} ),
    Properties( 1, {Line Color( 51 ), Marker( "FilledCircle" )} ),
    Properties( 2, {Line Color( 53 ), Line Width( 2 )} ),
    Properties( 3, {Line Color( 53 ), Marker( "FilledCircle" )} )
   )}
  )
 )
);

Re: フォレスト プロットのバーとエラーバーの色は?

オーバーレイを使用する際の鍵は、ポイント グラフ要素を追加しないことです。 上部のポイントアイコンをクリックしてオフにします。 次に、左下の Bar options/discolsure ボックスで、変数 DISPROP の横にチェックを入れます。 ポイントは、エラー バーにインラインで追加されません。

Re: フォレスト プロットのバーとエラーバーの色は?

もう 1 つの難問 - Alert 列を Overlay ロールにドラッグすると、色を適切に制御できます。ただし、ポイントは水平線上にありますが、エラーバーはそうではありません。これを修正する方法はありますか？Alert を Color ロールにドラッグすると、「ジッター」は発生しませんが、エラー バーの色を設定できません。

Re: フォレスト プロットのバーとエラーバーの色は?

ありがとうクリス。Forest Plots を検索しましたが、Richard の非常に優れたアドインは表示されませんでした。あなたのコーディング ソリューションも気に入っています。

Re: フォレスト プロットのバーとエラーバーの色は?

待って、方法を見つけた。 コントロールパネルを開いて、一番下のバーにあるセクションに行くと、varialbe セクションがあります。 それを開いて、すべての変数を確認します。必要な場所にポイントが表示されます。 ポイント要素をグラフから削除します。 次に、オーバーレイに Alert 変数を使用します。

 

したがって、スクリプトは次のようになります

Graph Builder(
 Size( 606, 564 ),
 Variables(
  X( :DISPROP025 ),
  X( :DISPROP, Position( 1 ) ),
  X( :DISPROP975, Position( 1 ) ),
  Y( :EVENT_NAME ),
  Overlay( :Alert )
 ),
 Elements(
  Bar( X( 1 ), X( 3 ), X( 2 ), Y, Legend( 9 ), Bar Style( "Interval" ) )
 ),
 SendToReport(
  Dispatch(
   {},
   "DISPROP025",
   ScaleBox,
   {Add Ref Line( 1, "Dotted", "Dark Red", "", 2 ),
   Label Row( Show Major Grid( 1 ) )}
  ),
  Dispatch( {}, "EVENT_NAME", ScaleBox, {Label Row( Show Major Grid( 1 ) )} ),
  Dispatch(
   {},
   "400",
   ScaleBox,
   {Legend Model(
    9,
    Properties( 0, {Line Color( 6 )} ),
    Properties( 1, {Marker( "Dot" )} ),
    Properties( 2, {Line Color( -5682409 )} ),
    Properties( 3, {Marker( "Dot" )} )
   )}
  ),
  Dispatch( {}, "X title", TextEditBox, {Set Text( "Disproportionality" )} ),
  Dispatch( {}, "Y title", TextEditBox, {Set Text( "PT" )} )
 )
);

Re: フォレスト プロットのバーとエラーバーの色は?Alert 変数を使用して色を付ける必要がある場合があります。 これはバー グラフでは機能しますが、エラー バー グラフでは機能しません。エラー バーの色は、凡例の色によって制御されます。 エラーバーごとに異なる色をスクリプト化する方法がわかりません。Re: フォレスト プロットのバーとエラーバーの色は?

やあ、

 

森林区画に関する Richard Zink のアドインをご覧になりましたか?

 

https://community.jmp.com/t5/JMP-Add-Ins/Forest-Plot-Add-In/ta-p/23977

 

アドインは本質的に zip ファイルであるため、ファイル拡張子を .zip に変更して解凍できます。 そこに彼のJSLがあり、おそらくその一部を使用できます。

 

クリス