763081_ko-KR

liliconcom

데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

첨부된 예제 데이터 테이블에서 저장된 스크립트는 아래에 붙여넣은 차트를 그립니다.

첫 번째 열에 TestStage 번호가 있고 두 번째 열에 캡션 상자 값이 있는 데이터 테이블의 캡션 상자 값을 가져오고 싶습니다. JSL을 통해 이를 수행하는 방법은 무엇입니까?

로컬 데이터 필터를 통해 주를 선택한 후 그래프 빌더 창에서 버튼을 클릭하여 데이터 테이블을 동적으로 생성할 수 있다면 훨씬 더 유용할 것입니다. JSL을 통해 이것이 가능합니까?

자동화 및 스크립팅윈도우Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

Tabulate 사용을 고려해 보셨나요?

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			gb = dt << Graph Builder(
				Size(744, 332),
				Show Control Panel(0),
				Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
				Elements(
					Points(X, Y, Legend(8)),
					Caption Box(X, Y, Legend(10), Summary Statistic("N"))
				),
				SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
			),
			tab = dt << Tabulate(Show Control Panel(0), Add Table(Row Table(Grouping Columns(:TestStage))))
		)
	)
);

이것이 충분하지 않은 경우 표를 데이터 표로 바꾸는 버튼을 추가할 수 있습니다(필요한 경우 표를 숨기도록 설정).

Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

@jthi 감사합니다. 실제 사건에 대한 귀하의 제안을 받았습니다. 이것이 가능하다면 두 가지를 더 제어하고 싶습니다.

테이블의 "N"(파란색 화살표)을 "다이 테스트됨"과 같은 것으로 변경하는 방법은 무엇입니까?

차트와 표로 구성된 표(아래 빨간색 원으로 표시) 아래의 텍스트를 제거하는 방법은 무엇입니까?

또한 "N"의 합을 구하는 방법은 무엇입니까?

Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

무언가를 기반으로 다시 생성하는 것처럼 보이기 때문에 표에서 쉽게 숨기는 방법을 잘 모르겠습니다. Where 문이 너무 크면 다시 추가하거나 이상한 것을 추가합니다. 필터 변경 핸들러를 사용하여 이를 수행할 수 있지만 가능한 한 이를 피하려고 노력할 것입니다. (나는 그것을 어지럽히기보다는 Where 텍스트를 유지하는 것이 좋습니다).

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			gb = dt << Graph Builder(
				Size(744, 332),
				Show Control Panel(0),
				Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
				Elements(
					Points(X, Y, Legend(8)),
					Caption Box(X, Y, Legend(10), Summary Statistic("N"))
				),
				SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
			),
			tab = dt << Tabulate(
				Change Item Label(Statistics(N, "Die tested")),
				Show Control Panel(0),
				Add Table(Column Table(Statistics(N)), Row Table(Grouping Columns(:TestStage)))
			)
		)
	)
);
wait(0);
(nw << XPath("//TextBox[contains(text(), 'Where(')]")) << Visibility("Collapse");

Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

@jthi 감사합니다. JMP의 where 문은 마음에 들지 않습니다. 하지만 차트를 다른 Windows 앱에 복사할 때는 그런 문이 없는 편이 나았을 것입니다.

표 아래에 "N"(즉, 테스트된 총 다이)의 합계를 표시할 수 있습니까?

Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

추가 V 목록 상자를 추가하여 그래프 빌더를 래핑하고 표로 만들 수 있습니다.

더보기...

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			V List Box(
				gb = dt << Graph Builder(
					Size(744, 332),
					Show Control Panel(0),
					Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
					Elements(
						Points(X, Y, Legend(8)),
						Caption Box(X, Y, Legend(10), Summary Statistic("N"))
					),
					SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
				),
			)
		)
	)
);

Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

@jthi 감사합니다. 하지만 스크립트를 사용하여 JMP 16에서 V 목록 상자를 가져오지 마세요.

또한 이 경우 합계는 차트에 표시되는 값 14(2+2+3+3+2+2)를 의미합니다.

Re: 데이터 테이블에서 캡션 상자 값을 얻는 방법은 무엇입니까?

이를 위해 별도의 표를 사용할 수 있습니다.

더보기...

Names Default To Here(1);

dt = Open("$DOWNLOADS/example_DataTable.jmp");

nw = New Window("",
	Data Filter Context Box(
		H List Box(
			dt << Data Filter(Local,
				Add Filter(
					columns(:TestWk),
					Modeling Type(:TestWk, Nominal),
					Where(
						:TestWk == {19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32}
					),
					Display(:TestWk, Find(Set Text("")))
				)
			),
			V List Box(
				gb = dt << Graph Builder(
					Size(744, 332),
					Show Control Panel(0),
					Variables(X(:TestWk), Y(:Median), Group Y(:TestStage)),
					Elements(
						Points(X, Y, Legend(8)),
						Caption Box(X, Y, Legend(10), Summary Statistic("N"))
					),
					SendToReport(Dispatch({}, "TestWk", ScaleBox, {Label Row(Show Major Grid(1))}))
				),
				tab2 = dt << Tabulate(Show Control Panel(0), Add Table(Column Table(Statistics(N))))
			),
			tab = dt << Tabulate(
				Change Item Label(Statistics(N, "Die tested")),
				Show Control Panel(0),
				Add Table(Column Table(Statistics(N)), Row Table(Grouping Columns(:TestStage)))
			)
		)
	)
);
wait(0);
(nw << XPath("//TextBox[contains(text(), 'Where(')]")) << Visibility("Collapse");