Add data, clean up some data, update plots.

bin/data-plots.R

@@ -16,9 +16,9 @@ unique(d_raw$Date)
 
 # Clean up here if needed
 d <- d_raw %>% 
-        mutate(Date = as.Date(Date)) %>% 
+        mutate(Date = as.Date(Date)) #%>% 
         # Drop Tech alone and leave Tech and Tech Plus
-        select(-c(Tech, Tech.Plus))
+        #select(-c(Tech, Tech.Plus))
         
 d_total <- d %>% filter(State.Territory == "TOTAL")