Examples showcasing some of the topics that will be discussed at the webinars.
Tweet Analysis
Tweet Analysis
Create an infographic that shows the analytics from tweets containing a certain keyword. In particular, visualize the following:
◼
Tweet Timeline: A timeline showing the dates and times the tweets were posted.
◼
Tweet Sentiment Analysis: Classify the sentiment of the tweets (in English) as being positive, negative or neutral.
◼
Favorite Counts: Number of times the tweets have been liked.
◼
Retweet Counts: Number of times the tweets have been retweeted.
Get the Data
Get the Data
Connect to Twitter:
In[]:=
twitter=ServiceConnect["Twitter"]
Out[]=
ServiceObject
Note: To edit or evaluate the code in this notebook, click Open In at the bottom of the browser window to select a Wolfram Cloud product. Place your cursor within the code and press the Shift and Enter keys together.
Set the keyword to search for in tweets:
In[]:=
keyword="WolframAlpha";
Search for the tweets (in English) containing the keyword and download the data:
In[]:=
data=twitter"TweetSearch","Query"keyword,"Language"->,MaxItems200;
Look at the text of 5 random tweets from the data:
In[]:=
RandomSample[data[All,"Text"],5]
Out[]=
Visualize the Information
Visualize the Information
Plot the tweet timeline:
In[]:=
tweetTimeline=DateHistogram[Normal[data[All,"CreationDate"]],PlotTheme{"Web","Square"},PlotLabel"Tweet
Timeline",ImageSizeSmall];
Classify the sentiment in each tweet and visualize the number of tweets in each class:
In[]:=
tweetSentiments=PieChartKeySort[Counts[Classify["Sentiment"][data[All,#Text&]]]],
PlotTheme{"Web","Square"},
ChartStyle,,,
ChartLegendsAutomatic,PlotLabel"Tweet Sentiment Analysis",ImageSizeSmall;
Create a histogram of the number of times each tweet was liked:
In[]:=
favouriteCount=Histogram[Normal[data[All,"FavoriteCount"]],
PlotTheme{"Web","Square"},PlotLabel"Favorite Count",ImageSizeSmall];
Create a histogram of the number of times each tweet was retweeted:
In[]:=
retweetCount=Histogram[Normal[data[All,"RetweetCount"]],
PlotTheme{"Web","Square"},PlotLabel"Retweet Count",ImageSizeSmall];
Create the Infographic
Create the Infographic
Putting it all together:
In[]:=
Panel[Grid[{{tweetTimeline,tweetSentiments},{favouriteCount,retweetCount}}],Style["Tweets about \""~~
keyword~~"\"","Subsubtitle"],Bottom]
Out[]=
Tweets about "WolframAlpha" |
