Better looking boxplots

franzmohr · Jul 8, 2023 · dd0e429 · dd0e429
1 parent 4216403
commit dd0e429
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/plot.teststats.bgvarest.R b/R/plot.teststats.bgvarest.R
@@ -18,6 +18,9 @@ plot.teststats.bgvarest <- function(x, ctry = NULL, ...) {
     pos <- which(names(x) %in% ctry)
   }
 
+  mgp_orig <- graphics::par("mgp")
+  graphics::par(mgp = c(3, 2.5, 0))
+
   for (i in pos) {
     ctry_name <- names(x)[i]
     ctry_temp <- c()
@@ -51,6 +54,8 @@ plot.teststats.bgvarest <- function(x, ctry = NULL, ...) {
     graphics::boxplot(ctry_temp, main = ctry_name, ...)
   }
 
+  graphics::par(mgp = mgp_orig)
+
 }