A List Of Epidemics

Source Notebook

A list of epidemic events caused by infectious diseases

Examples

Basic Examples

Explore the data:

In[1]:=
ResourceData["A List Of Epidemics"][[1]]
Out[1]=

Visualizations

Make a word cloud of infectious diseases by deaths :

In[2]:=
data = SortBy[
   Rule[#[[1, 1]], Total[(QuantityMagnitude /@ #[[All, 2]]) /. Interval[a_] :> Mean[a]]] & /@ SplitBy[SortBy[
      DeleteCases[{#["Disease"], #["Deaths"]} & /@ (Normal@
          ResourceData[
           "A List Of Epidemics"]), {_Missing, _} | {_, _Missing}], First], First], Last];
In[3]:=
WordCloud[Association[data]]
Out[3]=

Plot a timeline of flu events :

In[4]:=
TimelinePlot[
 Association @@ Select[ResourceData[
     "A List Of Epidemics"], ! MissingQ[#Disease] && StringContainsQ[ToLowerCase[#Disease], "flu"] && ! MissingQ[#Event] &][
   All, #Event -> DateInterval[#Date /. "Present" -> Today] &]]
Out[4]=

Plot a timeline of plague events :

In[5]:=
TimelinePlot[
 Association @@ Select[ResourceData[
     "A List Of Epidemics"], ! MissingQ[#Disease] && StringContainsQ[ToLowerCase[#Disease], "plague"] && ! MissingQ[#Event] &][
   All, #Event -> DateInterval[#Date /. "Present" -> Today] &]]
Out[5]=

Plot a timeline of smallpox events :

In[6]:=
TimelinePlot[
 Association @@ Select[ResourceData[
     "A List Of Epidemics"], ! MissingQ[#Disease] && StringContainsQ[ToLowerCase[#Disease], "smallpox"] && ! MissingQ[#Event] &][
   All, #Event -> DateInterval[#Date /. "Present" -> Today] &]]
Out[6]=

Plot a timeline of cholera events :

In[7]:=
TimelinePlot[
 Association @@ Select[ResourceData[
     "A List Of Epidemics"], ! MissingQ[#Disease] && StringContainsQ[ToLowerCase[#Disease], "cholera"] && ! MissingQ[#Event] &][
   All, #Event -> DateInterval[#Date /. "Present" -> Today] &]]
Out[7]=

Wolfram Research, "A List Of Epidemics" from the Wolfram Data Repository (2020)  

Data Resource History

Data Downloads

Publisher Information