The Plastic Age

Plaintext for Percy Marks' "The Plastic Age"

(72871 words/408282 characters)

Examples

Basic Examples

Retrieve the ResourceObject:

In[1]:=
ResourceObject["The Plastic Age"]
Out[1]=

View the data:

In[2]:=
TextCases[ResourceData["The Plastic Age"], "Paragraph"][[300]]
Out[2]=

Visualization

Generate a WordCloud:

In[3]:=
WordCloud[DeleteStopwords[ResourceData["The Plastic Age"]]]
Out[3]=

Show the distribution of word lengths:

In[4]:=
With[{words = TextWords[ResourceData["The Plastic Age"]]},
 Histogram[(StringLength /@ words), PlotRange -> Full]]
Out[4]=

Wolfram Research, "The Plastic Age" from the Wolfram Data Repository. (2016) https://doi.org/10.24097/wolfram.15041.data

Source Metadata

Data Downloads