614215_zh-TW

liliconcom

僅取得某些列的第三個 Y 軸（使用循環）

你好呀，

我遇到了一個問題，非常感謝您的一些建議：

我們分析樣本並獲得每個樣本的總體 A、B、C、D 和 E。

A的資訊可分為“%”和“count”，B、C、D、E也是如此。

我們匯入數據，名為「A 1」到「E 1」的欄位代表「%」值，名為「A 2」到「E 2」的欄位代表「Count」值。

由於導入始終相同，因此編寫腳本來為每種人口類型（A、B、C 等）產生具有 2 個 Y 軸（“%”和“計數”）的圖表是可以管理的。請參閱下面的程式碼。

問題：有時我們會得到某些人群的額外讀數。例如，只有群體B和E才會有第三個訊息，稱為「螢光」。這些將作為列“B 3”和“E 3”匯入到同一個表中。

由於這些群體可能因導入而異，我需要編寫一個腳本，能夠將“B 3”識別為“B”的成員，並在群體“B”圖中創建第三個 Y 軸（以及本例中的“ E 3”相同）。但對此我不夠聰明/經驗不足。

當然，我嘗試重新排列表格，創建新行而不是新列並使用“換行”。但每個 Y 軸都沒有自動縮放功能。也嘗試了三種資訊類型的關聯數組，但由於缺乏編碼經驗而失敗。

也許你們有人有一個想法，可能會有所幫助，謝謝

Names Default To Here( 1 );

dt = Current Data Table();
dt << clear select; 

win = New Window( "Test", Outline Box( "", hb = V List Box() ) );

loopstart = Contains(dt << get column names, Column("A 1"));
loopend = (Contains(dt << get column names, Column("A 2")))-1;
icounts = (loopend+1)-loopstart; 

For( i = loopstart, i <= loopend, i++,
		
	
	gb = Graph Builder(
		Size( 1500, 900 ),
		Show Control Panel( 0 ),
		Grid Color( "Black" ),
		Graph Spacing( 2 ),
	
		Legend Position( "Bottom" ), 
	
		Variables( X( :Group ), Y( Eval( i ) ), Y( Eval( i + icounts ) ), Color( :Subjects ) ), 
		Elements( Position( 1, 1 ), Points( X, Y, Legend( 11 ) ), Box Plot( X, Y, Legend( 13 ) ) ), 
		Elements( Position( 1, 2 ), Points( X, Y, Legend( 12 ) ), Box Plot( X, Y, Legend( 14 ) ) ), 
		
	SendToReport(
			Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "DATA" ), Image Export Display( Normal )} ),
			Dispatch( {}, "graph title", TextEditBox, {Set Text( "Title" )}, {Set Font Size( 16 )} ),
			Dispatch( {}, "Y title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "bold" ), Set Text( " [%]" )} ),
			Dispatch( {}, "Y1 title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "bold" ), Set Text( " Count" )} ), 
			Dispatch( {}, "X title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "bold" )} ), 
			
		
			Dispatch(
				{},
				"400",
				LegendBox,
				{Set wrap( 12 ), Set Title( "" ), font( "Segoe UI", 12, "Plain" ), Legend Position(
					{11, [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, -1], 13, [-1], 12, [-1], 14, [-1] 
					}
				), Orientation( "Vertical" )}
			)
		)
	);
	
	hb << Append( Report( gb ) << child );
	hb << append( Page Break Box() );
	
	gb << close window;
	
	
);

大規模客製化回复：僅為某些列獲取第三個 Y 軸（使用循環）

這是一些非常醜陋的代碼，但它似乎為您提供了您所需要的

Names Default To Here( 1 );

dt = Current Data Table();
dt << clear select; 

win = New Window( "Test", Outline Box( "", hb = V List Box() ) );

loopstart = Contains( dt << get column names, Column( "A 1" ) );
loopend = (Contains( dt << get column names, Column( "A 2" ) )) - 1;
fluorB3 = Contains( dt << get column names, Column( "B 3" ) );
fluorE3 = Contains( dt << get column names, Column( "E 3" ) );
icounts = (loopend + 1) - loopstart; 

For( i = loopstart, i <= loopend, i++, 
  
 If( (Column( i ) << get name == "B 1" & fluorB3 > 0) | (Column( i ) << get name == "E 1" & fluorE3 > 0),
  If( Column( i ) << get name == "B 1",
   fluorcounts = fluorB3,
   fluorcounts = fluorE3
  );
  gb = Graph Builder(
   Size( 1517, 788 ),
   Show Control Panel( 0 ),
   Legend Position( "Bottom" ),
   Grid Color( "Black" ),
   Graph Spacing( 2 ),
   Variables( X( :Group ), Y( Eval( i ) ), Y( Eval( i + icounts ) ), Y( Eval( fluorcounts ) ), Color( :Subjects ) ),
   Elements( Position( 1, 1 ), Points( X, Y, Legend( 11 ) ), Box Plot( X, Y, Legend( 13 ) ) ),
   Elements( Position( 1, 2 ), Points( X, Y, Legend( 12 ) ), Box Plot( X, Y, Legend( 14 ) ) ),
   Elements( Position( 1, 3 ), Points( X, Y, Legend( 15 ) ), Box Plot( X, Y, Legend( 16 ) ) ),
   SendToReport(
    Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "DATA" ), Image Export Display( Normal )} ),
    Dispatch( {}, "400", ScaleBox, {Legend Model( 12, Base( 0, 0, 0, Item ID( "Car", 1 ) ) )} ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "Title" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "Bold" )} ),
    Dispatch( {}, "Y title", TextEditBox, {Set Text( " [%]" ), Set Font Size( 14 ), Set Font Style( "Bold" )} ),
    Dispatch( {}, "Y 1 title", TextEditBox, {Set Text( " Count" ), Set Font Size( 14 ), Set Font Style( "Bold" )} ),
    Dispatch( {}, "Y 2 title", TextEditBox, {Set Text( " Fluor" ), Set Font Size( 14 ), Set Font Style( "Bold" )} ),
    Dispatch(
     {},
     "400",
     LegendBox,
     {font( "Segoe UI", 12, "Plain" ), Orientation( "Vertical" ), Set Wrap( 12 ),
     Legend Position(
      {11, [0, 1, 2, 3], 13, [-1, -1, -1, -1, -1, -3], 12, [-1, -3, -3, -3], 14, [-1, -1, -1, -1, -1, -3], 15, [-1, -1,
      -1, -1, -1, -3], 16, [-1, -1, -1, -1, -1, -3]}
     )}
    )
   )
  );
 , 

  gb = Graph Builder(
   Size( 1500, 900 ),
   Show Control Panel( 0 ),
   Grid Color( "Black" ),
   Graph Spacing( 2 ), 
 
   Legend Position( "Bottom" ), 
 
   Variables( X( :Group ), Y( Eval( i ) ), Y( Eval( i + icounts ) ), Color( :Subjects ) ),
   Elements( Position( 1, 1 ), Points( X, Y, Legend( 11 ) ), Box Plot( X, Y, Legend( 13 ) ) ),
   Elements( Position( 1, 2 ), Points( X, Y, Legend( 12 ) ), Box Plot( X, Y, Legend( 14 ) ) ), 
  
   SendToReport(
    Dispatch( {}, "Graph Builder", OutlineBox, {Set Title( "DATA" ), Image Export Display( Normal )} ),
    Dispatch( {}, "graph title", TextEditBox, {Set Text( "Title" )}, {Set Font Size( 16 )} ),
    Dispatch( {}, "Y title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "bold" ), Set Text( " [%]" )} ),
    Dispatch( {}, "Y1 title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "bold" ), Set Text( " Count" )} ),
    Dispatch( {}, "X title", TextEditBox, {Set Font Size( 14 ), Set Font Style( "bold" )} ), 
   
  
    Dispatch(
     {},
     "400",
     LegendBox,
     {Set wrap( 12 ), Set Title( "" ), font( "Segoe UI", 12, "Plain" ), Legend Position(
      {11, [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, -1], 13, [-1], 12, [-1], 14, [-1]}
     ), Orientation( "Vertical" )}
    )
   )
  )
 );
 hb << Append( Report( gb ) << child );
 hb << append( Page Break Box() );
 
 gb << close window;
 
);