People Mentioned in Stephen Wolfram’s “A New Kind of Science”

Listing of all people mentioned in historical and other notes in “A New Kind of Science”

The countries given for people are based on countries currently at the relevant geographic locations.

The printed book included death dates only for people who died up to 2002.

(6 columns, 487 rows)

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["People Mentioned in Stephen \
Wolfram\[CloseCurlyQuote]s \[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of Science\[CloseCurlyDoubleQuote]"]
Out[2]=

Analysis

Total number of people mentioned:

In[3]:=
Length[ResourceData[
  "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"]]
Out[3]=

Make a word cloud of the countries from which NKS people come:

In[4]:=
WordCloud@
 Flatten@Normal@
   ResourceData[
     "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][[All, "Countries"]]
Out[4]=

Plot a histogram of birth years:

In[5]:=
Histogram[
 DateValue[
  Normal[ResourceData[
     "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][All, "BirthYear"]], "Year"], 
 PlotRange -> All]
Out[5]=
In[6]:=
Histogram[
 DateValue[
  Normal[ResourceData[
     "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][All, "BirthYear"]], "Year"], 
 PlotRange -> {{1500, 2000}, Automatic}]
Out[6]=

Fraction of people referenced who are deceased:

In[7]:=
N[Length[DeleteMissing[
    ResourceData[
      "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][All, "DeathYear"]]]/
  Length[ResourceData[
    "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"]]]
Out[7]=

Histogram of ages at death of people referenced:

In[8]:=
#DeathYear["Year"] - #BirthYear["Year"] & /@
  
  Normal[Select[
    ResourceData[
     "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"], ! 
      MissingQ[#DeathYear] &]] // Histogram
Out[8]=

Make the corresponding plot for people who died before 1800:

In[9]:=
#DeathYear["Year"] - #BirthYear["Year"] & /@
  
  Normal[Select[
    ResourceData[
     "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"], #DeathYear["Year"] < 
      1800 &]] // Histogram
Out[9]=

Make word clouds of countries by century of birth:

In[10]:=
ResourceData[
   "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][
  GroupBy[Round[DateValue[#BirthYear, "Year"], 100] &], All, 
  "Countries"] // 
 KeySort@*KeySelect[# >= 1500 &]@*Map[WordCloud[Flatten@#] &]
Out[10]=

Show the top 20 people by the number of pages on which they are mentioned:

In[11]:=
Reverse@SortBy[Last]@
  ResourceData[
    "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][
   TakeLargestBy[Length[Flatten@#RelatedTopics[[All, "Pages"]]] &, 
    20], {#Name, Length[#RelatedTopics]} &]
Out[11]=

Plot the number of mentions of people in each 10-page section of the book:

In[12]:=
Histogram[
 Select[ResourceData[
    "People Mentioned in Stephen Wolfram\[CloseCurlyQuote]s \
\[OpenCurlyDoubleQuote]A New Kind of \
Science\[CloseCurlyDoubleQuote]"][Flatten, "RelatedTopics", All, 
   "Pages"], NumberQ], {10}]
Out[12]=

Wolfram Research, "People Mentioned in Stephen Wolfram’s “A New Kind of Science”" from the Wolfram Data Repository. (2017) https://doi.org/10.24097/wolfram.64419.data

Source Metadata

Data Downloads