Anthem

Plaintext for Ayn Rand's "Anthem"

(19139 words/97584 characters)

Examples

Basic Examples

Retrieve the ResourceObject:

In[1]:=
ResourceObject["Anthem"]
Out[1]=

View the data:

In[2]:=
TextCases[ResourceData["Anthem"], "Paragraph"][[10]]
Out[2]=

Visualization

Create a word cloud:

In[3]:=
WordCloud[DeleteStopwords[ResourceData["Anthem"]]]
Out[3]=

Show the most frequently used adjectives:

In[4]:=
BarChart[TakeLargest[
   Counts[TextCases[ResourceData["Anthem"], "Adjective"]], 20] // 
  Reverse, BarOrigin -> Left, ChartLabels -> Automatic]
Out[4]=

Wolfram Research, "Anthem" from the Wolfram Data Repository. (2016) https://doi.org/10.24097/wolfram.53181.data

Source Metadata

Data Downloads