Factor out chorpleth plot

Author: benjaminysmith

R-notebooks/dashboard_functions.R

@@ -0,0 +1,9 @@
+plot_28_day_frequency <- function(df_to_plot, geo_type) {
+  # These are all required for rendering using covidcast.plot
+  df_to_plot$time_value = "2020-04-15"
+  df_to_plot$issue = "2020-04-15"
+  attributes(df_to_plot)$geo_type = geo_type
+  class(df_to_plot) = c("covidcast_signal", "data.frame")
+  
+  plot(df_to_plot, range=c(0,28))
+}

R-notebooks/doctor_visits_dashboard.Rmd

@@ -59,11 +59,6 @@ counties_present = df_doctor_visits_counties %>%
   summarize(value = n()) %>% ungroup() %>%
   filter(substr(geo_value, 3, 5) != "000")
 
-# These are all required for rendering using covidcast.plot
-counties_present$time_value = "2020-04-15"
-counties_present$issue = "2020-04-15"
-attributes(counties_present)$geo_type = "county"
-class(counties_present) = c("covidcast_signal", "data.frame")
-
-plot(counties_present, title = "How frequently do counties appear in the last 28 days?")
+source("dashboard_functions.R")
+plot_28_day_frequency(counties_present, "county")
 ```

R-notebooks/ght_dashboard.Rmd

@@ -87,12 +87,6 @@ states_present = df_ght_states %>%
 group_by(geo_value) %>%
 summarize(value = n())
 
-# These are all required for rendering using covidcast.plot
-states_present$time_value = "2020-04-15"
-states_present$issue = "2020-04-15"
-attributes(states_present)$geo_type = "state"
-class(states_present) = c("covidcast_signal", "data.frame")
-
-plot(states_present, title = "How frequently do states appear in last 28 days?", range =
-c(0, 28))
+source("dashboard_functions.R")
+plot_28_day_frequency(states_present, "state")
 ```

R-notebooks/hospital_admissions_dashboard.Rmd

@@ -66,12 +66,6 @@ counties_present = df_hospital_admissions_counties %>%
   summarize(value = n()) %>% ungroup() %>%
   filter(substr(geo_value, 3, 5) != "000")
 
-# These are all required for rendering using covidcast.plot
-counties_present$time_value = "2020-04-15"
-counties_present$issue = "2020-04-15"
-attributes(counties_present)$geo_type = "county"
-class(counties_present) = c("covidcast_signal", "data.frame")
-
-plot(counties_present, title = "How frequently do counties appear in the last 28 days?", range =
-       c(0, 28))
+source("dashboard_functions.R")
+plot_28_day_frequency(counties_present, "county")
 ```

R-notebooks/quidel_dashboard.Rmd

@@ -87,11 +87,6 @@ states_present = df_quidel_states %>%
   group_by(geo_value) %>%
   summarize(value = n())
 
-# These are all required for rendering using covidcast.plot
-states_present$time_value = "2020-04-15"
-states_present$issue = "2020-04-15"
-attributes(states_present)$geo_type = "state"
-class(states_present) = c("covidcast_signal", "data.frame")
-
-plot(states_present, title = "How frequently do states appear in last 28 days?")
+source("dashboard_functions.R")
+plot_28_day_frequency(states_present, "state")
 ```