Skip to content

Instantly share code, notes, and snippets.

@oneryalcin

oneryalcin/coranavirus_reading.R

Created July 14, 2020 20:08
Show Gist options
  • Save oneryalcin/10450c4af3b020a5e6a1934297f6ed43 to your computer and use it in GitHub Desktop.
Save oneryalcin/10450c4af3b020a5e6a1934297f6ed43 to your computer and use it in GitHub Desktop.
Download ZIP
Initial code for creating custom coronavirus tracker for UK
Raw
coranavirus_reading.R
df <- read_csv('https://coronavirus.data.gov.uk/downloads/csv/coronavirus-cases_latest.csv')
df <- df %>% rename(cases=`Daily lab-confirmed cases`, day =`Specimen date`, area_name='Area name')
reading = df %>% filter(area_name=='Reading') %>% filter(`Area type` == "Lower tier local authority")
g <- reading %>% filter(day > ymd("2020-06-01")) %>% ggplot(aes(x=day, y=cases)) + geom_col()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment