Tweaked so legend and plot color orders match

lter · Aug 24, 2023 · f99f1aa · f99f1aa
1 parent aae9e1e
commit f99f1aa
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/site_timeline.R b/R/site_timeline.R
@@ -72,15 +72,15 @@ site_timeline <- function(sites = NULL, habitats = NULL, colors = NULL){
 
     # Use the default colors
     times_v2 <- times_v1 +
-      ggplot2::scale_fill_manual(values = habitat_colors) +
-      ggplot2::scale_color_manual(values = habitat_colors) }
+      ggplot2::scale_fill_manual(values = habitat_colors, breaks = rev(names(habitat_colors))) +
+      ggplot2::scale_color_manual(values = habitat_colors, breaks = rev(names(habitat_colors))) }
 
   # If no palette is provided, just use the default colors (no error message)
   if(is.null(colors) == TRUE){
 
     times_v2 <- times_v1 +
-      ggplot2::scale_fill_manual(values = habitat_colors) +
-      ggplot2::scale_color_manual(values = habitat_colors) }
+      ggplot2::scale_fill_manual(values = habitat_colors, breaks = rev(names(habitat_colors))) +
+      ggplot2::scale_color_manual(values = habitat_colors, breaks = rev(names(habitat_colors))) }
 
   # Return that object
   return(times_v2) }