get_local_covid_data.R

library(tidyverse)
library(zoo)

read_csv('https://coronavirus.data.gov.uk/downloads/csv/coronavirus-cases_latest.csv') %>% 
  dplyr::filter(`Area type` == 'Upper tier local authority') %>%
  dplyr::arrange(desc(`Area name`)) %>%
  dplyr::group_by(desc(`Area name`)) %>%
  dplyr::mutate(`Cases - 7 day rolling average` = zoo::rollmean(`Daily lab-confirmed cases`, k = 7, fill = NA)) %>%
  dplyr::ungroup() %>%
  dplyr::filter(`Area name` %in% c('Gateshead', 'Newcastle upon Tyne')) %>%
  ggplot(aes(x=`Specimen date`, y=`Cases - 7 day rolling average`, group=`Area name`)) + 
  geom_line(aes(colour=`Area name`)) +
  geom_line(aes(y=`Daily lab-confirmed cases`, colour=`Area name`), alpha=0.4) +
  theme_bw()