430849_zh-TW

liliconcom

如何更新可變性表的腳本以繪製參考數據過濾器設置的參考線？

你好，

我正在研究一個可變性圖表，其中我有按子組繪製的連續數據。我有 3 個溫度帶數據“1C 到 13C”、“16C 到 28C”和“30C 到 45C”。我想為我在數據中選擇的每個過濾器類別繪製參考線，有 3 個不同的參考線組。

 

請參閱隨附的文件和可變性腳本。

 

我對腳本比較陌生。我已經看到 JMP 腳本命令如何允許您為每個參考線編寫命令。我想根據數據過濾器選擇的內容使命令動態化。 （腳本的粗體下劃線部分。

 

請指教，

謝謝

馬特

 

New Window( "Sample set 1 - Variability Chart by Lot",
 V List Box(
  Variability Chart(
   Y( :Test 1 ),
   X( :Lot ),
   Std Dev Chart( 0 ),
   Local Data Filter( Add Filter( columns( :Temp Band 2 ) ) ),
   SendToReport(
    Dispatch(
     {"Variability Chart for Test 1"},
     "2",
     ScaleBox,
     {Min( 0.814090277777778 ), Max( 1.13166666666667 ), Inc( 0.05 ),
     Minor Ticks( 1 ), Add Ref Line(
      0, "Dotted", "Medium Light Gray", "", 1
     ), Add Ref Line( <U><STRONG>1.1</STRONG></U>, "Solid", "Black", "", 1 ),
     Add Ref Line(<U> <STRONG>0.9</STRONG></U>, "Solid", "Black", "", 1 )}
    )
   )
  ),
  Variability Chart(
   Y( :Test 2 ),
   X( :Lot ),
   Std Dev Chart( 0 ),
   Local Data Filter( Add Filter( columns( :Temp Band 2 ) ) )
  ),
  Variability Chart(
   Y( :Test3 ),
   X( :Lot ),
   Std Dev Chart( 0 ),
   Local Data Filter( Add Filter( columns( :Temp Band 2 ) ) )
  )
 )
)

 

圖形腳本編寫回复：如何更新可變性表的腳本以繪製參考數據過濾器設置的參考線？

你好@mcastner ，我會說你選擇了一個相當複雜的任務來開始編寫腳本！下面是一種按照您的要求執行操作的方法（如果我對您的解釋正確的話），但我想知道您是否可以通過使用圖形構建器同時繪製箱線圖和線來簡化此操作。您如何得出參考線的值？有沒有可能是可用數據（中位數、分位數等）的摘要，或者您可以在公式列中這樣做嗎？

 

 

Names default to here(1);

dt = Open( "$Sample_data/big class.jmp" );

//Valeus for ref lines - hopefully populated by your script
reflines = Associative Array({
 {"height", 
  Associative Array({
   { 12, 62 },
   { 13, 63 },
   { 14, 64 },
   { 15, 65 },
   { 16, 66 },
   { 17, 67 }
  })
 },
 {"weight",
  Associative Array({
   { 12, 112 },
   { 13, 113 },
   { 14, 114 },
   { 15, 115 },
   { 16, 116 },
   { 17, 117 }
  })
 }
});

//A window with a single data filter that will be applied to all graphs inside it
New Window("charts",
 Data Filter Context Box(
  H List Box(
   ldf = dt << Data Filter( Local,
    Add Filter(
     columns( :age ),
     Where( :age == 13 ),
     Display( :age, N Items( 6 ) )
    ),
    Mode( Select( 0 ), Show( 1 ), Include( 1 ) )
   ),
   vc1 = Variability Chart(
    Y( :height ),
    X( :sex )
   );
   vc2 = Variability Chart(
    Y( :weight ),
    X( :sex )
   );
  )
 )
);

//Function that is called when data filter changes and when the window is first opened, this will redraw lines on charts
UpdateRefLines = function({}, 
 
 //find out what ages were selected, there is probably a better way to do this too
 filteredagelast = filteredage;
 filteredage = median(dt:age[ldf << get filtered rows()]);
 
 //detect if there was a change in the age (prevents flickering of the screen)
 if(is missing(filteredagelast) | (filteredagelast != filteredage),
  
  //remove any existing ref lines
  (vc1 << XPath("//AxisBox[@charID=2]"))[1] << Revert Axis;
  (vc2 << XPath("//AxisBox[@charID=2]"))[1] << Revert Axis;
  
  //draw new lines
  (vc1 << XPath("//ScaleBox[@ID=2]")) << Add Ref Line( reflines["height"][FilteredAge], "Solid", "Black", "", 1 );
  (vc2 << XPath("//ScaleBox[@ID=2]")) << Add Ref Line( reflines["weight"][FilteredAge], "Solid", "Black", "", 1 );
 )
);

//function called when data filter changes, here it only redraws reference lines
UpdatesOnRowStateChanges = function({x}, if(is matrix(x), UpdateRefLines ) );

//variable used to keep track of the last filter applied
filteredage = .;

//Assign function to data filter 
rsh = vc1 << Make Row State Handler( dt, UpdatesOnRowStateChanges );

//draw initial reference lines
UpdateRefLines();