110695_fr-FR

liliconcom

Barres de contrainte dans PlotColBox pour tirer de 0 origine

Hé la communauté,

 

J'essaie d'imiter une zone de tableau dans un rapport, comme vous obtenez avec TukeyHSD dans Fit Y by X, mais je rencontre un problème avec le graphique à barres dessiné dans un PlotColBox.  Les longueurs de barres sont tracées avec des intervalles de confiance pour chaque barre.  Mon problème est que je veux que les barres soient tirées de l'origine afin que vous puissiez voir visuellement où la limite de confiance inférieure descend au-dessous de 0 (indiquant un résultat non significatif), mais les barres sont tirées de la valeur minimale sur l'échelle .   Je ne trouve rien dans l'index de script pour modifier ce comportement.

 

En fin de compte, il devrait ressembler beaucoup à l'intrigue de ce rapport de différences ordonnées:

Voici ce que je reçois (exemple de travail minimal montré ici):

Je règle la plage sur l'axe horizontal du graphe en utilisant << Set Scale et en lui donnant la valeur minimale LCL et max UCL afin que le tracé soit suffisamment large pour afficher toutes les valeurs LCL et UCL, mais les barres à tirer à partir de la même valeur minimale.

Voici un script pour l'exemple de travail minimal:

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

Merci d'avance pour l'aide!

Re: barres de contrainte dans PlotColBox pour dessiner à partir de 0 origine

@cwillden Cela fonctionne aussi:

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: barres de contrainte dans PlotColBox pour dessiner à partir de 0 origine

Bonne idée! Laissez-moi intégrer cela dans mon script actuel, mais je pense que cela fonctionnera parfaitement.  Merci!

Re: barres de contrainte dans PlotColBox pour dessiner à partir de 0 origine

Bonjour Cameron, cela semble fonctionner:

• Fixer la taille avec des valeurs factices
• Enlevez les nuls.

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>