In[]:=
ds=ResourceData["Epidemic Data for Novel Coronavirus 2019-nCoV from Wuhan, China"];
In[]:=
ds[1]
Out[]=
In[]:=
ds2=ds[Select[#Country["Name"]==="China"&],<|"province"#AdministrativeDivision,"cases"#ConfirmedCases["LastValue"]|>&]
Out[]=
In[]:=
GeoBubbleChart[ds2]
Out[]=
In[]:=
ds3=Normal[ds[Select[#Country["Name"]==="China"&],#AdministrativeDivisionLog[N[#ConfirmedCases["LastValue"]]]&]]
Out[]=
9.51207,6.72022,6.68085,6.51471,6.38519,6.17379,6.16542,5.82008,5.7301,5.64191,5.59842,5.35659,5.33754,5.18739,5.04343,4.95583,4.93447,4.83628,4.76217,4.36945,4.30407,4.30407,4.09434,4.02535,4.00733,3.73767,3.52636,3.52636,3.3673,2.70805,0.
In[]:=
E//N
Out[]=
2.71828
In[]:=
Log[E^2]
Out[]=
2
In[]:=
Log10[1000.]
Out[]=
3.
In[]:=
Log10[100.]
Out[]=
2.
In[]:=
Log10[10.]
Out[]=
1.
In[]:=
GeoRegionValuePlot[ds3]
Out[]=
ds3=Normal[ds[Select[#Country["Name"]==="China"&],#AdministrativeDivisionLog[N[#ConfirmedCases["LastValue"]]]&]]
In[]:=
Out[]=
In[]:=
ds4=NormaldsSelect[#Country["Name"]==="China"&],#AdministrativeDivision(100000000Log[N[#ConfirmedCases["LastValue"]]])QuantityMagnitude#AdministrativeDivision&
Out[]=
16.355,12.3472,6.40523,6.92881,9.72112,10.376,13.8339,72.8421,7.28465,6.95673,5.84429,24.6734,22.8197,14.0602,13.164,13.2767,10.7209,6.73069,10.3602,50.3885,12.0521,9.83869,30.9124,11.5849,15.6688,13.6102,55.962,14.2731,15.4369,48.1284,0.
In[]:=
{GeoRegionValuePlot[ds3],GeoRegionValuePlot[ds4]}
Out[]=
,