gives consistent order to the parameters

stan-dev · Mar 15, 2021 · fed0c43 · fed0c43
1 parent d6fde22
commit fed0c43
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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"