Reverse the stacked colours in the windrose function to have low wind…

… speeds near the center.
ropensci · Mar 9, 2023 · 1eff5aa · 1eff5aa · blasee · Mar 9, 2023
1 parent 1d76bce
commit 1eff5aa
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: clifro
 Type: Package
 Title: Easily Download and Visualise Climate Data from CliFlo
-Version: 3.2-5.9002
-Date: 2022-07-20
+Version: 3.2-5.9003
+Date: 2023-03-09
 Authors@R: person("Blake", "Seers", role = c("aut", "cre"),
     email = "[email protected]",
     comment = c(ORCID = "http://orcid.org/0000-0001-6841-4312"))

diff --git a/R/cfData-plotMethods.R b/R/cfData-plotMethods.R
@@ -225,7 +225,7 @@ windrose = function(speed, direction, facet, n_directions = 12,
   ## (gg)Plot me
   ggwindrose = ggplot(data = ggplot_df,
                       aes_string(x = "dir_bin", fill = "spd_bin", y = "proportion")) +
-    geom_bar(stat = "identity") +
+    geom_bar(stat = "identity", position = position_stack(reverse = TRUE)) +
     scale_x_discrete(breaks = levels(ggplot_df$dir_bin)[seq(1, n_directions,
                                                             n_directions / 4)],
                      labels = c("N", "E", "S", "W"), drop = FALSE) +