Poetry by e. e. cummings

Source Notebook

The poems of e. e. cummings that are in the public domain

Properties include:
"Book"the title of the book whence comes the poem
"FirstLine"the first line of the poem
"Text"formatted text of the poem
"Title"title of the poem
"URLs"URLs related to the poem

Examples

Basic Examples (2) 

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Poetry by e. e. cummings\>\"",
#& ,
BoxID -> "ResourceTag-Poetry by e. e. cummings-Input",
AutoDelete->True]\)]
Out[1]=

Register the EntityStore:

In[2]:=
EntityRegister[ResourceData[\!\(\*
TagBox["\"\<Poetry by e. e. cummings\>\"",
#& ,
BoxID -> "ResourceTag-Poetry by e. e. cummings-Input",
AutoDelete->True]\)]]
Out[2]=

Read a short poem:

In[3]:=
With[{poem = RandomChoice[
    Select[EntityList["eecummingspoem"], Length[StringSplit[#["Text"], "\n"]] < 20 &]]},
 Column[{poem, poem["Text"]}]]
Out[3]=

Books are grouped in EntityClasses:

In[4]:=
EntityClassList["eecummingspoem"]
Out[4]=
In[5]:=
EntityClass["eecummingspoem", "and"] // EntityList
Out[5]=
In[6]:=
text = StringJoin @@ EntityValue[EntityList["eecummingspoem"], "Text"];
words = TextWords[text];
In[7]:=
WordCloud[DeleteStopwords@words]
Out[7]=

The distribution of lengths of first lines:

In[8]:=
Histogram[
 StringLength /@ EntityValue[EntityList["eecummingspoem"], "FirstLine"]]
Out[8]=

The number of words compared with the number of unique words:

In[9]:=
Length[words]
Out[9]=
In[10]:=
Length[Union[words]]
Out[10]=
In[11]:=
Length[Union[words]]/Length[words] // N
Out[11]=

The distribution of word lengths:

In[12]:=
Histogram[StringLength /@ words, PlotRange -> All]
Out[12]=

The ten longest "words":

In[13]:=
ReverseSortBy[words, StringLength][[;; 10]] // Column
Out[13]=

Wolfram Research, "Poetry by e. e. cummings" from the Wolfram Data Repository (2022)  

License Information

Public Domain

Data Resource History

Source Metadata

Data Downloads

Publisher Information