Babbitt

Plaintext for Sinclair Lewis' "Babbitt"

(123390 words/700746 characters)

Examples

Basic Examples

View the text:

In[1]:=
TextCases[ResourceData["Babbitt"], "Paragraph"][[25]]
Out[1]=

Visualization

Create a bar graph of proper nouns:

In[2]:=
BarChart[
 TakeLargest[Counts[TextCases[ResourceData["Babbitt"], "ProperNoun"]],
    20] // Reverse, BarOrigin -> Left, ChartLabels -> Automatic]
Out[2]=

Compare word lengths:

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

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

Data Resource History

Source Metadata

Data Downloads

Publisher Information