用Wolfram语言简单比较一下目前新型冠状病毒、非典和中东呼吸综合征感染的情况

data={{24527,490},{8098,774},{2500,858},{1568,616}};
BarChart[data,
PlotTheme->"Business",
ChartLayout->"Stacked",
ChartLabels->{Placed[{"2019-nCoV","SARS","MERS","Avian Flu"},{{0.5,0},{0.8,1.2}},Rotate[#,(1.75/7) Pi]&],Placed[{"",""},Above]},
LabelingFunction->(Placed[Rotate[#,0 Pi],If[#1>1,Center,Above]]&),
ChartLegends->Placed [{"Infections","Fatalities"},Right],
PlotLabel->Style["2019-nCoV Infections",FontFamily->"Helvetica",Thin,24],
AspectRatio->0.55]