From e17d681edfdd2736944347d1d35214e3b68ccb62 Mon Sep 17 00:00:00 2001 From: Fran Barton Date: Tue, 14 Jul 2026 15:35:21 +0100 Subject: [PATCH] Fix segment colours on ecdf plot Should close #147 --- R/distribution_plots.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/distribution_plots.R b/R/distribution_plots.R index 1e0cb43..c5ff046 100644 --- a/R/distribution_plots.R +++ b/R/distribution_plots.R @@ -80,7 +80,7 @@ make_cumulative_distrib_plot <- function(distrib_plot_data, show_zero = FALSE) { x_end = rep(c(x_quantiles, principal_value), 2), y_start = c(quantiles, principal_pct, rep(0, 3)), y_end = rep(c(quantiles, principal_pct), 2), - colour = rep(c(rep(plot_red, 2), plot_blue), 2) + colour = rep(c(rep(plot_blue, 2), plot_red), 2) ) interim_plot <- tibble::tibble(x = x_vals, y = y_vals) |> ggplot2::ggplot(ggplot2::aes(.data[["x"]], .data[["y"]])) +