Wolfram Computation Meets Knowledge

State of the Union Addresses

Complete text of State of the Union addresses from 1790 to 2018

Originator: Brad Borevitz

This dataset contains every State of the Union address from 1790 to 2018 in plain text format, with dates for each speech, overall and individual word counts, and information about the political party and age of each president as of the date of the speech.

Examples

Basic Examples

Retrieve the resource:

In[1]:=
ResourceObject["State of the Union Addresses"]
Out[1]=

Retrieve the default content:

In[2]:=
ResourceData["State of the Union Addresses"]
Out[2]=

Visualization

Plot speech lengths over time:

In[3]:=
DateListPlot[
 ResourceData["State of the Union Addresses"][All, {"Date", "Words"}],
  PlotRange -> All]
Out[3]=

Plot median speech lengths by political party:

In[4]:=
BarChart[Median /@ 
  GroupBy[ResourceData["State of the Union Addresses"], "Party"][All, 
   All, "Words"], BarOrigin -> Left, ChartLabels -> Automatic]
Out[4]=

Generate a word cloud of a single president's speeches:

In[5]:=
WordCloud[
 StringJoin@
  Normal@ResourceData["State of the Union Addresses"][
     Select[#President == 
        Entity["Person", "GeorgeWashington::7v7hm"] &]][All, "Text"]]
Out[5]=

Wolfram Research, "State of the Union Addresses" from the Wolfram Data Repository (2018) https://doi.org/10.24097/wolfram.05676.data

Data Resource History

Source Metadata

Data Downloads

Publisher Information