Merge branch 'feature/bias-25A' of https://github.com/epiforecasts/evalvariantnowcasthub into feature/bias-25A

Author: Kaitlyn Johnson

R/fig_pred_plus_data.R

@@ -18,15 +18,14 @@ get_plot_model_pred_obs <- function(model_pred_obs_df,
     )
   }
 
-  weekly_obs_data <- daily_to_weekly(eval_seq)
-  total_seq <- weekly_obs_data |>
+  total_seq <- eval_seq |>
     group_by(date, location) |>
     summarise(n_seq = sum(sequences))
-  weekly_obs <- left_join(weekly_obs_data, total_seq)
+  obs <- left_join(eval_seq, total_seq)
 
   if (!is.null(clades_to_plot)) {
-    weekly_obs <- filter(
-      weekly_obs,
+    obs <- filter(
+      obs,
       clades_modeled %in% clades_to_plot
     )
   }
@@ -48,11 +47,11 @@ get_plot_model_pred_obs <- function(model_pred_obs_df,
       fill = clade
     ), alpha = 0.1) +
     geom_point(
-      data = weekly_obs,
+      data = obs,
       aes(
         x = date, y = sequences / n_seq,
         color = clades_modeled
-      )
+      ), size = 0.5
     ) +
     facet_grid(rows = vars(model_id), cols = vars(location)) +
     get_plot_theme(dates = TRUE) +