Switch plot axes in coev_plot_delta_theta()

ScottClaessens · Jul 22, 2024 · 32bc2f2 · 32bc2f2
1 parent a4a8e79
commit 32bc2f2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/coev_plot_delta_theta.R b/R/coev_plot_delta_theta.R
@@ -99,8 +99,8 @@ coev_plot_delta_theta <- function(object, variables = NULL, ...) {
   dd <- dplyr::group_by(d, .data$response, .data$predictor)
   dd <- dplyr::summarise(
     dd,
-    lower = stats::quantile(.data$delta_theta, 0.02),
-    upper = stats::quantile(.data$delta_theta, 0.98),
+    lower = stats::quantile(.data$delta_theta, 0.025),
+    upper = stats::quantile(.data$delta_theta, 0.975),
     .groups = "drop"
     )
   # plot
@@ -124,7 +124,7 @@ coev_plot_delta_theta <- function(object, variables = NULL, ...) {
       ymin = -Inf, ymax = Inf
     ) +
     ggplot2::facet_grid(
-      .data$response ~ .data$predictor,
+      .data$predictor ~ .data$response,
       switch = "y"
       ) +
     ggplot2::labs(