PowerPoint로 내보내기 위해 한 페이지의 기준 열에서 모든 컨트롤 차트 내보내기안녕하세요,
스크립트의 By 부분을 사용하여 20개의 별도 지하수 모니터링 우물에 대한 6개의 제어 차트를 만드는 데 사용하는 스크립트가 있습니다. 각 개별 모니터링 위치에 대한 6개의 제어 차트를 파워포인트 프레젠테이션의 한 페이지에 인쇄할 수 있도록 스크립트 끝에 추가하고 싶습니다. 결과는 각 페이지에 6개의 그래프가 있는 20페이지 길이의 파워포인트 프레젠테이션입니다. 이 작업을 어디서부터 시작해야 하는지에 대한 조언을 찾고 있습니까? 차트를 만드는 데 사용하는 스크립트는 다음과 같습니다.
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
By(:LOC_NAME)
);
감사합니다!
결과 공유 및 소통Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.@txnelson 스크립트 감사합니다! 그건 완벽합니다. 각 샘플의 6개 그래프를 모두 하나의 파워포인트 슬라이드에 저장할 수 있도록 한 부분을 수정할 수 있었습니다. 도움을 주셔서 정말 감사하고 대본을 읽으면서 배우는 것이 즐거웠습니다.
다시 한번 감사합니다!
Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.다음은 예제 데이터 테이블에서 PowerPoint 출력을 생성하는 스크립트입니다.
Names Default To Here( 1 );
dt = Current Data Table();
// Get a list of the LOC_Name's that are in the data
Summarize( dt, bygroup = by( :LOC_Name ) );
// Create a display window to put the graphs into
Nw = New Window( "Control Charts" );
// Loop across all of the LOC_Name's creating the six control
// charts
For( i = 1, i <= N Items( bygroup ), i++,
// Create the Outline Box to hold the 6 charts
ob = Outline Box( "Control Charts for LOC_Name=" || byGroup[i] );
// Create a display box of three objects wide
// With the 6 control charts, it will make it a
// 2 row 3 column output
lub = Lineup Box( N Col( 3 ) );
// Create the 6 charts
ccb = dt << Control Chart Builder( invisible,
Show Capability( 0 ),
Show control panel( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
)
),
show limit summaries( 0 ),
where( :loc_name == Eval( bygroup[i] ) )
);
// Loop across the output pulling out the 6 Picture Boxes
// that contains the desired output for each control chart
// and add them to the Lineup Box
For( k = 1, k <= 6, k++,
lub << append( Report( ccb )[Picture Box( i )] )
);
// Close the no longer needed Control Chart Builder window
Report( ccb ) << close window;
// Add the contents of the Line Up Box to the Outline Box
// but make it a single object so when saved to pptx it will
// be treated as a single graph
ob << append( lub << get picture );
// Add the current outline box to the display window
nw << append( ob );
);
// Save the graphs to PowerPoint
nw << save presentation( "$TEMP/myppt.pptx" );
// Display the PowerPoint output
Open( "$TEMP/myppt.pptx" );
내가 취한 접근 방식을 이해하고 필요한 조정을 할 수 있도록 시간을 내어 대본을 연구하십시오.디스플레이 트리에 대한 스크립팅 가이드의 섹션에서는 출력을 어떻게 분리하고 새로운 디스플레이 형식으로 다시 빌드했는지에 대한 배경 정보를 제공합니다.
Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.안녕하세요,
나는 그것들이 기본적으로 전치되도록 찾고 있습니다. 첨부된 그림을 참조하십시오. 그러면 각 6개의 그래프 세트를 하나의 jpg로 내보내고 파워포인트에 삽입할 것이기 때문입니다. LOC_NAME = 00-15A에 6개의 그래프가 있는 방법을 확인하고 다음 6개 그래프 세트는 LOC_NAME = 0016A입니다.
Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.이것이 당신이 찾고 있는 것입니까?
Names Default To Here( 1 );
dt = Current Data Table();
Summarize( dt, bygroup = by( :LOC_Name ) );
Nw = New Window( "Control Charts", lb = Lineup Box( N Col( 2 ) ) );
For( i = 1, i <= N Items( bygroup ), i++,
vlb = V List Box(
dt << Control Chart Builder(
Show Capability( 0 ),
Show control panel( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y( :Chloride, :Cl_TDS, :Sodium, :Total Dissolved Solids, :Sulphate, :Calcium )
),
show limit summaries( 0 ),
where( :loc_name == Eval( bygroup[i] ) )
)
);
lb << append( vlb );
);Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.안녕하세요,
아이디어 주셔서 감사합니다. 라인업 상자를 포함하도록 스크립트를 약간 변경했습니다. 처음에는 'by' 열에 여러 개의 고유한 이름을 사용해 보았습니다. 그러나 각각의 고유한 이름에 대한 6개의 그래프를 3개씩 2개의 열로 나누지 않고 두 번째 열에 다른 샘플을 배치했습니다. 첨부된 사진을 참조하십시오.
그래서 6개의 그래프를 2개의 열로 분할하고 6개의 그래프 열에 하나의 고유한 값을 내보낼 수 있는지 확인하기 위해 하나의 고유한 값만 사용하여 다시 시도했습니다. 여전히 2열로 분리되지 않았습니다. 내가 도대체 뭘 잘못하고있는 겁니까?
다음은 스크립트의 일부입니다.
Nw = New Window( "Control Charts",
Lineup Box( N Col( 3 ),
Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
SendToReport(
Dispatch( {}, "Chloride Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Cl_TDS Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Sodium Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {},
"Total Dissolved Solids Limit Summaries",
OutlineBox,
{Close( 1 )}
),
Dispatch( {}, "Sulphate Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Calcium Limit Summaries", OutlineBox, {Close( 1 )} )
),by(:LOC_NAME);
);
);
);도움이 된다면 제 데이터 세트의 예도 포함시켰습니다.
도와주셔서 감사합니다.
Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.다음은 출력의 여러 열을 만드는 데 사용하는 방법 중 하나입니다.
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/big class.jmp" );
Nw = New Window( "Control Charts",
Lineup Box( N Col( 2 ),
Control Chart Builder(
Show Capability( 0 ),
Variables( Y( :height, :weight ) ),
by( :age )
)
)
);
Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.안녕!
당신의 답변에 감사드립니다. 나는 비디오를 보았고 파워포인트에 컨트롤 차트를 넣고 자동으로 업데이트하도록 하는 올바른 정보를 제공했습니다. 확실히 도움이 됩니다. 이제 각 컨트롤 차트 세트를 특정 폴더에 jpg로 저장하도록 스크립트에 추가했으며 말씀하신 대로 파워포인트에 삽입하겠습니다(링크 포함). 그러나 퍼즐의 마지막 조각은 내 jpg의 그래프를 가로 세 개, 아래 두 개로 정렬하는 것과 관련이 있습니다. 현재 그들은 6개를 내보내고 있는데 파워포인트 슬라이드에서는 보기 좋지 않습니다.첨부된 그림을 참조하십시오.
당신의 도움을 주셔서 감사합니다!
ccb = dt << Control Chart Builder(
Show Capability( 0 ),
Variables(
Subgroup( :SAMPLE_DATE ),
Y(
:Chloride,
:Cl_TDS,
:Sodium,
:Total Dissolved Solids,
:Sulphate,
:Calcium
),
),
SendToReport(
Dispatch( {}, "Chloride Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Cl_TDS Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Sodium Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {},
"Total Dissolved Solids Limit Summaries",
OutlineBox,
{Close( 1 )}
),
Dispatch( {}, "Sulphate Limit Summaries", OutlineBox, {Close( 1 )} ),
Dispatch( {}, "Calcium Limit Summaries", OutlineBox, {Close( 1 )} )
),
By(:LOC_NAME)
);
for(c=1, c<=NItems(ccb), c++,
thisrep = Report(ccb[c]);
firstOB = thisrep[OutlineBox(1)];
thistitle = firstOB << getTitle;
firstOB << save picture ("desktop/"||thistitle);
);Re: PowerPoint로 내보내기 위해 한 페이지의 열별로 모든 컨트롤 차트를 내보냅니다.안녕,
몇 달 전에 보고서를 PowerPoint에 자동으로 저장하는 방법을 보여 주는 Mastering JMP 세션을 녹화했습니다( 결과를 공유하는 JMP 마스터하기 , 33:30부터 시작).이것은 시작하기에 좋은 곳일 수 있습니다.살펴보고 이것이 올바른 방향을 가리키는지 알려주세요.
