State of the Union Addresses

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

(9 columns, 230 rows)

Examples

Basic Examples

Retrieve the ResourceObject:

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

View the data:

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. (2016) https://doi.org/10.24097/wolfram.05676.data

Source Metadata

Data Downloads