Update data, plots, README.

2024-05-24 20:07:04 -05:00
parent 647d6df134
commit 883fd8606b
16 changed files with 2842 additions and 10 deletions
--- a/bin/data-plots.R
+++ b/bin/data-plots.R
@ -235,7 +235,8 @@ ggsave("plots/states-over-time-freey.png", width = 15, height = 9)
 a <- city %>% group_by(city_label) %>% 
                mutate(plot_label = if_else(Date == max(Date), 
                                            city_label,
-                                            NA_character_))
+                                            NA_character_)) %>% 
+                distinct()
 ggplot(data = a,
       aes(x = Date,
           y = Count,