안녕하세요,
X축에 "TimeStamp"를, Y축에 "Process Step"을 사용하여 제조 라인의 여러 "의심되는" 로트를 매핑하려고 합니다. 나는 이 데이터에 도구 유지 관리 "이벤트"를 중첩시키고 싶었습니다. 이상적으로는 Event Lines and Comments on Control Charts 게시물에 표시된 것처럼 "이벤트"에 대해 유사한 모양을 원했습니다.
그래프 빌더에서 이것을 구현하려고 하는데 막혔습니다. 어떤 조언이라도 대단히 감사하겠습니다. 샘플 테이블을 첨부하겠습니다. "Event_type" 또는 "Event_Comment" 열을 사용하여 도구 유지 관리 로그가 있는 각 날짜에 수직선을 그릴 수 있는지 확인하려고 합니다.
이벤트 라인이 나오도록 할 수 있었습니다. 마우스를 올렸을 때 이러한 댓글을 활성화하는 방법에 대해 누군가 도움을 줄 수 있습니까?
안녕하세요 @gzmorgan0 님,
첫 번째 게시물에서 명확하지 않았으며 포럼으로 돌아가는 것이 지연된 점 죄송합니다. 그래프 빌더에서 관리도를 만들려고 하지 않습니다. 제가 제공한 엑셀 테이블에서 제가 달성하려는 목표에 대한 사진을 첨부했습니다. 이 그림이 내 질문을 명확하게 해주기를 바랍니다. 또한 필요에 따라 사용할 수 있도록 "정적 주석"과 "호버 주석"을 갖는 옵션을 배우고 싶습니다.
정말 감사합니다!!
@bharathu ,
흠, JSL을 읽을 수 있다면 제공하신 링크에 해결책이 있습니다. 아래는 GraphBuilder를 사용하여 그린 참조 링크의 데이터입니다. 그리고 스크립트. 하단 근처의 설명 줄 "Shift Two" 근처에 비슷한 값을 가진 두 개의 점이 있으며 메모가 있습니다. 메모가 서로 충돌합니다. 제공하신 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;
