Update hospital wis by date plot

analyze-scores.R

@@ -81,7 +81,8 @@ ggsave("cases-deaths-wis-by-date.png", pscores_cd_by_date, width = 5.2,
 
 pscores_h_by_date <-
   (
-    scores %>%
+    scores %>% 
+      filter(horizon %in% c(7, 14, 21, 28)) %>%
       filter(target_variable %in% c("inc hosp")) %>%
       ggplot(aes(
         x = target_end_date, y = wis, color = model
@@ -93,7 +94,8 @@ pscores_h_by_date <-
       labs(x = "Observation date", y = "Weighted interval score")
   ) %>%
   add_theme_mods()
-ggsave("hosp-wis-by-date.png", pscores_h_by_date, width = 5.2, dpi = 600)
+ggsave("hosp-wis-by-date.png", pscores_h_by_date, width = 5.2, 
+       height =4, dpi = 600)
 
 ssums <- scores %>%
   filter(facet_var %in% c("Cases", "Deaths")) %>% 
@@ -132,4 +134,4 @@ pscores_h <- (
 ) %>%
   add_theme_mods()
 
-ggsave("hosp-wis.png", pscores_h, width = 5.2, dpi = 600)
+ggsave("hosp-wis.png", pscores_h, width = 5.2, height = 4, dpi = 600)

dvc.lock

@@ -2082,8 +2082,8 @@ stages:
     cmd: ./analyze-scores.R
     deps:
     - path: analyze-scores.R
-      md5: 78cd64fd237b1f299c54c683976008b9
-      size: 4442
+      md5: b449d9651c106536bd406c47a6ec4881
+      size: 4522
     - path: lambda020.00-status-quo-CEID-InfectionKalman
       md5: 41646307aea204cffd82bf8485b7cdcc.dir
       size: 2542991
@@ -2099,11 +2099,11 @@ stages:
       md5: afafa22aa04bc7429237cf3e8546db7e
       size: 270645
     - path: hosp-wis-by-date.png
-      md5: 64922156ec96187fb1ae35b4f9e0aa35
-      size: 1065888
+      md5: 792f955c798920eb4cb972586393f7e1
+      size: 281322
     - path: hosp-wis.png
-      md5: cb184ae660c22005e2226b2cdeacdd04
-      size: 300316
+      md5: 4eb4de38d98ea20a4c865503046e7807
+      size: 239453
   lookup-wayback-urls:
     cmd: ./lookup-wayback-urls.R
     deps: