82489_de-DE

liliconcom

Hinzufügen von Post-hoc-Gruppen zu Plots

Ist es möglich, Buchstaben zu Diagrammen hinzuzufügen, um Post-hoc-Unterschiede (z. B. Tukey's HSD p<0,05) anzuzeigen? Normalerweise verwende ich GraphBuilder, um einen Plot zu erstellen, ihn zu kopieren, in Adobe Illustrator einzufügen und dann manuell Kleinbuchstaben (a=höchster, b=nächsthöherer ... f=niedrigster) zur Bezeichnung hinzuzufügen post-hoc Unterschiede (aus der Ausführung des statistischen Modells unter „Modell anpassen“). Ich vermute, dass dies der einzige Weg ist, dies zu tun, aber ich dachte nur, ich frage nach, falls jemand ein benutzerdefiniertes Skript geschrieben hat, das Anmerkungen (sogar nur Sternchen in einfacheren Beispielen mit zwei Beispielen) über/neben setzt Plotwerte. In diesem Beispiel habe ich die Post-hoc-Gruppen in Spalten eingefügt.

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Exzellent! Ich hätte nie daran gedacht, die Zeilen- und Spaltenbeschriftungen zu verwenden, aber es scheint, dass sie mit Liniendiagrammen verwendet werden können.

 

Ich könnte am besten einen „Bedarf“ für JMP entwickeln, der eine Erweiterung davon ist: Wenn Sie Graph Builder verwenden, können Sie zusammenfassende Statistiken wie Mittel- und Fehlerbalken zeichnen lassen. Wenn es unterhalb der Fehlerbalken eine weitere Option für Post-hoc-Gruppenbezeichnungen gäbe, wäre das großartig! Aber andererseits ist es keine große Sache, die Mittel zu kopieren und einzufügen, std. Devs. und Post-hoc-Gruppen in eine andere Tabelle und verwenden Sie dann Graph Builder, um die Zusammenfassungsdaten (anstelle der Rohdaten) darzustellen. Nochmals vielen Dank und hoffe, dass dies für andere nützlich ist.

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Was ich zuvor vernachlässigt habe, ist das Hinzufügen von Beschriftungen zu einzelnen Punkten, indem ich die Zeilen auswähle, die beschriftet werden sollen, und zu „Zeilen“ > „Beschriften/Beschriften aufheben“ gehe.Dies sollte es Ihnen ermöglichen, in diesem Diagramm das zu tun, was Sie möchten.Ich habe Ihr Beispiel grundsätzlich neu erstellt (außer ohne die Fehlerbalken), aber ich musste die Diagramme einzeln protokollieren, weil ich die Beschriftungen für jedes Panel ändern musste.

 

So sieht das Endergebnis aus:

 

 

 

Ich hänge die Journaldatei an, aber es gibt einen frustrierenden Fehler, bei dem die benutzerdefinierten Zeileneinstellungen nach dem Speichern und erneuten Öffnen des Journals durcheinander geraten.Sie werden wahrscheinlich bemerken, dass alle Linien gestrichelt sind, wenn Sie es öffnen.

 

Datentabellenskript (auch hier kann die Datentabelle nicht direkt angehängt werden):

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 )
)

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Ich möchte so etwas haben: eine Behandlung auf der x-Achse (aufsteigend vs. nicht aufsteigend), dann stellen die Symbole zwei verschiedene Temperaturregime dar. In Panel c können Sie Wechselwirkungen zwischen den beiden Prädiktorvariablen sehen, in D jedoch nicht. In den Panels bd habe ich Buchstaben eingefügt, um Post-hoc-Unterschiede aufzuzeigen. Ich frage mich, ob ich eine solche Figur in JMP erstellen könnte?

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Könnten Sie ein Bild davon hochladen, wie die Handlung, die Sie sich vorstellen, aussehen könnte?Ich bin mir sicher, dass es eine Möglichkeit gibt, JMP dazu zu bewegen, es zu schaffen.

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Großartig! Geniale Idee, nur die Tukey-Gruppen ganz unten zu haben.

 

Ich muss mir überlegen, wie ich das bei Interaktionsdiagrammen umsetzen kann. Derzeit kann ich nur mehrere Auflistungen der Behandlungsgruppen erstellen, eine für jede Tukey-Gruppe (siehe Bild). In diesem Beispiel gibt es zwei Behandlungen mit jeweils zwei Gruppen, daher gäbe es idealerweise nur zwei Gruppen auf der x-Achse.

 

Seltsamerweise erhalte ich beim Versuch, die JMP-Tabelle hochzuladen, eine Fehlermeldung, weshalb ich stattdessen das Bild bereitstelle.

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Sie können auf jeden Fall Beschriftungsfelder verwenden.Eine andere Idee wäre, die Spalte mit den Tukey-Beschriftungen nach unten auf die X-Achse zu ziehen und diese Spalte in der Spalte auf der anderen X-Achse zu verschachteln.Hier ist ein Beispiel eines anderen Diagramms mit denselben Daten, bei dem ich die Tukey-Buchstaben auf der X-Achse verwendet habe, die in der X-Achsen-Variablen „Gruppen“ verschachtelt sind.

 

 

 

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Eindrucksvoll! Es funktionierte. Ich weiß nicht, warum ich dachte, dass es so schwierig sein würde. Es ist wie Sie sagten: Kopieren Sie einfach die Buchstabengruppen des Tukey und fügen Sie sie in ihre eigenen Spalten ein, legen Sie sie als Spaltenbeschriftungen fest und fügen Sie sie dann auf diese Weise dem Diagramm hinzu. Das einzige Problem, das ich sehe, ist, dass ich nicht herausfinden kann, wie ich das für Nicht-Balken-Plots machen soll, da ich für diese die Funktion „Beschriftung“ nicht sehe. Irgendwelche Ideen? Können die Beschriftungsfelder beispielsweise in einem Liniendiagramm über die Symbole gezogen werden? Danke nochmal für deine Hilfe.

Betreff: Post-hoc-Gruppen zu Plots hinzufügen

Ich denke, das ist ohne allzu viel Arbeit und ohne Skripting möglich.Die Grundidee besteht darin, eine Datentabelle aus Ihrem Tukey-Verbindungsbuchstabenbericht zu erstellen und diese Buchstaben mit Ihren Originaldaten zu verknüpfen, wobei der Gruppenname mit der Spalte „Ebenen“ aus der Tukey-Tabelle übereinstimmt.Kombinieren Sie dann die Spalten mit den Buchstabengruppen, indem Sie sie auswählen > mit der rechten Maustaste auf eine der hervorgehobenen Spalten klicken > Neue Formelspalte > Verketten (mit Leerzeichen oder mit Komma).Wählen Sie als Nächstes die resultierende Spalte aus und verwenden Sie sie für Beschriftungen (Spalten > Beschriftung/Beschriftung aufheben).

 

Erstellen Sie abschließend Ihr Diagramm im Graph Builder.Nachdem ich ein Balkendiagramm erstellt hatte, konnte ich mit den Steuerelementen des Bedienfelds für „Balken“ Fehlerbalken und Beschriftungen hinzufügen, wie Sie es gezeigt haben.

 

**Die Community erlaubt mir nicht, die Tabelle zu veröffentlichen („Der Inhalt des Anhangs stimmt nicht mit seinem Dateityp überein“).Hier ist das Skript, um es zu reproduzieren:

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]" ) )
)