marginal PPD fill is white

mattansb · mattansb · commit dc0b45f337ab · 2026-03-20T14:24:19.000+02:00
diff --git a/R/helpers-gg.R b/R/helpers-gg.R
@@ -153,7 +153,7 @@ scale_fill_ppd <-
            show_marginal = FALSE,
            ...) {
     if (isTRUE(show_marginal)) {
-      default_values <- setNames(get_color(c("d", "l")), nm = c("PPD", "ypred"))
+      default_values <- c(PPD = "white", ypred = get_color("l"))
     } else {
       default_values <- get_color("m")
     }

Original file line number	Diff line number	Diff line change
`@@ -153,7 +153,7 @@ scale_fill_ppd <-`
`153`	`153`	`show_marginal = FALSE,`
`154`	`154`	`...) {`
`155`	`155`	`if (isTRUE(show_marginal)) {`
`156`		`- default_values <- setNames(get_color(c("d", "l")), nm = c("PPD", "ypred"))`
	`156`	`+ default_values <- c(PPD = "white", ypred = get_color("l"))`
`157`	`157`	`} else {`
`158`	`158`	`default_values <- get_color("m")`
`159`	`159`	`}`