614215_de-DE

liliconcom

3. Y-Achse nur für bestimmte Spalten abrufen (Arbeiten mit Schleifen)

Hallo,

Ich bin bei einem Problem nicht weitergekommen und wäre für einige Ratschläge dankbar:

Wir analysieren die Proben und erhalten für jede Probe die Population A, B, C, D und E.

Die Informationen für A können in „%“ und „Anzahl“ unterteilt werden, dasselbe für B, C, D und E.

Wir importieren die Daten und die Spalten mit der Bezeichnung „A 1“ bis „E 1“ stellen die „%“-Werte dar, die Spalten mit der Bezeichnung „A 2“ bis „E 2“ stellen die „Anzahl“-Werte dar.

Da der Import immer derselbe ist, war das Schreiben eines Skripts zum Generieren von Diagrammen mit zwei Y-Achsen („%“ und „Anzahl“) für jeden Populationstyp (A, B, C usw.) kein Problem. Siehe den Code unten.

Das Problem: Manchmal erhalten wir für einige unserer Populationen einen zusätzlichen Wert. Beispielsweise verfügen nur Population B und E über eine dritte Information namens „Fluoreszenz“. Diese werden als Spalten „B 3“ und „E 3“ in dieselbe Tabelle importiert.

Da diese Populationen von Import zu Import unterschiedlich sein können, muss ich ein Skript schreiben, das „B 3“ als Mitglied der „B“s identifiziert und eine dritte Y-Achse im Populationsdiagramm „B“ erstellt (und dasselbe für „E 3“ in diesem Beispiel). Aber dafür bin ich nicht schlau/erfahren genug.

Natürlich habe ich versucht, die Tabelle neu anzuordnen, neue Zeilen statt neuer Spalten zu erstellen und mit „Wrap“ zu arbeiten. Aber da haben wir keine automatische Skalierung für jede Y-Achse. Habe auch versucht, ein zugeordnetes Array für die drei Informationstypen zu erstellen, aber das ist aufgrund mangelnder Programmiererfahrung fehlgeschlagen.

Vielleicht hat ja jemand von Euch eine Idee, die weiterhelfen könnte, danke

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

MassenanpassungBetreff: 3. Y-Achse nur für bestimmte Spalten erhalten (Arbeiten mit Schleifen)

Hier ist ein ziemlich hässlicher Code, aber er scheint Ihnen das zu bieten, was Sie brauchen

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