213845_zh-CN

liliconcom

JSL——动态图表图例变化

大家好，

我正在使用下面的代码来更改每个单选框用户选择的二元图表中的图例和样条曲线。

 

样条曲线部分工作正常，但图例不会改变:(

 

有任何想法吗？

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

 

回复：JSL - 动态图表图例更改

我想我找到了一种在可变性图表上运行它的方法。

如果我想要多个（使用方：***）带有动态图例的可变图表，需要添加什么？

 

 

 

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

 

回复：JSL - 动态图表图例更改

嗨伟大的剧本

 

我如何在简单的可变性图表上使用这个脚本？

 

最好的R

伊兰

回复：JSL - 动态图表图例更改

@RB ,

图例必须由您的脚本删除和添加。 另外，我认为从最后到第一删除项目更安全。

附上2个脚本：

• DynamicChartLegend_Working.jsl 对您的脚本进行了一些更改。
• DynamicChartLegend_Generic.jsl 进行了更多更改，因此您不必为每个变量使用“千篇一律”代码。 这是通过使用参考变量以及通过创建和使用函数 GetLevels() 来完成的。

您没有提到您当前使用的是哪个版本的 JMP。 如果这些脚本不起作用，请提供有关 JMP 版本的信息。