213845_fr-FR

liliconcom

JSL - changement de légende de graphique dynamique

Bonjour les amis,

J'utilise le code ci-dessous pour modifier la légende et les splines dans le graphique biviral par sélection de l'utilisateur de la boîte radio.

 

La partie splines fonctionne bien mais la légende ne changera pas

 

Des idées?

//Begin Script;
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
variables = {"age", "sex"};
// Initial nlevels is the number of levels of 'age', as it is the first by-group used.
nlevels=6;  
 
// Creating the legend. For each selection, the previous spline fits are removed, then
// new ones are generated.
BC_legend = Panel Box( "Choose Legend", 
     legend = Radio Box(
           {"age", "sex"},
       fitVar = legend << Get Selected;

       Match( fitVar,

           "age",
   (Summarize(vals = By( :age ), c=count );
   For(ii = 1, ii <=nlevels, ii++,
   obj << (Curve[1] << Remove Fit );
    );
   obj << Group By( :age ) << Fit Spline( 0.1, standardized );
   nlevels = nItems(vals); 
    
   ),

           "sex",
   (Summarize(vals = By( :sex ), c=count );
   For(ii = 1, ii <=nlevels, ii++,
   obj << (Curve[1] << Remove Fit );
    );
   obj << Group By( :sex ) << Fit Spline( 0.1, standardized );
   nlevels = nItems(vals); )
           );
           
           ));
           
// Fitting the initial Bivariate fit with 'age' as the by-group, adding the legend
// to control the selections.           
nw = New Window( "BigClassBivariate", 
 HListBox( 
           
 obj = dt << Bivariate(
  Y( :weight ),
  X( :height ),
  Group By( :age ),
  Fit Spline( 0.1, standardized ),
  SendToReport(
  Dispatch(
   {},
   "Bivar Plot",
   FrameBox,
   {Frame Size( 493, 354 ),Marker Size( 2 ), Marker Drawing Mode( "Normal" ), Row Legend(
                                                            dt:(fitVar),
                                                            Color( 1 ),
                                                            Color Theme( "JMP Default" ),
                                                            Marker( 0 ),
                                                            Marker Theme( "Standard" ),
                                                            Continuous Scale( Cont ),
                                                            Reverse Scale( 0 ),
                                                            Excluded Rows( 0 )
                                                     )}

  )
 )
  );   ,
           
    
    BC_legend
    ));      
    
//End Script;

 

Re : JSL - modification de la légende du graphique dynamique

Je pense que j'ai trouvé un moyen de l'exécuter sur un graphique de variabilité.

Que dois-je ajouter si je veux un tableau de variabilité multiple (en utilisant par : ***) avec une légende dynamique ?

 

 

 

//Begin Script;
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
variables = {"age", "sex"};
// Initial nlevels is the number of levels of 'age', as it is the first by-group used.
fitVar = "age";
nlevels = 6;

// Creating the legend. For each selection, the previous spline fits are removed, then
// new ones are generated.
BC_legend = Panel Box( "Choose Legend",
 legend = Radio Box(
  {"age", "sex"},
  fitVar = legend << Get Selected;

  Match( fitVar, 

   "age",
    (Summarize( vals = By( :age ), c = count ) ; Report( obj )[Border Box( 2 )] << Delete ;
    Report( obj )[FrameBox( 1 )] << Row Legend( "age", color( 1 ), Marker( 1 ) ) ; 
// obj << Group By( :sex );
    nlevels = N Items( vals ) ; ; 

    ), 

   "sex",
    (Summarize( vals = By( :sex ), c = count ) ; Report( obj )[Border Box( 2 )] << Delete ;
    Report( obj )[FrameBox( 1 )] << Row Legend( "sex", color( 1 ), Marker( 1 ) ) ; 
// obj << Group By( :sex );
    nlevels = N Items( vals ) ; )
  );
 )
);

// Fitting the initial Bivariate fit with 'age' as the by-group, adding the legend
// to control the selections.
nw = New Window( "BigClassBivariate",
 H List Box(

  obj = dt << 

  Variability Chart(
   Y( :weight ),
   X( :height ),
   Analysis Type( "Choose best analysis (EMS REML Bayesian)" ),
   Connect Cell Means( 1 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 ),
   SendToReport(
    Dispatch(
     {},
     "Variability Chart",
     FrameBox,
     {Marker Size( 8 ), Marker Drawing Mode( "Normal" ) ;
     Row Legend(
      dt:(fitVar),
      Color( 1 ),
      Color Theme( "JMP Default" ),
      Marker( 0 ),
      Marker Theme( "Classic" ),
      Continuous Scale( Cont ),
      Reverse Scale( 0 ),
      Excluded Rows( 0 )
     )}
    )
   )
  ), 

  BC_legend
 )
);

//End Script;

 

Re : JSL - modification de la légende du graphique dynamique

Salut super script

 

Comment utiliser ce script sur un graphique de variabilité simple ?

 

Meilleur R

Ilan

Re : JSL - modification de la légende du graphique dynamique

@RB ,

La légende doit être supprimée et ajoutée par votre script. De plus, je pense qu'il est plus sûr de supprimer les éléments du dernier au premier.

Ci-joint 2 scripts :

• DynamicChartLegend_Working.jsl qui apporte quelques modifications à votre script.
• DynamicChartLegend_Generic.jsl apporte plus de modifications afin que vous n'ayez pas à utiliser de code "cookie cutter" pour chacune de vos variables. Cela se fait en utilisant des variables de référence et en créant et en utilisant la fonction GetLevels().

Vous n'avez pas mentionné la version de JMP que vous utilisez actuellement. Si ces scripts ne fonctionnent pas, veuillez fournir des informations sur la version de JMP.