Attempting to recreate M. Levitt Sweden COVID plot

covid_swe_since_2020_01_22.R

# reference:

library('cowplot')
library('dplyr')
library('ggplot2')
library('lubridate')

data <- read.csv("https://opendata.ecdc.europa.eu/covid19/casedistribution/csv", na.strings = "", fileEncoding = "UTF-8-BOM")

swe = filter(data, countryterritoryCode == 'SWE')

start_date = '2020-01-22'

swe = dplyr::mutate(swe, date_adj = dmy(as.character(dateRep)))
swe = dplyr::mutate(swe, days_since = time_length(start_date %--% date_adj, 'day'))
swe_pos = dplyr::filter(swe, days_since >= 0)

p = ggplot(swe_pos, aes(days_since, deaths))
p = p + geom_point()
p = p + geom_line()
p = p + stat_smooth(span = 0.5, col = 'red')
p

save_plot(p, file = 'swe_since_2020-01-22.png')