(* Daten aus https://www.bfs.admin.ch/bfs/de/home/statistiken/gesundheit/gesundheitszustand/sterblichkeit-todesursachen.html  *)

A=Import["10-21.csv"];
B=Table[{A[[k,1]],A[[k,2]],A[[k,4]],A[[k,5]]},{k,Length[A]}]; 
B1={}; Do[If[B[[k,3]]=="0-64",B1=Append[B1,B[[k,4]]]],{k,Length[B]}];
B2={}; Do[If[B[[k,3]]=="65+", B2=Append[B2,B[[k,4]]]],{k,Length[B]}];
S1=ListPlot[B1,PlotRange->{0,232},Joined->True, PlotStyle->Green,Axes->False];
S2=ListPlot[B2,PlotRange->{0,2200},Joined->True,PlotStyle->Red,Axes->False];
S3=Graphics[Table[Text[500*k,{-10,500*k}],{k,4}]];
S4=Graphics[Arrow[{{0,0},{0,2200}}]];
S5=Graphics[Arrow[{{0,0},{Length[B1],0}}]];
S6=Graphics[Table[Text[2010+k,{k*Length[B1]/12,-100}],{k,0,11}]];
S7=Graphics[{Red,FontSize->40,Text["Mortality 65+",{150,2000}]}];
S8=Graphics[{Green,FontSize->40,Text["Mortality 0-64",{150,500}]}];
S9=Graphics[{Black,FontSize->24,Text["Quelle: Bundesamt Statistik",{450,2100}]}];
S=Show[{S2,S1,S3,S4,S5,S6,S7,S8,S9},PlotRange->{{-20,Length[B1]},{-160,2200}}];
Export["mortality.png",S,"PNG",ImageSize->1600];

