こんにちは、
X軸に「タイムスタンプ」、Y軸に「プロセスステップ」を使用して、製造ライン上の複数の「疑わしい」ロットをマッピングしようとしています。 このデータにツールメンテナンスの「イベント」を重ね合わせたいと考えました。 理想的には、投稿に示されているように「イベント」も同様の外観にしたいと考えていました。管理図のイベント行とコメント。
これをグラフビルダーに実装しようとしてひどく立ち往生しています。 ヒントをいただければ幸いです。 サンプル表を添付します。 「Event_type」列または「Event_Comment」列を使用して、ツールのメンテナンス ログがある日付ごとに垂直線を描画できるかどうかを試してみます。
イベントラインを浮かび上がらせることができました。 カーソルを置いたときにこれらのコメントを有効にする方法について誰かが助けてくれますか?
こんにちは@gzmorgan0 、
最初の投稿で明確なことができず、またフォーラムに戻るのが遅れてしまい申し訳ありません。 グラフビルダーで管理図を作成しようとしているわけではありません。 私が提供した Excel テーブルから達成しようとしていることの写真を添付しました。 この写真で私の質問が明確になることを願っています。 また、必要に応じて使用できるように、「静的コメント」と「ホバーコメント」のオプションを学びたいと思います。
どうもありがとう！！
@バラトゥー、
うーん、JSL を読める場合は、提供したリンクに解決策があります。以下は、GraphBuilder を使用して描画された参照リンクのデータです。そして脚本。 下部近くのコメント行「Shift Two」の近くに、同様の値を持つ 2 つの点があり、メモがあることに注意してください。 音符が互いにぶつかり合います。提供した Excel の例には各ポイントにメモがあるため、コメントが衝突します。ホバーコメントを作成すると、ポイントをクリックするとコメントが表示されます。
したがって、どのような問題が発生しているのかは明らかではありません。
- エクセルを読んでいて、
- グラフビルダーの作成、
- コメントスクリプトを追加するか、
- コメントの衝突。
Names Default to Here(1);
dt = Open("$DOWNLOADS/Event Lines and Comments on Control Charts.jmp");
gb = dt << Graph Builder(
Size( 742, 456 ),
Show Control Panel( 0 ),
Variables( X( :ID ), Y( :Data ) ),
Elements( Line( X, Y, Legend( 5 ) ), Points( X, Y, Legend( 3 ) ) ),
SendToReport(
Dispatch(
{},
"Data",
ScaleBox,
{Min( -10 ), Max( 25 ), Inc( 5 ), Minor Ticks( 0 ),
Add Ref Line( 10, "Solid", "Medium Dark Green", "UCL", 3 ),
Add Ref Line( 17, "Solid", "Medium Dark Red", "CL", 2 ),
Add Ref Line( 3, "Solid", "Medium Dark Red", "LCL", 2 )}
),
Dispatch(
{},
"400",
ScaleBox,
{Legend Model(
5,
Properties(
0,
{Line Color( 1 ), Fill Color( 0 )},
Item ID( "Data", 1 )
)
)}
),
Dispatch(
{},
"400",
LegendBox,
{Legend Position( {3, [-1], 5, [-1]} ), Position( {-1, -1} )}
)
)
);
fb = report(gb)[FrameBox(1)];
fb << Frame Size(1350, 400);
fb << Add Graphics Script(
1,
Description( "Script" ),
For Each Row(
If( Is Missing( :Comment ) == 0,
V Line( Row() );
Text( Right Justified, {Row(), Col Maximum( :Data ) * 1.2},:Comment ))
);
For Each Row(
If( Is Missing( :Note ) == 0,
If( :Data <= Col Mean( :Data ),
Text( Right Justified,{Row(),:Data-:Data*1.1}, :Note ),
Text( Right Justified,{Row(),:Data * 1.1}, :Note )))
);
);
dt << select where(!IsMissing(:Note));
dt << colors(red);
dt << clear select;
