Fixed the wrong layering of the ggplots.

Author: kenmawer

vignettes/advanced.Rmd

@@ -369,14 +369,14 @@ fc <- bind_rows(k_week_ahead(x, ahead = 7, as_of = TRUE),
 # Plot them, on top of latest COVID-19 case rates 
 ggplot(fc, aes(x = target_date, group = time_value, fill = as_of)) +
   geom_ribbon(aes(ymin = fc_lower, ymax = fc_upper), alpha = 0.4) +
+  geom_line(data = x_latest, aes(x = time_value, y = case_rate), 
+               inherit.aes = FALSE, color = "gray50") +
   geom_line(aes(y = fc_point)) + geom_point(aes(y = fc_point), size = 0.5) + 
   geom_vline(aes(xintercept = time_value), linetype = 2, alpha = 0.5) +
   facet_grid(vars(geo_value), vars(as_of), scales = "free") +
   scale_x_date(minor_breaks = "month", date_labels = "%b %y") +
   labs(x = "Date", y = "Reported COVID-19 case rates") + 
-  theme(legend.position = "none") +
-  geom_line(data = x_latest, aes(x = time_value, y = case_rate), 
-               inherit.aes = FALSE, color = "gray50")
+  theme(legend.position = "none") 
 ```
 
 We can see that these forecasts, which come from training an ARX model jointly

vignettes/archive.Rmd

@@ -377,14 +377,14 @@ fc <- bind_rows(k_week_ahead(x, ahead = 7, as_of = TRUE),
 # Plot them, on top of latest COVID-19 case rates 
 ggplot(fc, aes(x = target_date, group = time_value, fill = as_of)) +
   geom_ribbon(aes(ymin = fc_lower, ymax = fc_upper), alpha = 0.4) +
+  geom_line(data = x_latest, aes(x = time_value, y = case_rate), 
+               inherit.aes = FALSE, color = "gray50") +
   geom_line(aes(y = fc_point)) + geom_point(aes(y = fc_point), size = 0.5) + 
   geom_vline(aes(xintercept = time_value), linetype = 2, alpha = 0.5) +
   facet_grid(vars(geo_value), vars(as_of), scales = "free") +
   scale_x_date(minor_breaks = "month", date_labels = "%b %y") +
   labs(x = "Date", y = "Reported COVID-19 case rates") + 
-  theme(legend.position = "none") +
-  geom_line(data = x_latest, aes(x = time_value, y = case_rate), 
-               inherit.aes = FALSE, color = "gray50")
+  theme(legend.position = "none") 
 ```
 
 Each row displays the forecasts for a different location (CA and FL), and each