110695_de-DE

liliconcom

Coerce Bars in PlotColBox zum Zeichnen von 0 Origin

Hey Community,

 

Ich versuche, eine Tabellenbox in einem Bericht zu simulieren, wie Sie es mit TukeyHSD in Fit Y von X erhalten, aber ich habe ein Problem mit dem Balkendiagramm, das in einer PlotColBox gezeichnet ist.  Die Stablängen werden mit Konfidenzintervallen für jeden Stab dargestellt.  Mein Problem ist, dass ich möchte, dass die Balken vom Ursprung aus gezeichnet werden, so dass Sie visuell sehen können, wo die untere Vertrauensgrenze unter 0 sinkt (was auf ein nicht signifikantes Ergebnis hinweist), aber die Balken werden vom Mindestwert der Skala gezogen .   Ich kann im Skriptindex nichts finden, um dieses Verhalten zu ändern.

 

Letztlich sollte es der Darstellung in diesem geordneten Differenzenbericht sehr ähnlich sein:

Hier ist was ich bekomme (minimales Arbeitsbeispiel hier gezeigt):

Ich setze den Bereich auf der horizontalen Achse in der Grafik mit << Set Scale und setze ihn auf die minimale LCL und die maximale UCL, sodass die Grafik groß genug ist, um alle LCL- und UCL-Werte anzuzeigen. Dies führt jedoch zu Balken ab dem gleichen Mindestwert zu zeichnen.

Hier ist ein Skript für das minimale Arbeitsbeispiel:

diffs = {14.5833333333333, 13.25, 13.1666666666667, 12.4166666666667, 11.8333333333333,
11.75, 11, 10.4166666666667, 9.58333333333333, 2.83333333333333, 2.16666666666667,
1.41666666666667, 1.41666666666667, 1.33333333333333, 0.833333333333334};

lcls = {7.61907259396521, 8.36035077512539, 6.22561115938687, 7.05705972526408,
6.99299436545608, 4.7114849776621, 5.68093889133607, 5.37459986573576,
4.09680778320344, -0.348570126295593, -5.63501808685501, -1.64446371477212,
-1.1943038377427, -6.25265936207625, -5.48781669649702};

ucls = {21.5475940727015, 18.1396492248746, 20.1077221739465, 17.7762736080693,
16.6736723012106, 18.7885150223379, 16.3190611086639, 15.4587334675976,
15.0698588834632, 6.01523679296226, 9.96835142018835, 4.47779704810545,
4.02763717107603, 8.91932602874292, 7.15448336316369};

New Window("Results",
 tb = Table Box(
  Number Col Box("Difference", diffs),
  Number Col Box("LCL", lcls),
  Number Col Box("UCL", ucls),
  Number Col Box("p-Value", p_vals[sort], Set Format(7, 97), Set Conditional Format("pValue")),
  Plot Col Box("", diffs, Upper(matrix(ucls)), Lower(matrix(lcls)), Set Scale(min(lcl), max(ucl)))
 )
);

Vielen Dank im Voraus für die Hilfe!

Re: Coerce Bars in PlotColBox zum Zeichnen von 0 Ursprung

@cwillden Das funktioniert auch:

scl = evallist({min(lcls), max(ucls)});
New Window("Results",
  OutlineBox("Custom Table",
 tb = Table Box(
  Number Col Box("Difference", diffs),
  Number Col Box("LCL", lcls),
  Number Col Box("UCL", ucls),
  Number Col Box("p-Value", p_vals, Set Format(7, 97), Set Conditional Format("pValue")),
  pcb = Plot Col Box("", scl  )
 )
 )
);
pcb << add element(diffs);
pcb << delete row(2);
pcb << delete row(1);
pcb << lower(matrix(lcls));
pcb << upper(matrix(ucls));

Re: Coerce Bars in PlotColBox zum Zeichnen von 0 Ursprung

Großartige Idee! Lassen Sie mich das in mein aktuelles Skript einarbeiten, aber ich gehe davon aus, dass dies perfekt funktionieren wird.  Vielen Dank!

Re: Coerce Bars in PlotColBox zum Zeichnen von 0 Ursprung

Hallo Cameron, das scheint zu funktionieren:

• Bestimmen Sie die Größe mit Dummy-Werten
• Entferne die Schnuller.

Names Default to Here(1);

diffs = {14.5833333333333, 13.25, 13.1666666666667, 12.4166666666667, 11.8333333333333,
11.75, 11, 10.4166666666667, 9.58333333333333, 2.83333333333333, 2.16666666666667,
1.41666666666667, 1.41666666666667, 1.33333333333333, 0.833333333333334};

lcls = {7.61907259396521, 8.36035077512539, 6.22561115938687, 7.05705972526408,
6.99299436545608, 4.7114849776621, 5.68093889133607, 5.37459986573576,
4.09680778320344, -0.348570126295593, -5.63501808685501, -1.64446371477212,
-1.1943038377427, -6.25265936207625, -5.48781669649702};

ucls = {21.5475940727015, 18.1396492248746, 20.1077221739465, 17.7762736080693,
16.6736723012106, 18.7885150223379, 16.3190611086639, 15.4587334675976,
15.0698588834632, 6.01523679296226, 9.96835142018835, 4.47779704810545,
4.02763717107603, 8.91932602874292, 7.15448336316369};
p_vals = {.00001, .00002, .00003, .00004, .00005, .0003, .00006, .00007, .0001, .0557,
  .9247, .6006, .4466, .9888, .9972
};

ndiffs = Insert(diffs,   eval List({min(lcls), max(ucls)} ) );
New Window("Results",
  OutlineBox("Custom Table",
 tb = Table Box(
  Number Col Box("Difference", diffs),
  Number Col Box("LCL", lcls),
  Number Col Box("UCL", ucls),
  Number Col Box("p-Value", p_vals, Set Format(7, 97), Set Conditional Format("pValue")),
  pcb = Plot Col Box("", ndiffs)
 )
 )
);
nr = nitems(ucls);

pcb << delete row(nr+2);
pcb << delete row(nr+1);
pcb <<LOWER></LOWER>