You are removing the selection of the Value Color when you are specifying the Line Color on the Fit Where. Below is an example where the colors remain the same
![txnelson_0-1661871156294.png txnelson_0-1661871156294.png](https://community.jmp.com/t5/image/serverpage/image-id/45082iA8713ABF40C425A2/image-dimensions/637x348?v=v2)
![txnelson_1-1661871214763.png txnelson_1-1661871214763.png](https://community.jmp.com/t5/image/serverpage/image-id/45083iD5F2ECEA24CF80AF/image-dimensions/704x398?v=v2)
Names Default To Here( 1 );
dt = Current Data Table();
Show( :Run << get property( "Value Colors" ) );
:Run << set property( "Value Colors", {"10" = 35, "14" = 68, "24" = 77, "32" = 75} );
:Run << color cell by value( 1 );
Show( :Run << get property( "Value Colors" ) );
Bivariate(
Y( :Result ),
X( :Date ),
Fit Where( :Run == "10", Fit Line() ),
Fit Where( :Run == "14", Fit Line() ),
Fit Where( :Run == "24", Fit Line() ),
Fit Where( :Run == "32", Fit Line() ),
Local Data Filter(
Add Filter(
columns( :Date ),
Where( :Date >= 12Mar2022:05:43:20 & :Date <= 06May2022 )
)
),
SendToReport(
Dispatch(
{},
"Bivar Plot",
FrameBox,
{Row Legend(
Run,
Color( 1 ),
Color Theme( "" ),
Marker( 0 ),
Marker Theme( "" ),
Continuous Scale( 0 ),
Reverse Scale( 0 ),
Excluded Rows( 0 )
)}
)
)
);
Jim