Choropleths for 2019-nCov
Choropleths for 2019-nCov
In[]:=
ds=ResourceData["Epidemic Data for Novel Coronavirus 2019-nCoV from Wuhan, China"];
In[]:=
ds[1]
Out[]=
In[]:=
ds[Select[#Country["Name"]==="China"||#Country["Name"]==="Taiwan"&],{"AdministrativeDivision","ConfirmedCases"}]
In[]:=
list=NormaldsSelect[#Country["Name"]==="China"||#Country["Name"]==="Taiwan"&],#AdministrativeDivision/.#ConfirmedCases["LastValue"]&
Out[]=
16678,895,870,764,661,548,530,366,341,301,298,233,228,194,190,165,150,135,122,91,81,81,67,64,57,54,42,34,32,17,11,1
In[]:=
Log[1+16678]/10.
Out[]=
0.972191
In[]:=
i2c[i_]:=Blend[{White,Purple},Log[1+i]/10.]
In[]:=
Manipulate[Graphics[{Blend[{White,Purple},p],Disk[]}],{p,0,1}]
In[]:=
GeoGraphics[Map[{GeoStyling[{EdgeForm[White],FaceForm[i2c[Last[#]]]}],First[#]["Polygon"]}&,list],GeoBackgroundNone]
Out[]=
In[]:=
makeplot[list_,date_]:=GeoGraphicsMap[{GeoStyling[{EdgeForm[{AbsoluteThickness[1],White}],FaceForm[i2c[Last[#]]]}],Tooltip[First[#]["Polygon"],Style[Column[{First[#]["Name"],Last[#]}],24]]}&,list],GeoProjection"Orthographic",GeoRangeAutomatic,GeoCenter,ImageSize1000,GeoBackgroundNone,EpilogText[Style["2019-nCov\nconfirmed cases\n"<>DateString[date],16],Scaled[{.25,.25}]]
In[]:=
makeplot[list,DateObject[{2020,2,4}]]
Out[]=
In[]:=
DateString[Today]
Out[]=
Tue 4 Feb 2020
In[]:=
Export["D:\\git\\wolfram-coronavirus\\images\\confirmed-cases-02042020.png",ImageCrop[Rasterize[Out[86],"Image",ImageSize1000]]]
Out[]=
D:\git\wolfram-coronavirus\images\confirmed-cases-02042020.png