topic Re: Fit Y by X Spline fit color in Discussions

Fit Y by X Spline fit color

UserID16644 — Sun, 11 Jun 2023 11:06:33 GMT

Hi,

I have a fit Y by X plot with smoothing spline fit, is there any way that I can make the marker colors gray and the spline fit line in JMP default color? I tried changing the color theme into medium light gray, but it's not working

rbiv[Framebox( 1 )] << Row Legend( Column( col1 ), Color( 1 ), Marker( 0 ), Color Theme("JMP Default"), Continuous Scale( 0 ) );

Re: Fit Y by X Spline fit color

ThuongLe — Tue, 06 Oct 2020 06:25:57 GMT

You can right click on the graph and select "Customize"

then select the color you want

Then export the script to window to see the real code behind

Oneway(
	Y( :Yield ),
	X( :WW ),
	SendToReport(
		Dispatch(
			{},
			"Oneway Plot",
			FrameBox,
			{DispatchSeg(
				Marker Seg( 1 ),
				{Color( "Orange" ), Marker( "Triangle" )}
			)}
		)
	)
);

Re: Fit Y by X Spline fit color

UserID16644 — Tue, 06 Oct 2020 23:38:56 GMT

Hi, I tried this method but it is not working when I put it into my function

Re: Fit Y by X Spline fit color

ThuongLe — Wed, 07 Oct 2020 01:18:07 GMT

Can you share your full code?

Re: Fit Y by X Spline fit color

UserID16644 — Wed, 07 Oct 2020 10:15:11 GMT

Here's the function:

bivht = Function( {x_param, y_param, htt},
    biv = Bivariate(
        Y( Column( y_param ) ),
        X( Column( x_param ) ),
        GroupBy( Column( ht ) ),
        <<Fit Spline( 1000, {Line Width( 2 )} )
    );
    rbiv = biv << Report;
    rbiv[Framebox( 1 )] << {Marker Size( 3 )};
    rbiv[Axisbox( 2 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) <<
    Show Minor Ticks( 1 );
    rbiv[Axisbox( 1 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) <<
    Show Minor Ticks( 1 );
    rbiv[Text Edit Box( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
    rbiv[Text Edit Box( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
    rbiv[Outline Box( 1 )] << Set Title( y_param || " by " || x_param );
    rbiv["Smoothing Spline Fit, lambda=1000 ?"] << Close All Like This;
    rbiv[Framebox( 1 )] << Row Legend(
        Column( ht ),
        Color( 1 ),
        Marker( 0 ),
        Color Theme( "JMP Default" ),
        Continuous Scale( 0 )
    );
    rbiv[Border Box( 2 )] << Delete;
    pbiv = rbiv[Outline Box( 1 )] << get picture;
);

Re: Fit Y by X Spline fit color

ThuongLe — Wed, 07 Oct 2020 02:08:49 GMT

Is this a typo or you have another variable named "ht"

Re: Fit Y by X Spline fit color

UserID16644 — Wed, 07 Oct 2020 02:10:08 GMT

ht is a variable name

Re: Fit Y by X Spline fit color

ThuongLe — Wed, 07 Oct 2020 02:24:06 GMT

I mean in your function, you define htt but you never use it. Instead, you use ht
That could be the issue

Re: Fit Y by X Spline fit color

UserID16644 — Wed, 07 Oct 2020 10:16:39 GMT

lb = Lineup Box( N Col( 4 ) );
For( j = 1, j <= N Items( xparam ), j++,
    bivht( xparam[j], yparam[j], h );
    lb << append( pbiv );
    biv << Close Window;
);
ppt9 << append( lb << get picture );

Re: Fit Y by X Spline fit color

ThuongLe — Wed, 07 Oct 2020 03:09:22 GMT

I'm lost now :D

Re: Fit Y by X Spline fit color

UserID16644 — Wed, 07 Oct 2020 03:11:06 GMT

htt is my 3rd parameter
ht is a column name

This is my function:
bivht = Function( { x_param, y_param, htt },
biv = Bivariate( Y( Column( y_param ) ), X( Column( x_param ) ), GroupBy( column( ht ) ),
<< Fit Spline( 1000, {Line Width( 2 )}));
rbiv = biv << Report;
rbiv[Framebox( 1 )] << {Marker Size( 3 )};
rbiv[Axisbox( 2 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[Axisbox( 1 )] << Tick Font( style( 0 ), size( 9 ) ) << Show Major Grid( 1 ) << Show Minor Grid( 1 ) << Show Minor Ticks( 1 );
rbiv[TextEditBox( 2 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
rbiv[TextEditBox( 1 )] << Set Font Size( 10 ) << Set Font Style( "Bold" );
rbiv[Outline Box( 1 )] << Set Title( y_param||" by "||x_param );
rbiv["Smoothing Spline Fit, lambda=1000 ?"] << Close All Like This;
rbiv[Framebox( 1 )] << Row Legend( Column( ht ), Color( 1 ), Marker( 0 ), Color Theme("JMP Default"), Continuous Scale( 0 ) );
rbiv[BorderBox(2)] << Delete;
pbiv = rbiv[OutlineBox( 1 )] << get picture;
);

This is how I call my function:
lb = LineupBox(NCol(4));
For(j=1, j<=nitems( xparam ), j++,
bivht( xparam[j], yparam[j], h );
lb << append(pbiv);
biv << Close Window;
);
ppt9 << append(lb << get picture);