Coronavirus
Coronavirus
Using data from Wolfram Data Repository
Get the data from the repository:
In[]:=
data=ResourceData["Epidemic data for novel coronavirus 2019-nCoV from Wuhan, China"];
Sample the data:
In[]:=
RandomSample[%,3]
Out[]=
Make a country choropleth map for the data:
In[]:=
GeoRegionValuePlot[Normal@data[GroupBy["Country"],Total,#ConfirmedCases["LastValue"]&]]
Out[]=
In[]:=
cases=data[Select[MemberQ[{Entity["AdministrativeDivision",{"Hubei","China"}],Entity["AdministrativeDivision",{"Zhejiang","China"}],Entity["AdministrativeDivision",{"Guangdong","China"}]},#AdministrativeDivision]&]][All,{"AdministrativeDivision","ConfirmedCases"}];
In[]:=
DateListPlot[Legended[#[[2]],#[[1]]]&/@cases,PlotTheme"Business",PlotLabel"estimated confirmed cases",ImageSize300,PlotRangeFull]
Out[]=
In[]:=
DateListLogPlot[Legended[#[[2]],#[[1]]]&/@cases,PlotTheme"Business",PlotLabel"estimated confirmed cases (log scale)",ImageSize300,PlotRangeFull]
Out[]=
In[]:=
Export["D:\\git\\wolfram-coronavirus\\confirmed-cases.png",Out[13]]
Out[]=
D:\git\wolfram-coronavirus\confirmed-cases.png
In[]:=
Export["D:\\git\\wolfram-coronavirus\\confirmed-cases-log.png",Out[14]]
Out[]=
D:\git\wolfram-coronavirus\confirmed-cases-log.png
In[]:=
cases=data[Select[Not[MissingQ[#AdministrativeDivision]]&],{"AdministrativeDivision","ConfirmedCases"}];
In[]:=
DateListLogPlot[Legended[#[[2]],#[[1]]]&/@cases,PlotLabel"estimated confirmed cases (log scale)",ImageSize300,PlotRangeFull]
Out[]=
wiki
wiki
In[]:=
results=WikidataSearch["coronavirus"]
Out[]=
,,,,,,,,,
In[]:=
WikidataData,"IdentifierProperties"
Out[]=
,,,,,,,,,,,
In[]:=
properties=WikidataData,"NonIdentifierProperties"
Out[]=
,,,,,,,,,
In[]:=
ImportFirstWikidataData,
Out[]=