こんにちは、みんな、
フィットスプラインを使用して2変量プロットを作成しようとしています。 しかし、私はラインの凡例を取得しようとしていますが、成功していません。 行の凡例を取得して保存するにはどうすればよいですか? 助けてください
これが私の機能です
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;
);
どういう意味かよくわかりません」行の凡例を取得します。 以下の例を使用して、レポートから取得したい情報についてもう少し具体的に教えてください。

好き@ian_jmp 、私はあなたが何を求めているのかわかりませんが、これは各フィットの赤い三角形のメニューのコマンドにアクセスするための構文を説明するための簡単な例です:
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" ) );
やあian_jmp 、パワーポイントの他のスライドで使用できるように、線の凡例を画像として保存/取得したかった