Fit Y by X Spline fit color

[#1]

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

[#2]

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

[#3]

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

[#4]

Can you share your full code?

[#5]

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

[#6]

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

[#7]

ht is a variable name

[#8]

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

[#9]

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

[#10]

I'm lost now :D