From d2768f2d42030e16396e129bda2164853a39d38e Mon Sep 17 00:00:00 2001
From: hanneoberman <h.i.oberman@uu.nl>
Date: Wed, 4 Oct 2023 10:21:27 +0200
Subject: [PATCH] Fix #125

---
 R/plot_pred.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/R/plot_pred.R b/R/plot_pred.R
index 2cc425c7..f1484a87 100644
--- a/R/plot_pred.R
+++ b/R/plot_pred.R
@@ -50,13 +50,13 @@ plot_pred <-
       ind = matrix(data, nrow = p * p, byrow = TRUE)
     ) %>% dplyr::mutate(clr = factor(
       .data$ind,
-      levels = c(-2, 0, 1, 2, 3),
+      levels = c(-3, -2, 0, 1, 2),
       labels = c(
+        "inclusion-restriction variable",
         "cluster variable",
         "not used",
         "predictor",
-        "random effect",
-        "inclusion-restriction variable"
+        "random effect"
       ),
       ordered = TRUE
     ))
@@ -78,11 +78,11 @@ plot_pred <-
       ) +
       ggplot2::scale_fill_manual(
         values = c(
+          "inclusion-restriction variable" = "orangered",
           "cluster variable" = "lightyellow",
           "not used" = "grey90",
           "predictor" = "palegreen3",
-          "random effect" = "deepskyblue",
-          "inclusion-restriction variable" = "orangered"
+          "random effect" = "deepskyblue"
         )
       ) +
       ggplot2::labs(