82489_ko-KR

liliconcom

플롯에 사후 그룹 추가

사후(예: Tukey의 HSD p<0.05) 차이를 나타내기 위해 플롯에 문자를 추가할 수 있습니까? 제가 일반적으로 하는 일은 GraphBuilder를 사용하여 플롯을 만들고 복사하여 Adobe Illustrator에 붙여넣은 다음 수동으로 소문자(a=최고, b=다음 최고.....f=최저)를 추가하여 사후 차이점("적합 모델"에서 통계 모델을 실행한 것과 다름) 나는 이것이 이 작업을 수행할 수 있는 유일한 방법이라고 생각하지만 누군가 위/인접에 주석(간단한 2샘플 예제에서는 별표라도)을 추가하는 사용자 정의 스크립트를 작성한 경우에 물어보고 싶다고 생각했습니다. 플롯 값. 이 예에서는 열 내에 사후 그룹을 삽입했습니다.

Re: 플롯에 사후 그룹 추가

훌륭한! 행과 열 레이블을 사용할 생각은 전혀 없었는데, 선 그래프에서도 사용할 수 있는 것 같습니다.

 

JMP 개발에 대한 "필요"는 이것의 확장입니다. 그래프 빌더를 사용할 때 평균 및 오류 막대와 같은 요약 통계를 표시할 수 있습니다. 사후 그룹 레이블에 대한 오류 막대 아래에 또 다른 옵션이 있다면 정말 좋을 것입니다! 하지만 다시 말하지만, 표준 수단을 복사하여 붙여 넣는 것은 큰 문제가 아닙니다. devs. 및 사후 그룹을 다른 테이블로 묶은 다음 Graph Builder를 사용하여 원시 데이터가 아닌 요약 데이터를 표시합니다. 다시 한 번 감사드리며 이 내용이 다른 사람들에게도 도움이 되기를 바랍니다.

Re: 플롯에 사후 그룹 추가

이전에 무시한 것은 레이블을 지정하려는 행을 선택하고 행 > 레이블/레이블 해제로 이동하여 개별 포인트에 레이블을 추가하는 것입니다.이를 통해 이 그래프에서 원하는 작업을 수행할 수 있습니다.기본적으로 오류 막대 없이 예제를 다시 만들었지만 각 패널의 레이블을 변경해야 했기 때문에 한 번에 하나씩 플롯을 저널링해야 했습니다.

 

최종 결과는 다음과 같습니다.

 

 

 

저널 파일을 첨부하고 있는데 저널을 저장하고 다시 열면 사용자 정의 라인 설정이 엉망이 되는 답답한 버그가 있습니다.열면 모든 선이 점선으로 표시되는 것을 볼 수 있습니다.

 

데이터 테이블 스크립트(다시 말하지만 데이터 테이블을 직접 연결할 수 없음):

New Table( "Multipanel Example with Tukey labels",
 Add Rows( 4 ),
 Set Header Height( 59 ),
 New Script(
  "Growth",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :Growth ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Line( X, Y, Legend( 10 ) ),
    Points( X, Y, Legend( 11 ), Jitter( "None" ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "Growth",
     ScaleBox,
     {Format( "Fixed Dec", 12, 1 ), Min( 0.4 ), Max( 0.9 ),
     Inc( 0.1 ), Minor Ticks( 0 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      10,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      11,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} )
   )
  )
 ),
 New Script(
  "chlorophyll",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :chlorophyll a ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Points( X, Y, Legend( 6 ), Jitter( "None" ) ),
    Line( X, Y, Legend( 7 ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "chlorophyll a",
     ScaleBox,
     {Format( "Fixed Dec", Use thousands separator( 1 ), 12, 0 ),
     Min( 0 ), Max( 8 ), Inc( 2 ), Minor Ticks( 0 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      6,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      7,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {DispatchSeg(
      Marker Seg( "Marker (1)" ),
      label offset( {0, -8, -13}, {1, -12, 26} )
     ), DispatchSeg(
      Marker Seg( "Marker (2)" ),
      label offset( {0, -5, 21}, {1, -14, -16} )
     )}
    )
   )
  )
 ),
 New Script(
  "Symbiodinium density",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :Symbiodinium density ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Points( X, Y, Legend( 4 ), Jitter( "None" ) ),
    Line( X, Y, Legend( 5 ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "Symbiodinium density",
     ScaleBox,
     {Min( 1.5 ), Max( 4 ), Inc( 0.5 ), Minor Ticks( 0 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      4,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      5,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {DispatchSeg(
      Marker Seg( "Marker (1)" ),
      label offset( {0, 2, 24}, {1, -3, -16} )
     ), DispatchSeg(
      Marker Seg( "Marker (2)" ),
      label offset( {0, 3, -15}, {1, 1, 24} )
     )}
    )
   )
  )
 ),
 New Script(
  "max dark-adapted",
  Graph Builder(
   Size( 518, 446 ),
   Show Control Panel( 0 ),
   Show Legend( 0 ),
   Variables(
    X( :Treatment ),
    Y( :Name( "max. dark-adapted quantum yield" ) ),
    Overlay( :Temperature Regime )
   ),
   Elements(
    Points( X, Y, Legend( 3 ), Jitter( "None" ) ),
    Line( X, Y, Legend( 4 ) )
   ),
   SendToReport(
    Dispatch(
     {},
     "max. dark-adapted quantum yield",
     ScaleBox,
     {Min( 0.72 ), Max( 0.77 ), Inc( 0.01 ), Minor Ticks( 1 )}
    ),
    Dispatch(
     {},
     "400",
     ScaleBox,
     {Legend Model(
      3,
      Properties(
       0,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     ), Legend Model(
      4,
      Properties(
       0,
       {Line Color( 0 ), Line Style( "Dotted" ),
       Fill Color( 0 )},
       Item ID( "1", 1 )
      ),
      Properties(
       1,
       {Line Color( 0 ), Fill Color( 0 )},
       Item ID( "2", 1 )
      )
     )}
    ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Text( "" )} ),
    Dispatch(
     {},
     "Graph Builder",
     FrameBox,
     {DispatchSeg(
      Marker Seg( "Marker (1)" ),
      label offset( {0, -4, -17}, {1, -6, -18} )
     ), DispatchSeg(
      Marker Seg( "Marker (2)" ),
      label offset( {0, -7, -14}, {1, -4, -17} )
     )}
    )
   )
  )
 ),
 New Column( "Treatment",
  Character,
  "Nominal",
  Set Property( "Value Ordering", {"upwelling", "non-upwelling"} ),
  Set Values( {"upwelling", "upwelling", "non-upwelling", "non-upwelling"} ),
  Set Display Width( 132 )
 ),
 New Column( "Temperature Regime",
  Numeric,
  "Nominal",
  Format( "Best", 12 ),
  Set Values( [1, 2, 1, 2] )
 ),
 New Column( "Growth",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [0.78, 0.75, 0.68, 0.82] )
 ),
 New Column( "Symbiodinium density",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [2.8, 3.05, 3.45, 3.38] )
 ),
 New Column( "Tukey Symbiodinium",
  Character,
  "Nominal",
  Set Values( {"B", "B", "A", "A"} )
 ),
 New Column( "chlorophyll a",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [7.2, 4.3, 5.5, 6.5] )
 ),
 New Column( "Tukey chlorophyll",
  Character,
  "Nominal",
  Set Values( {"A", "C", "BC", "AB"} )
 ),
 New Column( "max. dark-adapted quantum yield",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Set Values( [0.76, 0.749, 0.753, 0.739] ),
  Set Display Width( 148 )
 ),
 New Column( "Tukey max",
  Character,
  "Nominal",
  Set Values( {"A", "B", "B", "C"} )
 ),
 Set Row States( [32776, 248, 32776, 248] ),
 Set Label Columns( :Tukey max )
)

Re: 플롯에 사후 그룹 추가

나는 다음과 같은 것을 갖고 싶습니다. x 축에 하나의 처리(용승 대 비용승)를 적용한 다음 아이콘은 두 가지 다른 온도 체제를 나타냅니다. 패널 c에서는 두 예측 변수 간의 상호 작용을 볼 수 있지만 D에서는 볼 수 없습니다. 패널 bd에는 사후 차이점을 표시하는 문자를 포함했습니다. JMP에서 이런 수치를 만들 수 있을지 궁금합니다.

Re: 플롯에 사후 그룹 추가

당신이 구상하고 있는 줄거리가 어떤 모습일지 사진을 업로드해 주실 수 있나요?JMP의 팔을 비틀어서 만들 수 있는 방법이 있을 거라고 확신합니다.

Re: 플롯에 사후 그룹 추가

엄청난! Tukey 그룹을 맨 아래에 두는 것은 훌륭한 아이디어입니다.

 

상호작용 플롯에 대해 이 작업을 수행하는 방법을 생각해야 합니다. 현재로서는 각 Tukey 그룹에 대해 하나씩 여러 치료 그룹 목록을 만드는 것만 가능합니다(이미지 참조). 이 예에는 각각 두 개의 그룹이 있는 두 개의 처리가 있으므로 x축에는 이상적으로 두 개의 그룹만 있습니다.

 

이상하게도 JMP 테이블을 업로드하려고 하면 오류 메시지가 나타나서 대신 이미지를 제공하고 있습니다.

Re: 플롯에 사후 그룹 추가

캡션 상자를 확실히 사용할 수 있습니다.또 다른 아이디어는 Tukey 레이블이 있는 열을 X축으로 끌어서 해당 열을 다른 X축 열에 중첩시키는 것입니다.다음은 "그룹" x축 변수에 중첩된 X축에 Tukey 문자를 사용한 동일한 데이터의 다른 그래프 예입니다.

 

 

 

Re: 플롯에 사후 그룹 추가

엄청난! 효과가 있었습니다. 왜 그렇게 어려울 것이라고 생각했는지 모르겠습니다. 당신이 말한 것과 같습니다. Tukey의 문자 그룹을 자체 열에 복사하여 붙여넣고 열 레이블로 설정한 다음 그런 식으로 플롯에 추가하면 됩니다. 내가 보는 유일한 문제는 막대가 아닌 플롯에 대해 "레이블" 기능이 표시되지 않기 때문에 이를 수행하는 방법을 알 수 없다는 것입니다. 어떤 아이디어가 있나요? 예를 들어 캡션 상자를 선 그래프의 아이콘 위로 드래그할 수 있습니까? 도움을 주셔서 다시 한번 감사드립니다.

Re: 플롯에 사후 그룹 추가

나는 이것이 너무 많은 작업이나 스크립팅 없이도 가능하다고 생각합니다.기본 아이디어는 Tukey 연결 문자 보고서에서 데이터 테이블을 만들고 해당 문자를 Tukey 테이블의 수준 열과 그룹 이름과 일치하는 원본 데이터에 결합하는 것입니다.그런 다음 열을 선택하여 문자 그룹과 결합 > 강조 표시된 열 중 하나를 마우스 오른쪽 버튼으로 클릭 > 새 수식 열 > 연결(공백 또는 쉼표 사용)을 선택합니다.그런 다음 결과 열을 선택하고 이를 레이블에 사용합니다(열 > 레이블/레이블 해제).

 

마지막으로 Graph Builder에서 플롯을 만듭니다.막대 차트를 만든 후 막대에 대한 제어판 컨트롤을 사용하여 보여드린 대로 오류 막대와 레이블을 추가할 수 있었습니다.

 

**커뮤니티에서 표 게시를 허용하지 않습니다("첨부 파일의 내용이 파일 형식과 일치하지 않습니다").이를 재현하는 스크립트는 다음과 같습니다.

New Table( "ExamplePlotTukeyLabels",
 Add Rows( 17 ),
 New Script(
  "Source",
  Data Table( "Untitled 4" ) << Join(
   With( Data Table( "Untitled 6" ) ),
   By Matching Columns( :Groups = :Level ),
   Drop multiples( 0, 0 ),
   Include Nonmatches( 0, 0 ),
   Preserve main table order( 1 )
  )
 ),
 New Script(
  "Make Into Data Table",
  Names Default To Here( 1 );
  platform = Current Data Table() << Oneway(
   Y( :Y ),
   X( :Groups ),
   All Pairs( 1 )
  );
  Wait( 0 );
  Report( platform )[Outline Box( "Oneway Analysis of Y By Groups" )][
  Outline Box( "Means Comparisons" )][
  Outline Box( "Comparisons for all pairs using Tukey-Kramer HSD" )][
  Outline Box( "Connecting Letters Report" )][Table Box( 1 )] <<
  Make Into Data Table;
  Report( platform ) << Close Window;
 ),
 New Script(
  "Example with Tukey Levels",
  Graph Builder(
   Size( 518, 550 ),
   Show Control Panel( 0 ),
   Variables( X( :Groups ), Y( :Y ) ),
   Elements(
    Bar(
     X,
     Y,
     Legend( 4 ),
     Error Bars( "Standard Error" ),
     Label( "Label by Row" )
    )
   )
  )
 ),
 New Column( "Groups",
  Character,
  "Nominal",
  Set Values(
   {"Group 1", "Group 1", "Group 1", "Group 1", "Group 1", "Group 2",
   "Group 2", "Group 2", "Group 2", "Group 2", "Group 3", "Group 3",
   "Group 3", "Group 3", "Group 3", "Group 4", "Group 4"}
  )
 ),
 New Column( "Y",
  Numeric,
  "Continuous",
  Format( "Best", 12 ),
  Formula(
   Random Normal( 15, 3 ) + Col Mean( Random Normal( 0, 10 ), :Groups )
  ),
  Suppress Eval
 ),
 New Column( "Level",
  Character,
  "Nominal",
  Set Values(
   {"A", "A", "A", "A", "A", "B", "B", "B", "B", "B", "C", "C", "C", "C",
   "C", "D", "D"}
  )
 ),
 New Column( "~Letter Column A",
  Character,
  "Nominal",
  Set Values(
   {"", "", "", "", "", "A", "A", "A", "A", "A", "", "", "", "", "", "A",
   "A"}
  )
 ),
 New Column( "~Letter Column B",
  Character,
  "Nominal",
  Set Values(
   {"B", "B", "B", "B", "B", "", "", "", "", "", "B", "B", "B", "B", "B",
   "B", "B"}
  )
 ),
 New Column( "Concatenate[~Le...etter Column B]",
  Character,
  "Nominal",
  Formula( :Name( "~Letter Column A" ) || " " || :Name( "~Letter Column B" ) )
 ),
 New Column( "Mean",
  Numeric,
  "Continuous",
  Format( "Fixed Dec", 12, 6 ),
  Set Values(
   [12.8498772929854, 12.8498772929854, 12.8498772929854, 12.8498772929854,
   12.8498772929854, 19.105279210907, 19.105279210907, 19.105279210907,
   19.105279210907, 19.105279210907, 11.7021088825322, 11.7021088825322,
   11.7021088825322, 11.7021088825322, 11.7021088825322, 16.4722902997683,
   16.4722902997683]
  )
 ),
 Set Label Columns( :Name( "Concatenate[~Le...etter Column B]" ) )
)