Map Report

This is a report for the month of 1 in 2022.

library(dplyr)
hosp1 <- hospital_ops %>%
  select(State, Hospitals_Covid_Cases, Month) %>%
  rename(state = State) %>%
  filter(Month == choice)

plot_usmap(data = hosp1,
           values = "Hospitals_Covid_Cases",
           color = "yellow") + 
  scale_fill_continuous(
    name = "Hospitals Reporting COVID Cases", 
    type = "viridis") + 
  theme(legend.position = "right") +
  labs(title = "Hospitals Reporting COVID Cases in 2022",
       subtitle = paste("Reported in month", choice),
       caption = "Data from hospital_ops dataset")