diff --git a/scripts/functions/wideP_consurf.R b/scripts/functions/wideP_consurf.R index b2b97cf..692d4dd 100644 --- a/scripts/functions/wideP_consurf.R +++ b/scripts/functions/wideP_consurf.R @@ -307,7 +307,7 @@ wideP_consurf <- function(plot_df g1_leg = g1_leg + geom_bar(aes_string(fill = sprintf("factor(%s)" , yvar_colourN_colname))) - g1_leg = g1_leg + scale_fill_manual(values = consurf_palette2 , name = leg_title1) + g1_leg = g1_leg + scale_fill_manual(values = consurf_palette1 , name = leg_title1) g1_leg legend1 = get_legend(g1_leg)