454601_fr-FR

liliconcom

Légende de la ligne d'ajustement de spline

Salut tout le monde,

J'essaie de créer des tracés bivariés avec une spline ajustée. Cependant, j'essaie d'obtenir les légendes des lignes, mais sans succès. Comment puis-je obtenir et enregistrer la légende de la ligne ? S'il vous plaît, aidez

Voici ma fonction

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

 

Modélisation statistique avancéeRe: Légende de la ligne d'ajustement Spline

est-ce que cela aide?

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

Re: Légende de la ligne d'ajustement Spline

SALUT markbailey , j'ai juste besoin d'enregistrer les légendes de lignes sous forme d'image afin de pouvoir les utiliser sur plusieurs diapositives de mon PowerPoint.

Re: Légende de la ligne d'ajustement Spline

Salut ian_jmp , je voulais enregistrer/obtenir la légende de la ligne sous forme d'image afin de pouvoir l'utiliser sur d'autres diapositives de mon PowerPoint.

Re: Légende de la ligne d'ajustement Spline

Comme @ian_jmp , je ne suis pas sûr non plus de ce que vous demandez, mais voici un exemple simple pour illustrer la syntaxe permettant d'accéder aux commandes du menu triangle rouge pour chaque ajustement :

 

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

Re: Légende de la ligne d'ajustement Spline

Je ne suis pas sûr de ce que tu veux dire par ' obtenez les légendes des lignes. En utilisant l'exemple ci-dessous, pourriez-vous être un peu plus précis sur les informations que vous souhaitez obtenir du rapport, s'il vous plaît ?