Sentiment in Stories

Sentiment of a single sentence:

In[1]:=

Classify["Sentiment","I am happy today"]

Out[1]=

Positive

Get the sentences in the Wikipedia article on "chicken":

In[2]:=

data=TextSentences[WikipediaData["chicken"]];

Find the sentiment of each sentence:

In[3]:=

Classify["Sentiment",#]&/@data//Short

Out[3]//Short=

{Neutral,Neutral,Negative,Neutral,Neutral,Neutral,243,Neutral,Neutral,Neutral,Neutral,Neutral,Neutral}

What was the eighth sentence?

In[4]:=

data〚8〛

Out[4]=

There are more chickens in the world than any other bird.

Here's the sentiment found for that sentence:

In[5]:=

Classify["Sentiment","There are more chickens in the world than any other bird."]

Out[5]=

Positive

Try a variant of the sentence; still positive:

In[6]:=

Classify["Sentiment","There are more sad chickens in the world than any other bird."]

Out[6]=

Positive

Other Documents
(7)

Get the sentences in Dickens's Oliver Twist:

In[1]:=

tdata=TextSentences[ResourceData["Oliver Twist"]];

Here is the number of sentences:

In[2]:=

Length[tdata]

Out[2]=

8359

Find their sentiments:

In[3]:=

sent=Classify["Sentiment",#]&/@tdata;Short[sent,5]

Out[3]//Short=

{Negative,Positive,Neutral,Positive,Neutral,Negative,Positive,Positive,Negative,Negative,Positive,Neutral,Positive,Neutral,Positive,Neutral,Negative,Neutral,Negative,Neutral,Positive,8317,Positive,Positive,Neutral,Negative,Negative,Negative,Neutral,Negative,Negative,Negative,Negative,Negative,Positive,Positive,Positive,Negative,Positive,Positive,Neutral,Positive,Negative}

Here are the possible sentiments found:

In[4]:=

Union[sent]

Out[4]=

{Negative,Neutral,Positive,Indeterminate}

Map the sentiments to numbers:

In[5]:=

values=sent/.{"Positive"1,"Negative"-1,"Neutral"0,Indeterminate0};Short[values]

Out[5]//Short=

{-1,1,0,1,0,-1,1,1,-1,-1,1,0,1,0,1,0,-1,0,-1,0,1,-1,-1,8313,0,-1,1,1,0,-1,-1,-1,0,-1,-1,-1,-1,-1,1,1,1,-1,1,1,0,1,-1}

Show the "sentiment walk" of the story, from which might conclude that in the end it's a tragedy:

In[6]:=

ListLinePlot[Accumulate[values]]

Out[6]=

Compare it to Lewis Carroll's Alice in Wonderland:

In[7]:=

alice=TextSentences[ResourceData["Alice in Wonderland"]];sent=Classify["Sentiment",#]&/@alice;values=sent/.{"Positive"1,"Negative"-1,"Neutral"0,Indeterminate0};ListLinePlot[Accumulate[values]]

Out[7]=

Publisher Information

Contributed by: Wolfram Staff

License Information

This work is licensed under a Creative Commons Attribution 4.0 International License

Wolfram Language Example Repository

Sentiment in Stories

Other Documents
(7)

See Also

Publisher Information

License Information

Sentiment in Stories

Other Documents (7)

See Also

Related Symbols

Publisher Information

License Information

Other Documents
(7)