x-axis now shows months

#2
rabutler-usbr · Dec 28, 2018 · ee7f70d · ee7f70d
1 parent c06e9ca
commit ee7f70d
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/plot.knnst.R b/R/plot.knnst.R
@@ -40,6 +40,9 @@ plot.knnst <- function(x, ..., site = "S1")
       aes_string("month", "Value"),
       color = "red",
       shape = 18
+    ) +
+    labs(
+      x = NULL
     )
 
   # TODO: monthly pdf
@@ -85,5 +88,10 @@ get_plot_stats <- function(x_df, site)
     dplyr::mutate_at(
       "Variable",
       dplyr::funs(factor(var_name_order[.], levels = var_name_order))
+    ) %>%
+    dplyr::ungroup() %>%
+    dplyr::mutate_at(
+      "month",
+      dplyr::funs(factor(month.abb[.], levels = month.abb))
     )
 }