In[]:=
ds=ResourceData["Epidemic Data for Novel Coronavirus 2019-nCoV from Wuhan, China"];
In[]:=
ts=ds[Select[#Country["Name"]==="China"&],<|"region"First@StringSplit[#AdministrativeDivision["Name"],", "],"cases"#ConfirmedCases["LastValue"]|>&];
In[]:=
cases=ts[ReverseSortBy[#cases&]]
Out[]=
In[]:=
Export["D:\\git\\wolfram-coronavirus\\docs\\cases.csv",cases,"TextDelimiters"""]
Out[]=
D:\git\wolfram-coronavirus\docs\cases.csv
In[]:=
ds
In[]:=
ts=ds[Select[(#Country["Name"]=!="China"&&Not[MissingQ[#Country]])&],<|"country"First@StringSplit[#Country["Name"],", "],"cases"#ConfirmedCases["LastValue"]|>&];
In[]:=
ts2=ts[GroupBy[#country&],<|"country"First[#]["country"],"cases"Total[Map[#["cases"]&,#]]|>&]
Out[]=
In[]:=
cases=ts2[ReverseSortBy[#cases&]]
Out[]=
In[]:=
Export["D:\\git\\wolfram-coronavirus\\docs\\cases-by-country.csv",c2,"TextDelimiters"""]
Out[]=
D:\git\wolfram-coronavirus\docs\cases-by-country.csv
In[]:=
c2=cases[Values]
Out[]=
In[]:=
ExportString[c2,"TextDelimiters"""]
In[]:=
ds[Select[#Country["Name"]==="Australia"&]]
Out[]=
In[]:=
ts=dsSelect#AdministrativeDivision==&,"ConfirmedCases"//Normal//First
Out[]=
TimeSeries
In[]:=
TimeSeriesRescale[ts,{DateObject[{2020,1,21}],DateObject[{2020,2,9}],"Day"}]
Out[]=
TimeSeries
In[]:=
ts2=TimeSeriesResample[ts,"Day"]
Out[]=
TimeSeries
In[]:=
DateListPlot[ts2]
Out[]=
In[]:=
ts3=Map[<|"day"DateString[First[#],{"MonthName"," ","Day"}],"cases"Round[Last[#]]|>&,N[Normal[ts2]]]
Out[]=
{dayJanuary 21,cases270,dayJanuary 22,cases444,dayJanuary 23,cases532,dayJanuary 24,cases699,dayJanuary 25,cases1052,dayJanuary 26,cases1393,dayJanuary 27,cases2714,dayJanuary 28,cases3554,dayJanuary 29,cases4609,dayJanuary 30,cases5271,dayJanuary 31,cases7153,dayFebruary 01,cases8533,dayFebruary 02,cases11275,dayFebruary 03,cases13522,dayFebruary 04,cases16678,dayFebruary 05,cases19452,dayFebruary 06,cases20293,dayFebruary 07,cases24048,dayFebruary 08,cases24953}
In[]:=
Export["D:\\git\\wolfram-coronavirus\\docs\\wuhan-timeline.csv",Dataset[ts3]]
Out[]=
D:\git\wolfram-coronavirus\docs\wuhan-timeline.csv
ScheduledTask
In[]:=
$Version
Out[]=
12.1.0 for Microsoft Windows (64-bit) (January 21, 2020)