Tolk den her graf som du vil

Det er en meget simpel graf som ser på antal døde i forhold til antal smittede.

Der er mange forbehold at tage, men mon ikke den alligevel siger lidt om hvor presserende SARS-CoV-2 var og er.

Grafen er lavet i R og dygraphs med datasættet COVID19 fra COVID-19 Data Hub • COVID-19 Data Hub

Den nøjagtige opskrift får du her:

# indlæs nødvendige libs
library("COVID19")
library(xts)
library(dygraphs)
# hent alle data for danmark
dk <- covid19("Denmark")
# reduceret datasæt 'rdk' med dato, døde og smittede
rdk <- dk[, c("date","deaths", "confirmed")]
# giv kolonner i 'rdk' danske navne
colnames(rdk) <- c("dato","døde","smittede")
# udregn og tilføj kolonne 'andel' i 'rdk'
rdk <- mutate(rdk, andel = døde / smittede * 100)
# skab tidsserie 'trdk' ud fra 'rdk'
trdk <- as.xts(rdk, rdk$dato)
# fjern overflødig kolonne i 'trdk'
trdk <- trdk[, colnames(trdk) != "dato"]
# tegn graf over andel
dygraph(trdk$andel, main ="Døde i procent af registrerede smittede") |> 
  dyEvent("2020-12-27", "Første stik i DK", labelLoc = "top") |> 
  dyEvent("2021-08-25", "70 procent med to stik", labelLoc = "top") |> 
  dyEvent("2021-12-15", "Omikron overtager", labelLoc = "top")