Update utils_plot_DOW_bySector.R

Added fix to ggplot call
USEPA · Dec 19, 2023 · 2036a49 · 2036a49
1 parent f023f47
commit 2036a49
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/FrEDI/R/utils_plot_DOW_bySector.R b/FrEDI/R/utils_plot_DOW_bySector.R
@@ -125,7 +125,7 @@ plot_DOW_bySector <- function(
     plot0  <- plot0 + geom_point(data = df0_2, aes(x = .data[[xCol]], y = .data[[yCol]], color=.data[["model"]], shape = .data[["model"]]), alpha=0.65)
   } else{
     ### Initialize plot
-    plot0  <- ggplot(x=.data[[xCol]], y=.data[[yCol]], color=.data[["model"]])
+    plot0  <- df0 |> ggplot(x=.data[[xCol]], y=.data[[yCol]], color=.data[["model"]])
     ### Add geoms
     plot0  <- plot0 + geom_line (alpha=0.65)
     plot0  <- plot0 + geom_point(aes(shape = model), alpha=0.65)