559670_de-DE

liliconcom

Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

Hallo,

Wie kann ich den Referenzlinien eine Beschriftung hinzufügen?

 

Hier ist mein Code:

Irgendein Rat?

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Mean = 60;
std = 0.5;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue, 
   
    <<SET function=""></SET>

 

MassenanpassungBetreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

.

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

Die Funktion „Ref-Zeile entfernen“ funktioniert auf meinem System einwandfrei.Das Problem mit „Achse zurücksetzen“ besteht darin, dass, wenn etwas an der Achse geändert wurde, diese beim Ausführen von „Achse zurücksetzen“ auf die ursprüngliche Einstellung zurückgesetzt wird.Wenn also der tatsächliche Achsenbereich oder die Inkremente geändert wurden, wird die Achse durch die Funktion „Achse zurücksetzen“ zurück zum Original bewegt.Ich denke, das Problem, das Sie hatten, ist möglicherweise ein Timing-Problem, daher habe ich einen Wait(0) hinzugefügt, der meiner Meinung nach das Problem für Sie beheben könnte.Außerdem haben Sie nicht mehr auf die richtigen Diagramme verwiesen, nachdem Sie die Spalte „Gewicht“ zur Variabilitätsplattform hinzugefügt haben.Nach dieser Änderung wird auch die Struktur der Ausgabeanzeige geändert.Es gibt jetzt zwei separate Berichtszweige.

GB[1]

Und

GB[2]

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
wMean = 105;
wstd = 2;
std = 0.5;
LL = Mean - (sliderValue * 3 * std);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
wLL = wMean - (sliderValue * 3 * wstd);
wUL = wMean + (sliderValue * 3 * wstd);
wholdLL = LL;
wholdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    wLL = wMean - (sliderValue * 3 * wstd);
    wUL = wMean + (sliderValue * 3 * wstd);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb[1] )[AxisBox( 1 )];
    gbfb2 = Report( gb[2] )[AxisBox( 1 )];
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    wLL = wMean - (sliderValue * 3 * wstd);
    wUL = wMean + (sliderValue * 3 * wstd);
    //gbfb1 << revert axis;
    try(gbfb1 << remove ref line(holdLL));
    try(gbfb1 << remove ref line(holdUL));
    try(gbfb2 << remove ref line(wholdLL));
    try(gbfb2 << remove ref line(wholdUL));
    wait(0);
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     gbfb2 << add ref line( wLL, Solid, red, "LL" );
     gbfb2 << add ref line( wUL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    wholdLL = wLL;
    wholdUL = wUL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb[1] )[AxisBox( 1 )];
     gbfb2 = Report( gb[2] )[AxisBox( 1 )];
     LL = Mean - (sliderValue * 3 * std);
     UL = Mean + (sliderValue * 3 * std);
     wLL = wMean - (sliderValue * 3 * wstd);
     wUL = wMean + (sliderValue * 3 * wstd);
     try(gbfb1 << remove ref line(holdLL));
     try(gbfb1 << remove ref line(holdUL));
     try(gbfb2 << remove ref line(wholdLL));
     try(gbfb2 << remove ref line(wholdUL));
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     gbfb2 << add ref line( wLL, Solid, red, "LL" );
     gbfb2 << add ref line( wUL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height, : weight ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );

 )  
);

Sehen Sie sich den neuen Code an, um zu erfahren, wie mit der Änderung umgegangen wird.

 

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

@txnelson Ref-Zeile entfernen funktioniert nicht. Ich bin auf die umgekehrte Achse gestoßen.

Noch eine Frage: Wenn ich beispielsweise zwei Variabilitätsdiagramme für Höhe und Gewicht verwende, möchte ich beiden eine Referenzlinie hinzufügen und mit dem Schieberegler variieren. Wie könnte ich das umsetzen?

 

Hier ist der Code mit umgekehrter Achse: Ich möchte den beiden Variabilitätsdiagrammen eine Referenzlinie hinzufügen und die Referenzlinie mit dem Schiebereglerfeld variieren

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
std = 0.5;
LL = Mean - (sliderValue * 3 * 0.5);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb )[AxisBox( 1 )];
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
    gbfb1 << revert axis;
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb )[AxisBox( 1 )];
     LL = Mean - (sliderValue * 3 * 0.5);
     UL = Mean + (sliderValue * 3 * std);
     gbfb1 << revert axis;
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height, : weight ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );

 )  
);

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

Hier ist eine Überarbeitung des Codes, der „add ref line“ verwendet, um die dynamischen Linien anzuzeigen

Names Default To Here( 1 );

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );
sliderValue = 1;

dothisonchange = Function( {val},
 tb << Set Text( "Cpk : " || Substr( Char( val ), 1, 4 ) )
);

Flag = 0;
Mean = 60;
std = 0.5;
LL = Mean - (sliderValue * 3 * 0.5);
UL = Mean + (sliderValue * 3 * std);
holdLL = LL;
holdUL = UL;
New Window( "", 

 H List Box(
  V List Box(
   tb = Text Box( "Value: " || Char( sliderValue ) ),
   sb = Slider Box(
    1,
    3,
    sliderValue,
    sliderValue = sb << Get;
    LL = Mean - (sliderValue * 3 * std);
    UL = Mean + (sliderValue * 3 * std);
     //Set the slider and call the other function
    sb << Set( sliderValue );
    gbfb1 = Report( gb )["Graph Builder"][AxisBox( 2 )];
    LL = Mean - (sliderValue * 3 * 0.5);
    UL = Mean + (sliderValue * 3 * std);
    Try( gbfb1 << remove ref line( holdLL ) );
    Try( gbfb1 << remove ref line( holdUL ) );
    If( Flag == 1,
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
    );
    holdLL = LL;
    holdUL = UL;
    dothisonchange( sliderValue );
   ), 
  
   Button Box( "Add Reference line",
    If( Flag == 0,
     Flag = 1;
     gbfb1 = Report( gb )["Graph Builder"][AxisBox( 2 )];
     LL = Mean - (sliderValue * 3 * 0.5);
     UL = Mean + (sliderValue * 3 * std);
     Try( gbfb1 << remove ref line( holdLL ) );
     Try( gbfb1 << remove ref line( holdUL ) );
     gbfb1 << add ref line( LL, Solid, red, "LL" );
     gbfb1 << add ref line( UL, Solid, red, "UL" );
     dothisonchange( sliderValue );
    )
   )
  )
 ),
 V List Box(
  gb = dt << Variability Chart(
   Y( :height ),
   X( :sex ),
   Show Range Bars( 0 ),
   Std Dev Chart( 0 ),
   Points Jittered( 1 )
  );
  gb = dt << Graph Builder(

   Size( 373, 325 ), 

   Show Control Panel( 0 ), 

   Variables( X( Transform Column( "Row", Formula( Row() ) ) ), Y( :height ) )
  );
 )  
);

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

Das Slider-Skript muss die vorherige Referenzzeile entfernen und die neue Zeile hinzufügen, wenn sich die Variable ändert.

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

Ich bin mir nicht sicher, ob Sie Grafikskripte außerhalb von Frame Box verschieben können, aber ob es in Ordnung ist, die Beschriftung innerhalb von FrameBox zu haben

Sie können Ihrem Grafikskript Text hinzufügen

Text Color("Red");
Text({0, LL}, "Lower");
Text({0, UL}, "Upper");

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

@Jed_Campbell Danke. Ich möchte Referenzlinien mithilfe des Schiebereglers dynamisch verschieben. Das Hinzufügen von Referenzlinien wird nicht dynamisch durch Ändern des Schiebereglerfelds verschoben.

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

Könnten Sie anstelle des Add Graphics Script-Codes Add Ref Line verwenden, um das Problem zu umgehen?

 

Graph Builder(
 Transform Column( "Row", Formula( Row() ) ),
 Variables( X( :Row ), Y( :height ) ),
 Elements( Points( X, Y, Legend( 3 ) ), Smoother( X, Y, Legend( 4 ) ) ),
 SendToReport(
  Dispatch(
   {},
   "Row",
   ScaleBox,
   {Add Ref Line( LL, "Solid", "Black", "My Label", 1 )}
  )
 )
);

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?

vielleicht das: Fügen Sie Ref-Linien zu Diagrammen hinzu

Betreff: Wie füge ich eine Beschriftung zur roten Referenzlinie hinzu?