Wolfram Research

Presidential Inaugural Addresses

Source Notebook

Presidential inaugural addresses through 2021

Originator: The American Presidency Project

Details

Complete text of presidential inaugural addresses 1789-2021

(5 columns, 59 rows)

Examples

Basic Examples (1) 

View the data:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Presidential Inaugural Addresses\>\"",
#& ,
BoxID -> "ResourceTag-Presidential Inaugural Addresses-Input",
AutoDelete->True]\)]
Out[1]=

Visualization (2) 

View the lengths of inaugural addresses over time:

In[2]:=
DateListPlot[ResourceData[\!\(\*
TagBox["\"\<Presidential Inaugural Addresses\>\"",
#& ,
BoxID -> "ResourceTag-Presidential Inaugural Addresses-Input",
AutoDelete->True]\)][All, {"Date", "Words"}], PlotRange -> All]
Out[2]=

Find which presidents delivered the longest addresses:

In[3]:=
TakeLargestBy[ResourceData[\!\(\*
TagBox["\"\<Presidential Inaugural Addresses\>\"",
#& ,
BoxID -> "ResourceTag-Presidential Inaugural Addresses-Input",
AutoDelete->True]\)][SortBy[#Words &]][
  All, {"Name", "Date", "Words"}], "Words", 5]
Out[3]=

Wolfram Research, "Presidential Inaugural Addresses" from the Wolfram Data Repository (2021) https://doi.org/10.24097/wolfram.00001.data

Data Resource History

Source Metadata

Publisher Information