559670_fr-FR

liliconcom

Comment ajouter une étiquette à la ligne de référence rouge ?

Salut,

Comment puis-je ajouter une étiquette aux lignes de référence ?

 

Voici mon code :

Aucun conseil?

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Mean = 60;
std = 0.5;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue, 
   
    <<SET function=""></SET>

 

Personnalisation de masseRe : Comment ajouter une étiquette à la ligne de référence rouge ?

.

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

La ligne de référence supprimée fonctionne correctement sur mon système.Le problème avec le Revert Axis est que si quelque chose sur l'axe a été modifié, il reviendra au paramètre d'origine lorsque le Revert Axis est exécuté.Ainsi, si la plage ou les incréments réels de l'axe ont été modifiés, l'axe de retour ramène l'axe à l'original.Je pense que le problème que vous rencontrez est peut-être un problème de timing, j'ai donc ajouté un Wait(0) qui, je pense, pourrait résoudre le problème pour vous.De plus, vous ne pointiez plus vers les bons graphiques après avoir ajouté la colonne Poids à la plateforme de variabilité.Après ce changement, la structure de l'affichage de sortie est modifiée.Il existe désormais 2 branches déclarantes distinctes.

go[1]

et

go[2]

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
wMean = 105;
wstd = 2;
std = 0.5;
LL = Mean - (sliderValue * 3 * std);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
wLL = wMean - (sliderValue * 3 * wstd);
wUL = wMean + (sliderValue * 3 * wstd);
wholdLL = LL;
wholdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    wLL = wMean - (sliderValue * 3 * wstd);
    wUL = wMean + (sliderValue * 3 * wstd);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb[1] )[AxisBox( 1 )];
    gbfb2 = Report( gb[2] )[AxisBox( 1 )];
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    wLL = wMean - (sliderValue * 3 * wstd);
    wUL = wMean + (sliderValue * 3 * wstd);
    //gbfb1 << revert axis;
    try(gbfb1 << remove ref line(holdLL));
    try(gbfb1 << remove ref line(holdUL));
    try(gbfb2 << remove ref line(wholdLL));
    try(gbfb2 << remove ref line(wholdUL));
    wait(0);
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     gbfb2 << add ref line( wLL, Solid, red, "LL" );
     gbfb2 << add ref line( wUL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    wholdLL = wLL;
    wholdUL = wUL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb[1] )[AxisBox( 1 )];
     gbfb2 = Report( gb[2] )[AxisBox( 1 )];
     LL = Mean - (sliderValue * 3 * std);
     UL = Mean + (sliderValue * 3 * std);
     wLL = wMean - (sliderValue * 3 * wstd);
     wUL = wMean + (sliderValue * 3 * wstd);
     try(gbfb1 << remove ref line(holdLL));
     try(gbfb1 << remove ref line(holdUL));
     try(gbfb2 << remove ref line(wholdLL));
     try(gbfb2 << remove ref line(wholdUL));
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     gbfb2 << add ref line( wLL, Solid, red, "LL" );
     gbfb2 << add ref line( wUL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height, : weight ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );

 )  
);

Consultez le nouveau code pour savoir comment le changement est géré.

 

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

@txnelson Supprimer la ligne de référence ne fonctionne pas. Je suis arrivé à inverser l'axe.

Une autre question : si, par exemple, j'utilise 2 graphiques de variabilité de taille et de poids, j'aimerais ajouter une ligne de référence aux deux et varier avec le curseur. Comment pourrais-je mettre en œuvre cela ?

 

Voici le code avec l'axe de retour : je souhaite ajouter une ligne de référence aux deux graphiques de variabilité et faire varier la ligne de référence avec le curseur.

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
std = 0.5;
LL = Mean - (sliderValue * 3 * 0.5);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb )[AxisBox( 1 )];
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    gbfb1 << revert axis;
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb )[AxisBox( 1 )];
     LL = Mean - (sliderValue * 3 * 0.5);
     UL = Mean + (sliderValue * 3 * std);
     gbfb1 << revert axis;
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height, : weight ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );

 )  
);

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

Voici une refonte du code qui utilise la ligne add ref pour afficher les lignes dynamiques

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
std = 0.5;
LL = Mean - (sliderValue * 3 * 0.5);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb )["Graph Builder"][AxisBox( 2 )];
    LL = Mean - (sliderValue * 3 * 0.5);
    UL = Mean + (sliderValue * 3 * std);
    Try( gbfb1 << remove ref line( holdLL ) );
    Try( gbfb1 << remove ref line( holdUL ) );
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb )["Graph Builder"][AxisBox( 2 )];
     LL = Mean - (sliderValue * 3 * 0.5);
     UL = Mean + (sliderValue * 3 * std);
     Try( gbfb1 << remove ref line( holdLL ) );
     Try( gbfb1 << remove ref line( holdUL ) );
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );
  gb = dt << Graph Builder(

   Size( 373, 325 ), 

   Show Control Panel( 0 ), 

   Variables( X( Transform Column( "Row", Formula( Row() ) ) ), Y( :height ) )
  );
 )  
);

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

Le script du curseur doit supprimer la ligne de référence précédente et ajouter la nouvelle ligne lorsque la variable change.

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

Je ne sais pas si vous pouvez déplacer le script graphique en dehors de Frame Box, mais si vous acceptez d'avoir l'étiquette dans FrameBox

Vous pouvez ajouter du texte à votre script graphique

Text Color("Red");
Text({0, LL}, "Lower");
Text({0, UL}, "Upper");

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

@Jed_Campbell Merci. Je souhaite déplacer dynamiquement les lignes de référence à l'aide d'un curseur. L'ajout de lignes de référence ne se déplace pas dynamiquement en faisant varier la zone de curseur.

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

Au lieu d'utiliser le code Add Graphics Script, pourriez-vous utiliser Add Ref Line pour contourner le problème ?

 

Graph Builder(
 Transform Column( "Row", Formula( Row() ) ),
 Variables( X( :Row ), Y( :height ) ),
 Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) ),
 SendToReport(
  Dispatch(
   {},
   "Row",
   ScaleBox,
   {Add Ref Line( LL, "Solid", "Black", "My Label", 1 )}
  )
 )
);

Re : Comment ajouter une étiquette à la ligne de référence rouge ?

Peut être ça: Ajouter des lignes de référence aux graphiques

Re : Comment ajouter une étiquette à la ligne de référence rouge ?