213845_es-ES

liliconcom

JSL: cambio de leyenda de gráfico dinámico

Hola amigos,

Estoy usando el código a continuación para cambiar la leyenda y las splines en el gráfico de bivirato por selección de usuario de cuadro de radio.

 

La parte de splines funciona bien pero la leyenda no cambiará

 

¿Algunas ideas?

//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 - cambio de leyenda de gráfico dinámico

Creo que encontré una manera de ejecutar esto en el gráfico de variabilidad.

¿Qué debo agregar si quiero un gráfico de variabilidad múltiple (usado por: ***) con leyenda dinámica?

 

 

 

//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 - cambio de leyenda de gráfico dinámico

hola gran guion

 

¿Cómo uso este script en un gráfico de variabilidad simple?

 

Mejor R

Ilán

Re: JSL - cambio de leyenda de gráfico dinámico

@RB ,

La leyenda debe ser eliminada y agregada por su secuencia de comandos. Además, creo que es más seguro eliminar elementos del último al primero.

Se adjuntan 2 guiones:

• DynamicChartLegend_Working.jsl, que realiza algunos cambios en su secuencia de comandos.
• DynamicChartLegend_Generic.jsl realiza más cambios para que no tenga que usar el código "cortador de galletas" para cada una de sus variables. Esto se hace usando variables de referencia y creando y usando la función GetLevels().

No mencionó qué versión de JMP está utilizando actualmente. Si estos scripts no funcionan, proporcione información sobre la versión de JMP.