# Topic modeling and visualization of tweets

Posted on Sun 31 January 2016 in blog

As more people tweet to companies, it is imperative for companies to parse through the many tweets that are coming in, to figure out what people want and to quickly deal with upset customers. Machine learning can help to facilitate this. In this notebook, I'll examine a dataset of ~14,000 tweets directed at various airlines. The algorithm I'm choosing to use is Latent Dirichlet Allocation (LDA), primarily because it is interpretable and learns in an unsupervised manner.

In this post, I'll clean, model, and visualize the tweets. These visualizations will act as a hypothesis-generating tool for comparing airlines against each other. Let's get started.

In [2]:
%matplotlib inline
import matplotlib.pylab as plt
import pandas as pd
import numpy as np
from collections import Counter
from nltk.tokenize import TweetTokenizer
from nltk.corpus import stopwords
import seaborn as sns


### First, load the data¶

In [3]:
kagTweets = pd.read_csv('kaggleTweets.csv')


### Now, let's look at an overview of the data¶

In [4]:
airCounts = dict(Counter(kagTweets['airline']))

In [5]:
fig = plt.figure(figsize=(3,4), dpi=1600)
ax = plt.subplot(111)

barPlot = plt.bar(range(len(airCounts)),airCounts.values())#,color=[c[4],c[4],c[3],c[3]])
xticks_pos = [0.65*patch.get_width() + patch.get_xy()[0] for patch in barPlot]
plt.xticks([i+0.5 for i in range(len(airCounts.keys()))],airCounts.keys(),rotation=45,ha='right',fontsize=18)
ax.set_ylabel('Tweets to airlines',fontsize=24,fontweight='bold')

yTix = plt.yticks()[0]
plt.yticks(yTix,fontsize=16)

plt.show()


### The airlines have a varying amount of tweets each. Now, let's take a look at a tweet¶

In [6]:
kagTweets['text'][136]

Out[6]:
'@virginamerica you ROCK for making it so I can watch #Oscars on my flight!! #redcarpet #oscars #oscars2015'

### A need to standardize¶

Like anything in machine learning, the power of algorithms are realized when the data are translated into meaningful features. Simply splitting the strings by spaces is insufficient. Here are several things to note, along with the strategy to address each of them:

1. word capitalization (string class functions)
2. punctuation (regular expressions)
3. singular-plural versions of same word (lemmatization)
4. common words like 'and' (stopwords)

Cleaning up the data is one of the main challenges of text analysis. We will use the NLTK and re packages to clean the text and gensim to implement various learning algorithms

In [7]:
from gensim import corpora, models
from gensim.similarities import MatrixSimilarity
from gensim.utils import SaveLoad
from nltk.corpus import stopwords
from nltk.stem import WordNetLemmatizer
from re import sub
import pyLDAvis.gensim
from collections import Counter
from gensim.matutils import corpus2csc, sparse2full, corpus2dense
from wordcloud import WordCloud
from sklearn.utils import resample


### Functionalized text cleaning¶

These are a bunch of pre-processing functions to to standardize the text one word at a time.

In [8]:
#Functions for data cleaning
wnl = WordNetLemmatizer()

def removePunc(myWord):
"""Function to remove punctuation from string inputs"""
if myWord is None:
return myWord
else:
return sub('[.:;()/!&-*@\$,?^\d+]','',myWord)

def removeAscii(myWord):
"""Function to remove ascii from string input"""
if myWord is None:
return myWord
else:
return str(sub(r'[^\x00-\x7F]+','', myWord.decode('utf-8').strip()))

def lemmatize(myWord):
"""Function to lemmatize words"""
if myWord is None:
return myWord
else:
return str(wnl.lemmatize(myWord))

def removeStopWords(myWord):
"""Function to remove stop words"""
if myWord is None:
return myWord
if myWord not in str(stopwords.words('english')):
return myWord

"""Function to remove web addresses and twitter handles"""
if not myWord.startswith('@') and not myWord.startswith('http'):
return myWord

def prepText(myWord):
"""Final text pre-processing function"""
return removeStopWords(
lemmatize(
removeAscii(
removePunc(
myWord.lower()
)
)
)
)
)


### Putting it all together¶

Now that we have all the cleaning steps, we can apply them across all tweets. Here's a function that does exactly this.

In [9]:
def filterTweetList(tweetList):
"""Remove stop words, lemmatize, and clean all tweets"""
return [[prepText(word) for word
in tweet.split()
if prepText(word) is not None]
for tweet in tweetList]

In [10]:
cleanKagTweetList = filterTweetList(kagTweets['text'])


### A second look¶

Now that we've cleaned our tweets, let's revisit our first example

In [11]:
cleanKagTweetList[136]

Out[11]:
['rock',
'making',
'watch',
'#oscars',
'flight',
'#redcarpet',
'#oscars',
'#oscars']

#### Now the data are ready for processing.¶

Many algorithms use a similar initial format, which is to

1. Build a dictionary with all words in the dataset
2. Store the word counts (using above dictionary) of each tweet in a corpus

Note that in step 2 only the word frequency is used. This is a so-called "bag-of-words" approach, which does not account for ordering of words next to each other. Other analyses like bigrams or trigrams could be used if word ordering was highly conserved.

Because I am looking at unlabeled data, and I want to get intuition for the data, I chose to use Latent Dirichlet Allocation (LDA), a topic modeling approach that probablistically learns the latent (unobserved) topics of a group of documents. There are a couple other algorithms, like LSA, LSI, or TF-IDF, which were either less accurate at predicting similarity or more suited to supervised learning.

#### Next, build the functions for making the dictionary, corpus, and the LDA model¶

In [12]:
def makeDict(myTweetList):
"""Create dictionary from list of tokenized documents"""
return corpora.Dictionary(myTweetList)

def makeCorpus(myTweetList,myDict):
"""Create corpus from list of tokenized documents"""
return [myDict.doc2bow(tweet) for tweet in myTweetList]

def createLDA(myCorpus, myDictionary,myTopics=50,myPasses=10,myIterations=50,myAlpha=0.001):
"""LDA model call function"""
return models.LdaMulticore(myCorpus, id2word=myDictionary, num_topics=myTopics, passes=myPasses,
iterations=myIterations,alpha=myAlpha)


### Building models and notes on parameter choices¶

Below I'm using some pre-generated dictionaries and libraries. This saves substantial computing time. If running this for the first time, run the commented code instead.

Note in the createLDA function, I'n using an alpha parameter of 0.001 and 50 topics. The low number for alpha corresponds to a low number of topics per tweet, since tweets are relatively very short. While increasing the numper of topics decreases the log perplexity, an error metric, I found that this makes it more difficult in interpreting the data. 50 seems to be a good compromise between optimizing accuracy and interpretability.

In [13]:
kagLda = SaveLoad.load('kaggleLDAmodel0201')
kagCorpus = corpora.MmCorpus('kaggleCorpus0201.mm')

#"""Create model objects"""
#kagDict   = makeDict(cleanKagTweetList)
#kagCorpus = makeCorpus(cleanKagTweetList, kagDict)
#kagLda = createLDA(kagCorpus, kagDict)

#"""Save model objects"""
#corpora.MmCorpus.serialize('kaggleCorpus.mm', kagCorpus)
#kagDict.save('kaggleDictionary.dict')


#### Having built the LDA model¶

we can visualize our results using the pyLDAvis package. The plot is interactive, try it out! Each circle is a topic and the size represents the abundance of that topic in the corpus. Along with each topic are the associated words that go with it. There's a great video about this as well.

In [14]:
pyLDAvis.enable_notebook()
ldaViz = pyLDAvis.gensim.prepare(kagLda, kagCorpus, kagDict)


# Topic visualization of airline tweets using LDA¶

In [15]:
ldaViz

Out[15]:

### Visualization-guided analysis¶

After finding a topic of interest, we can find sort the data based on this topic for further information on which airline got the most tweets in a given topic. To do this, we first need to match the indices between the visualization and our LDA model.

In [16]:
def translateLdaIdx(myLdaModel, myLdaViz):
"""Translate lda model topics to match the topics in pyLDAvis visualization"""
ldaVizIdx = myLdaViz[0].index
return list(ldaVizIdx)

In [17]:
newIdx = translateLdaIdx(kagLda,ldaViz)


### Now, having matched the model indices¶

translate the corpus to a Pandas dataframe

In [18]:
def createDenseMat(myLdaModel,myCorpus,newIdx):
"""Transform corpus to dataframe with topics matching lda visualization"""
numTopics = myLdaModel.num_topics
myDense = corpus2dense(myLdaModel[myCorpus],numTopics)
myDf = pd.DataFrame(myDense)
mySortedDf = myDf.transpose()
mySortedDf = myDf.transpose()[newIdx]
mySortedDf.columns = ['topic' + str(i + 1) for i in range(numTopics)]
return mySortedDf

In [19]:
kagDf = createDenseMat(kagLda,kagCorpus,newIdx)


### Functions for sorting according to threshold¶

In [20]:
def sortByTopicToIdx(cleanedTweetList,mySortedDf,myTopic,myTopicThresh=0.1):
"""Returns an index of tweets surpassing a topic value threshold"""
myCleanArray = np.array(cleanedTweetList)
srtIdx = list(mySortedDf[mySortedDf[myTopic]>myTopicThresh].index)
return srtIdx

def sortTweetsByIdx(cleanedTweetList,srtIdx):
"""Returns sorted tweets as a list based on a defined sort index"""
myCleanArray = np.array(cleanedTweetList)
srtTweets = list(myCleanArray[srtIdx])
return srtTweets

In [21]:
sortedIdx = sortByTopicToIdx(cleanKagTweetList,kagDf,'topic2',myTopicThresh=0.1)

In [22]:
fig = plt.figure(figsize=(4,4), dpi=1600)
ax = plt.subplot(111)
plt.hist(kagDf.topic2,bins=20)

ax.tick_params(labelsize=16)
ax.set_xlabel('Bad service topic value',fontsize=24,fontweight='bold')
ax.set_ylabel('Tweets (Topic 2)',fontsize=24,fontweight='bold')
plt.show()
x = fig.tight_layout()
#fig.savefig('passingFilterTweets.png',dpi=500,bbox_inches='tight')


#### The distribution of bad service tweets¶

shows that only a small fraction of tweets have a bad service topic component. There appear to be two peaks; one at 0 and one at 0.1. Sorting for tweets with Topic 2 > 0.1 would separate the second population.

We can visualize the words in these tweets with a word cloud to verify the visualization results.

#### Visualize topic 2 with a word cloud¶

In [23]:
def makeWordCloud(cleanedTweetList,mySortedDf,myTopic,myTopicThresh=0.1):
"""Create word cloud of tweets passing a given threshold for a given topic"""
sortedIdx = sortByTopicToIdx(cleanedTweetList,mySortedDf,myTopic,myTopicThresh=0.1)
mySortedTweets = sortTweetsByIdx(cleanedTweetList,sortedIdx)
filteredWords = ' '.join([' '.join(string) for string in mySortedTweets])
myTopicCloud = WordCloud(max_font_size=100,scale=8).generate(filteredWords)
fig = plt.figure(figsize=(10,10), dpi=1600)
plt.imshow(myTopicCloud)
plt.axis("off")
plt.show()

In [25]:
makeWordCloud(cleanKagTweetList,kagDf,'topic2',myTopicThresh=0.2)


### Using tweets to rank industry competitors¶

We can count how many tweets each company received, perhaps this could give some intuition about which airline has the actual best customer service.

In order to have more reliable data, we will

1. normalize the tweets to the total number of tweets for each company
2. estimate the error by using 95% confidence intervals generated from bootstap resampling

#### First, the resampling function¶

In [26]:
def genSortedResample(myTweetDf,myIdx,myVar='airline'):
"""Resample sorted airline counts to estimate error. Return as pd.Dataframe"""
airlinePop = np.array(myTweetDf.loc[myIdx][myVar])
len(airlinePop)
#Counter(resample(airlinePop))
airlineNames = list(np.unique(myTweetDf[myVar]))
testDf=pd.DataFrame(columns=airlineNames)
for i in range(1000):
tempSample = pd.Series(dict(Counter(resample(airlinePop))))
testDf = testDf.append(tempSample,ignore_index=True)
totalAirTweets = dict(Counter(myTweetDf[myVar]))
for i in totalAirTweets.keys():
normVal = testDf[i]/float(totalAirTweets[i])
testDf[i + '-norm'] = pd.Series(normVal,index=testDf.index)
return testDf

In [27]:
sortedIdx = sortByTopicToIdx(cleanKagTweetList,kagDf,'topic2',myTopicThresh=0.1)
airlineDistResample = genSortedResample(kagTweets,sortedIdx)


#### Next, a function to calculate the 95% confidence intervals¶

In [28]:
def getResampleStats(resampleDf,airlineNames):
"""Extract expected value and 95% CI values from resampling dataframe"""
statDf = pd.DataFrame(columns=['mean','low95','hi95'])
for airline in airlineNames:
tempName = airline + '-norm'
tempSort = np.sort(resampleDf[tempName])
meanVal = np.mean(tempSort)
low95 = meanVal - tempSort[24]
hi95 = tempSort[975] - meanVal
statDf = statDf.append({'mean': meanVal,'low95':low95,'hi95':hi95},ignore_index=True)

statDf.index = airlineNames
statDf = statDf.sort_values('mean')
statDf = statDf/statDf.iloc[0]['mean']
return statDf

In [29]:
def calcAirlineStats(cleanedTweetList,mySortedDf,myTopic,myTweetDf,myTopicThresh=0.1):
"""Generate mean and 95% CI given a topic and threshold"""
sortedIdx = sortByTopicToIdx(cleanedTweetList,mySortedDf,myTopic,myTopicThresh=0.1)
mySortedTweets = sortTweetsByIdx(cleanedTweetList,sortedIdx)
myResample = genSortedResample(myTweetDf,sortedIdx)
myStats = getResampleStats(myResample,list(set(kagTweets['airline'])))
return myStats

In [30]:
statDf = calcAirlineStats(cleanKagTweetList,kagDf,'topic2',kagTweets)


### Sizing up the competition¶

How do the airlines stack up? Having the summary stats, let's take a look

In [31]:
c = sns.color_palette('Set3',10)
sns.set_style("ticks")

In [32]:
fig = plt.figure(figsize=(5,5), dpi=1600)
ax = plt.subplot(111)

barPlot = plt.bar(range(6),statDf.loc[:,'mean'],yerr=[list(statDf.loc[:,'low95']),list(statDf.loc[:,'hi95'])], \
#alpha=1,color=[c[4],c[8],c[4],c[8],c[3],c[3]])
#alpha=1,color=[c[8],c[8],c[8],c[8],c[8],c[8]])
alpha=1,color=[c[4],c[4],c[4],c[4],c[4],c[4]])
xticks_pos = [0.65*patch.get_width() + patch.get_xy()[0] for patch in barPlot]
plt.xticks([i+0.5 for i in range(6)],list(statDf.index),rotation=45,ha='right',fontsize=18)
yTix = plt.yticks()[0]
plt.yticks(plt.yticks()[0],fontsize=16)

plt.ylim([0,2])
plt.show()


### The data speak¶

The data show that United and US Airways have a significantly higher proportion of tweets about bad customer service than Delta, Virgin, or American.

Does this match your experience? To check if this result made sense I referenced a J.D. Power North American Airline Survey of customer satisfaction.

In [33]:
statDf = calcAirlineStats(cleanKagTweetList,kagDf,'topic2',kagTweets)

In [34]:
# J.D. Power data
jdAirline = {'Delta': 706, 'American': 700,'United': 665,'US Airways': 668,}

In [35]:
jdDf = pd.DataFrame(columns=['airline','value'])
for airline in jdAirline.keys():
jdDf = jdDf.append(pd.Series({'airline':airline,'value': jdAirline[airline]}),ignore_index=True)

jdDf = jdDf.iloc[[3,0,1,2]]
jdDf.loc[:,'relativeValue'] = (jdDf['value']-691)

In [36]:
fig = plt.figure(figsize=(3,5), dpi=1600)
ax = plt.subplot(111)

xticks_pos = [0.65*patch.get_width() + patch.get_xy()[0] for patch in barPlot]
plt.xticks([i+0.5 for i in range(6)],list(jdDf.airline),rotation=45,ha='right',fontsize=18)
ax.set_ylabel('Relative customer dislike',fontsize=24,fontweight='bold')
ax = plt.bar(range(len(jdDf)),-jdDf['relativeValue'],color=[c[4],c[4],c[3],c[3]])

yTix = plt.yticks()[0]
plt.yticks(yTix,fontsize=16)
plt.ylim([-17,30])

plt.show()
fig.savefig('jdAirlineRating.png',dpi=500,bbox_inches='tight')