357759_zh-CN

liliconcom

如何合并这些代码？

嗨，您好，

 

我想结合这些代码，以便它们从“ Formulation Change Review（新）”运行，并关闭新的数据表/制表符选项卡，仅保留图形。

 

任何帮助，不胜感激！

 

(Data Table( "Formulation Change Review (new)" ) <<
Tabulate(
 Add Table(
  Column Table( Grouping Columns( :Lab RFT ), Statistics( Row % ) ),
  Row Table( Grouping Columns( :Grade ) )
 )
)) << Make Into Data Table


Graph Builder(
 Size( 1896, 951 ),
 Show Control Panel( 0 ),
 Show Legend( 0 ),
 Variables(
  X(
   :Grade,
   Order By( :Name( "Row %(Y)" ), Ascending, Order Statistic( "Mean" ) )
  ),
  Y( :Name( "Row %(Y)" ) ),
  Overlay( :Grade )
 ),
 Elements( Bar( X, Y, Legend( 6 ), Label( "Label by Value" ) ) ),
 SendToReport(
  Dispatch( {}, "graph title", TextEditBox, {Set Text( "RFT % per grade" )} ),
  Dispatch( {}, "Y title", TextEditBox, {Set Text( "RFT%" )} )

脚本编写回复：如何合并这些代码？

未经测试，但将其分成较小的块，如下所示：

dt1 = Data Table( "Formulation Change Review (new)" );

tab = (dt1 << Tabulate(
 Add Table(
  Column Table( Grouping Columns( :Lab RFT ), Statistics( Row % ) ),
  Row Table( Grouping Columns( :Grade ) )
 )
)) ;

dt2 = tab << Make Into Data Table;

gb = dt2 << Graph Builder(
 Size( 1896, 951 ),
 Show Control Panel( 0 ),
 Show Legend( 0 ),
 Variables(
  X(
   :Grade,
   Order By( :Name( "Row %(Y)" ), Ascending, Order Statistic( "Mean" ) )
  ),
  Y( :Name( "Row %(Y)" ) ),
  Overlay( :Grade )
 ),
 Elements( Bar( X, Y, Legend( 6 ), Label( "Label by Value" ) ) ),
 SendToReport(
  Dispatch( {}, "graph title", TextEditBox, {Set Text( "RFT % per grade" )} ),
  Dispatch( {}, "Y title", TextEditBox, {Set Text( "RFT%" )} );

tab<<CLOSEWINDOW></CLOSEWINDOW>

编辑：在图形生成器部分的末尾似乎缺少）。 将它们粘贴在一起时，请确保从“保存到脚本”窗口中获取所有JSL。

编辑2：您可能想要在close（dt2，nosave）之前

gb << journal;
gb<<CLOSEWINDOW></CLOSEWINDOW>

因为图形生成器报告需要打开表，但是日记本是自包含的。 日记的图形未连接到数据，因此无法进行行选择。