433697_zh-CN

liliconcom

JSL 帮助：获取为报告和表格框

大家好，

 

我最近开始编写 JSL，它使用 Table Box() 功能在新窗口中汇总一些信息，因为我希望用户能够选择行来执行下一步的流程。 有时制作交互式表格框可能很麻烦。我最近还了解到，您可以使用“获取为报告”命令将数据表转换为类似于表格框的交互式界面，这使得构建界面变得更加容易和快捷。

 

例如，请参阅此 JSL：

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );

RptWin = New Window( "Data Table as report",
Outline Box("Data Table as Report",
 dt_Rpt = dt << Get as Report(); 
  
 )
);

 

 

我遇到的唯一问题是如何像使用表格框一样在新窗口中使用输出。

 

在 Table Box 环境中，您可以设置函数，以便它返回您选择的信息，并且可以在代码中进一步使用这些信息。 但是，Get As Report 命令不允许您这样做。 至少我还没有找到任何有关如何执行此操作的示例，并且脚本索引中关于 Get As Report 命令的内容并不多。

 

下面的代码是我如何构建一个一次可选择单行的表格框的示例。

tb = Table Box(
 Number Col Box( "PC Number", Eval List( PC_n ) ),
 Number Col Box( "Eigenvalue", Eval List( PC_eigv ), <<SET format=""> 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
    N Items( SelRows ) == 1,
     SelRows = this << Get Selected Rows;
     N_PCs = SelRows[1];
   );
  )
 )
)</SET>

有没有办法在使用 Get As Report 输出时获得相同类型的功能？

 

感谢您的任何反馈！，

DS

脚本编写回复：JSL 帮助：获取报告和表格框

我认为是这样，您只需要在从 Get are Report() 函数返回的参考引用中降低一级即可到达表格。尝试这个：

 

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );

RptWin = New Window( "Data Table as report",
 Outline Box("Data Table as Report",
  dt_Rpt = dt << Get as Report(); 
 )
);

tb = dt_Rpt[Table Box( 1 )];

tb << Set Shade Headings( 1 );

tb << Append(
 Plot Col Box( "",
  :mvalue << get values,
  <<SET scale=""> 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
   N Items( SelRows ) == 1,
    SelRows = this << Get Selected Rows;
    N_PCs = SelRows[1];
  );
 )
);</SET>

回复：JSL 帮助：获取报告和表格框

你好@ih ,

 

感谢您的快速回复和解决方案——这正是我正在寻找的。 完美运行。 这是我试图实现它的较大代码段。 我知道这是一个单独的主题，但您是否碰巧知道我如何将下面代码中的图形构建器显示与“获取为报告”表格框链接起来，以便当用户单击表格框中的行时它会突出显示图形构建器中的相应数据点？顺便说一下，我只是使用波士顿住房作为样本数据集，mvalue 作为响应，所有其他列作为分区中的预测变量——我使用的验证部分为 0.3。

 

谢谢！，

DS

Names Default To Here( 1 );

lbWidth = 168;

dt = Open( "$SAMPLE_DATA/Boston Housing.jmp" );

// Expression to store the current settings in global variables
recallRolesS1 = Expr(
 ::dtchosenRecall = dtchosen
);

// Expression to clear all current settings. KW: Clear
clearRoles = Expr(
 Try(
  colListY << RemoveAll;
  ColListX << RemoveAll;
  ColListW << RemoveAll;
  ColListF << RemoveAll;
  colListV << RemoveAll;
 )
);

// Expression to store the current settings in global variables
recallRoles = Expr(
 ::ycolRecall = colListY << GetItems;
 ::xcolRecall = colListX << GetItems;
 ::WcolRecall = colListW << GetItems;
 ::FcolRecall = colListF << GetItems;
 ::vcolRecall = colListV << GetItems;
 ::max_spRecall = max_sp_input << get;
 ::partVPRecall = partVP_input << Get;
);

//Function to choose the data table to model. KW: choose_data
choose_data_table = Function( {},
 list = {};
 For( i = 1, i <= N Table(), i++,
  list[i] = Data Table( i ) << get name
 );
 win = New Window( "Select a data table",
  <<MODAL> 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
    N Items( SelRows ) == 1,
     SelRows = this << Get Selected Rows;
     NPCs = SelRows[1];
   );
  )
 );
 
);


Part = Expr(
 If(
  N Items( vcols ) == 1,
   dt_results = New Table( "Partition_Results",
    Add Rows( max_sp ),
    New Column( "Splits", Numeric, Continuous ),
    New Column( "Training RSquare", Numeric, Continuous ),
    New Column( "Validation RSquare", Numeric, Continuous ),
    New Column( "Training RASE", Numeric, Continuous ),
    New Column( "Validation RASE", Numeric, Continuous ),
    New Column( "Training N", Numeric, Continuous ),
    New Column( "Validation N", Numeric, Continuous ),
    New Column( "RSquare Diff", Numeric, Continuous, Formula( "Training RSquare"n - "Validation RSquare"n ) ),
    New Column( "Penalized Valid RSquare", Numeric, Continuous, Formula( "Training RSquare"n - 0.05 * "Splits"n ) )
   ),
  N Items( vcols ) == 0 & Is Missing( partVP ) == 0,
   dt_results = New Table( "Partition_Results",
    Add Rows( max_sp ),
    New Column( "Splits", Numeric, Continuous ),
    New Column( "Training RSquare", Numeric, Continuous ),
    New Column( "Validation RSquare", Numeric, Continuous ),
    New Column( "Training RASE", Numeric, Continuous ),
    New Column( "Validation RASE", Numeric, Continuous ),
    New Column( "Training N", Numeric, Continuous ),
    New Column( "Validation N", Numeric, Continuous ),
    New Column( "RSquare Diff", Numeric, Continuous, Formula( "Training RSquare"n - "Validation RSquare"n ) ),
    New Column( "Penalized Valid RSquare", Numeric, Continuous, Formula( "Validation RSquare"n - 0.05 * "Splits"n ) )
   ),
  N Items( vcols ) == 0,
   dt_results = New Table( "Partition_Results",
    Add Rows( max_sp ),
    New Column( "Splits", Numeric, Continuous ),
    New Column( "Training RSquare", Numeric, Continuous ),
    New Column( "Training RASE", Numeric, Continuous ),
    New Column( "Training N", Numeric, Continuous ),
    New Column( "Penalized Train RSquare", Numeric, Continuous, Formula( "Training RSquare"n - 0.05 * "Splits"n ) )
   )
 );
 
 For( i = 1, i <= max_sp, i++,
  dt_results:"Splits"n[i] = i
 );
 
 dt_name = dtchosen << Get Name;
 
 For( i = 1, i <= N Rows( dt_results ), i++,
  Psplit = dt_results:"Splits"n[i];
  str = Eval Insert(
   "report = (dtchosen<<PARTITION></PARTITION></MODAL>

回复：JSL 帮助：获取报告和表格框

你打赌。 该图已经与表格相关联，所以我认为如果您只是将下面的两行添加到您的 Set Row Change Function 中，您应该会看到这种行为。

 

 tb << Set Row Change Function(
  Function( {this},
   {SelRows},
   SelRows = this << Get Selected Rows;
   If(
    N Items( SelRows ) > 1, Throw( "Too many items selected!\!rOnly one selection possible." ),
    N Items( SelRows ) == 1,
     SelRows = this << Get Selected Rows;
     NPCs = SelRows[1];
   );
   // ** Added next two lines **
   dt_results << Clear Select;
   dt_results << Select rows(SelRows);
  )
 );

回复：JSL 帮助：获取报告和表格框

你好@ih ,

 

是的，完美！ 这实际上完全有道理，我不知道为什么我没有想到这样做。

 

再次感谢您的快速解决方案！，

DS