454601_de-DE

liliconcom

Legende der Spline-Anpassungslinie

Hallo zusammen,

Ich versuche, bivariate Diagramme mit einem angepassten Spline zu erstellen. Ich versuche jedoch, die Linienlegenden zu bekommen, aber ohne Erfolg. Wie kann ich die Linienlegende abrufen und speichern? Bitte helfen Sie

Hier ist meine Funktion

bivplot_mrw = Function({ ycol }, {plot},
      
      biv = Bivariate( Y( Column(dt, ycol) ), X( Column( dt, mrwname ) ), Group By( Column( dt, grpname2 ) ), 
           Fit Spline( 1000 ) );   
            
      rbiv = biv << report << Show Points( 0 );
      
      ylist = {}; 
       
      For(g2 = 1, g2 <= Nitems(grplist2[1]), g2++,
       Try(
       curvename = rbiv[Outline Box( g2 + 1 )] << Get Title;
        
       //Compute max and min per spline fit line to get y-axis max and min
       current_row = storows2[ Contains( stolist2, grplist2[3][g2] ) ]; //Get the stolist rows for grplist2[g2]
       current_row << Intersect( grprows[ Contains( grplist, grplist2[2][g2] ) ]);
       current_row = Matrix( current_row << Get Keys );
       xin = Column( dt, mrwname)[current_row];
       yin = Column( dt, ycol)[current_row];
       Try(ypred = Spline Eval( xin, Spline Coef( xin, yin, 1000 ) ));
       ylist = Concat(ylist, As List(ypred));
        
       //Adjust also the line style
       If(
        Contains( curvename, linestyle["ddd"] ),
         biv << (Curve[g2] << Line Style( DashDotDot )),
        Contains( curvename, linestyle["dash"] ),
         biv << (Curve[g2] << Line Style( Dashed ))
        );
       )); 
             
      Try( paxis = axiscalc( Min(ylist), Max(ylist) ), Show("axiscalc error for "||ycol) );
      Try( xaxis = axiscalc( mrwmin, mrwmax ), Show("axiscalc error for MRW") );
      
      rbiv[Frame Box( 1 )] << {Frame Size( 205, 164 ), Marker Size( 1 ), Line Width Scale( 2 )};
       
      Try( rbiv[Axis Box( 1 )] << Max( paxis["Max"] ) << Min( paxis["Min"] ) << Inc( paxis["Inc"] ) << Minor Ticks( paxis["Ntick"] ) );
      Try( rbiv[Axis Box( 2 )] << Max( xaxis["Max"] ) << Min( xaxis["Min"] ) << Inc( xaxis["Inc"] ) << Minor Ticks( xaxis["Ntick"] ) );
     
      rbiv[Axis Box( 1 )] << Format( "Best", 12 ) << Tick Font( style( 1 ), size( 9 ) )
           << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
       
      rbiv[Axis Box( 2 )] << Format( "Best", 12 ) << Tick Font( style( 1 ), size( 9 ) )
           << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
       
      rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
      rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
      (rbiv << xpath( "//OutlineBox" )) << Close;
      rbiv[Outline Box( 1 )] << Set Title( ycol );
      rbiv[Border Box( 2 )] << Delete Box;
       
      rbiv[Outline Box( 1 )] << Open All Like This;
      
     );

 

Erweiterte statistische ModellierungBetreff: Legende der Spline-Anpassungslinie

Hilft das?

NamesDefaultToHere(1);

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

biv = dt << Bivariate(
    Y( :weight ),
    X( :height ),
    Show Points( 0 ),
    Fit Where( :sex == "F", Fit Spline( 1000, {Line Color( {212, 73, 88} )} ) ),
    Fit Where( :sex == "M", Fit Spline( 1000, {Line Color( {66, 112, 221} )} ) ),
    SendToReport(
     Dispatch(
      {},
      "Bivar Plot",
      FrameBox,
      {Grid Line Order( 1 ), Reference Line Order( 2 )}
     )
    )
   );

bivRep = Report(biv);
pb2Pic = bivRep[PictureBox(2)] << getPicture(Scale(1.5));
nw = New Window("Example", pb2Pic);

Betreff: Legende der Spline-Anpassungslinie

HALLO markbailey Ich muss lediglich die Linienlegenden als Bild speichern, damit ich sie auf mehreren Folien in meiner PowerPoint-Präsentation verwenden kann.

Betreff: Legende der Spline-Anpassungslinie

Hallo ian_jmp Ich wollte die Linienlegende als Bild speichern/abrufen, damit ich sie auf anderen Folien in meiner PowerPoint-Präsentation verwenden kann

Betreff: Legende der Spline-Anpassungslinie

Wie @ian_jmp Ich bin mir auch nicht sicher, was Sie fragen, aber hier ist ein einfaches Beispiel, um die Syntax für den Zugriff auf die Befehle im roten Dreiecksmenü für jede Passform zu veranschaulichen:

 

Names Default to Here( 1 );

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

biv = dt << Bivariate(
 Y( :weight ),
 X( :height ),
 Fit Spline( 10 )
);

biv << (Curve[1] << Line Color( "Green" ) );

Betreff: Legende der Spline-Anpassungslinie

Ich bin mir nicht ganz sicher, was du mit „ Holen Sie sich die Zeilenlegenden. Könnten Sie anhand des folgenden Beispiels bitte etwas genauer erläutern, welche Informationen Sie aus dem Bericht erhalten möchten?