Add better titles to coverage maps, and reflow code.

benjaminysmith · benjaminysmith · commit 652ea13c614d · 2020-10-30T10:21:05.000-04:00
diff --git a/R-notebooks/dashboard_functions.R b/R-notebooks/dashboard_functions.R
@@ -13,7 +13,9 @@ plot_28_day_frequency_state  <- function(df_to_plot) {
   
   covidcast_signal_to_plot = make_covidcast_signal(states_present, df_to_plot, "state")
   
-  plot(covidcast_signal_to_plot, range=c(0,28))
+  plot(covidcast_signal_to_plot,
+       title = "State frequency in last 28 days",
+       range = c(0, 28))
 }
 
 plot_28_day_frequency_county  <- function(df_to_plot) {
@@ -24,5 +26,7 @@ plot_28_day_frequency_county  <- function(df_to_plot) {
   
   covidcast_signal_to_plot = make_covidcast_signal(counties_present, df_to_plot, "county")
   
-  plot(covidcast_signal_to_plot, range=c(0,28))
+  plot(covidcast_signal_to_plot,
+       title = "County frequency in last 28 days",
+       range = c(0, 28))
 }

Original file line number	Diff line number	Diff line change
`@@ -13,7 +13,9 @@ plot_28_day_frequency_state <- function(df_to_plot) {`
`13`	`13`
`14`	`14`	`covidcast_signal_to_plot = make_covidcast_signal(states_present, df_to_plot, "state")`
`15`	`15`
`16`		`- plot(covidcast_signal_to_plot, range=c(0,28))`
	`16`	`+ plot(covidcast_signal_to_plot,`
	`17`	`+ title = "State frequency in last 28 days",`
	`18`	`+ range = c(0, 28))`
`17`	`19`	`}`
`18`	`20`
`19`	`21`	`plot_28_day_frequency_county <- function(df_to_plot) {`
`@@ -24,5 +26,7 @@ plot_28_day_frequency_county <- function(df_to_plot) {`
`24`	`26`
`25`	`27`	`covidcast_signal_to_plot = make_covidcast_signal(counties_present, df_to_plot, "county")`
`26`	`28`
`27`		`- plot(covidcast_signal_to_plot, range=c(0,28))`
	`29`	`+ plot(covidcast_signal_to_plot,`
	`30`	`+ title = "County frequency in last 28 days",`
	`31`	`+ range = c(0, 28))`
`28`	`32`	`}`