Closed hrbrmstr closed 6 years ago
library(statebins)
library(tidyverse)
flu <- ili_weekly_activity_indicators(2017)
filter(flu, weeknumber == 45) %>%
statebins(state_col = "statename", value_col = "activity_level", round = TRUE,
ggplot2_scale_function = viridis::scale_fill_viridis,
name = "ILI Activity Level") +
labs(title="U.S. ILI Weekly Activity : Week #45 / 2017-18") +
theme_statebins()
https://github.com/hrbrmstr/cdcfluview/issues/11