213845_it-IT

liliconcom

JSL - modifica dinamica della legenda del grafico

Ciao amici,

Sto usando il codice qui sotto per cambiare la legenda e le spline nel grafico bivirato per la selezione dell'utente della scatola radio.

 

La parte spline funziona bene ma la legenda non cambierà

 

Qualche idea?

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

 

Ri: JSL - modifica della legenda del grafico dinamico

Penso di aver trovato un modo per eseguirlo sul grafico della variabilità.

Cosa devo aggiungere se voglio un grafico di variabilità multiplo (usando per:***) con legenda dinamica?

 

 

 

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

 

Ri: JSL - modifica della legenda del grafico dinamico

Ciao Grande sceneggiatura

 

Come posso utilizzare questo script su un semplice grafico di variabilità?

 

Miglior R

Ilan

Ri: JSL - modifica della legenda del grafico dinamico

@RB ,

La legenda deve essere rimossa e aggiunta dal tuo script. Inoltre, penso che sia più sicuro rimuovere gli elementi dall'ultimo al primo.

In allegato ci sono 2 script:

• DynamicChartLegend_Working.jsl che apporta alcune modifiche allo script.
• DynamicChartLegend_Generic.jsl apporta più modifiche in modo da non dover utilizzare il codice "cookie cutter" per ciascuna delle tue variabili. Questo viene fatto utilizzando variabili di riferimento e creando e utilizzando la funzione GetLevels().

Non hai specificato quale versione di JMP stai attualmente utilizzando. Se questi script non funzionano, fornire informazioni sulla versione di JMP.