vista_rise <- vista %>% select(Zip = zip, Date = date, `New Cases` = case_change) %>% filter(Date > "2020-11-01") %>% arrange(Date) vista_rise$Date <- as.Date(vista_rise$Date)