From 649e50ad6fb73f6b841518de3d06dca87d4f8f65 Mon Sep 17 00:00:00 2001 From: Elin Waring Date: Wed, 8 Jul 2026 12:53:51 -0400 Subject: [PATCH 1/2] Update plot.means_by_group.R --- R/plot.means_by_group.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/plot.means_by_group.R b/R/plot.means_by_group.R index d7f38c445..34ee77ddc 100644 --- a/R/plot.means_by_group.R +++ b/R/plot.means_by_group.R @@ -98,7 +98,8 @@ plot.see_dw_groupmeans_list <- function( }) x_long <- do.call(rbind, x) - trimmed <- trimmed <- x_long[x_long$Category != "Total", ] + trimmed <- x_long[x_long$Category != "Total", ] + trimmed$Category <- as.factor(trimmed$Category) p <- ggplot2::ggplot( trimmed, From 12ded91a7712959c40840bbd002f2296b8e75403 Mon Sep 17 00:00:00 2001 From: Elin Waring Date: Wed, 8 Jul 2026 13:38:45 -0400 Subject: [PATCH 2/2] Update plot.means_by_group.R --- R/plot.means_by_group.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/plot.means_by_group.R b/R/plot.means_by_group.R index 34ee77ddc..7983f05bb 100644 --- a/R/plot.means_by_group.R +++ b/R/plot.means_by_group.R @@ -37,6 +37,7 @@ plot.see_dw_groupmeans <- function( caption_text <- if (isTRUE(caption)) .build_caption(x) else "" trimmed <- x[x$Category != "Total", ] + trimmed$Category <- factor(trimmed$Category, levels = trimmed$Category) p <- ggplot2::ggplot( trimmed,