From fed0c43b55293719f492da94d9a1acfdede3e990 Mon Sep 17 00:00:00 2001
From: Bruno Nicenboim <bruno.nicenboim@gmail.com>
Date: Mon, 15 Mar 2021 09:40:46 +0100
Subject: [PATCH] gives consistent order to the parameters

---
 R/mcmc-recover.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/mcmc-recover.R b/R/mcmc-recover.R
index 05ed0098..83ba4e13 100644
--- a/R/mcmc-recover.R
+++ b/R/mcmc-recover.R
@@ -315,6 +315,7 @@ mcmc_recover_hist <-
 
     vline_data <- data.frame(Parameter = colnames(x), True = true)
     hist_data <- melt_mcmc(x)[, -1]
+    vline_data$Parameter <- factor(vline_data$Parameter, levels = levels(hist_data$Parameter))
 
     facet_args[["facets"]] <- "Parameter"
     facet_args[["scales"]] <- facet_args[["scales"]] %||% "free"