now sort benchmark to beginning of legend (better control its color)

lgessl · Feb 13, 2024 · d7979ae · d7979ae
1 parent f89d0c5
commit d7979ae
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/plot.R b/R/plot.R
@@ -10,7 +10,7 @@ plot_2d_metric <- function(
     if(!is.null(ass_spec_2d$benchmark)){
         model_levels <- unique(data[["model"]])
         model_levels <- sort(model_levels[model_levels != ass_spec_2d$benchmark])
-        model_levels <- c(model_levels, ass_spec_2d$benchmark)
+        model_levels <- c(ass_spec_2d$benchmark, model_levels)
         data[["model"]] <- factor(data[["model"]], levels = model_levels)
     }
     x_metric <- ass_spec_2d$x_metric