dailyDeaths=Drop[Transpose@Drop[Drop[Import[FileNameJoin[{NotebookDirectory[],"2020-05-08---preliminar-statistik-over-doda-inkl-eng.xlsx"}],{"Data","Tabell 1"}],7],-1],1];dailyDeaths2020=dailyDeaths[[7]];ListPlot[dailyDeaths[[1;;8]],ImageSizeLarge,JoinedTrue,PlotRangeAll,PlotLegends{2015,2016,2017,2018,2019,2020,"Average"},PlotStyle{Opacity[0.5],Opacity[0.5],Opacity[0.5],Opacity[0.5],Opacity[0.5],Directive[Orange,Thick],{Gray,Thick}},PlotLabel"Total Daily Number of Deaths in Sweden"]