Cluster Twitter Data with R and k-means

Share on FacebookTweet about this on TwitterShare on Google+Share on RedditShare on LinkedInEmail this to someone

Cluster Twitter Data

Hello everbody!

Today  I want to show you how you can get deeper insights into your Twitter followers with the help of R and show you how to cluster Twitter data. Because I just completed the course “Machine Learning” by Prof. Andrew Ng on Coursera I will use the k-means algorithm and cluster my Twitter followers by the ratio of their followers and how many people they follow.

Setup

Before we can get the Twitter data we have to authorize like I described here. But before we go one we make sure that we have installed rcharts:

If it is not installed you have to install it with:

Get the Twitter Data

We get our data in three steps. First we get the user object object, then we get the followers and friends of this user and then we merge it to a dataframe containing all these users and their information.

If you would plot this data now I couldn´t give you a lot of insight as the most data points would be in the left corner. It would look like this:

 

Plot non log

So what we do is a log transformation and use the log of all the values for our analysis.

Do do so we need to replace all 0 values in our dataframe with 1, because log(0) would result in -Inf values inside our dateframe.

Now we can apply the log transformation. Therefore we add the columns logFollowersCount and logFriendsCount to our dataframe which contain the log() values of the original columns followersCount and friendsCount we received from Twitter.

 Cluster the Twitter data

Now that we have our data we can start cluster Twitter data. Before we can use the k-means algorithm we have to decide how many clusters we want to have in the end. Therefore we can use the so called elbow method. It runs the k-means algorithm with different numbers of clusters and shows the results. Based on this we can decide how many clusters we should choose.

First we extract the relevant columns out of our dataframe and create a new one for our algorithm.

Then we can create the elbow chart and you will see why it is actually called elbow chart:

elbow

The best number of clusters it now at the “elbow” of the graph. In this case the best number of clusters would we something around 4. So we will try to find 4 clusters in our data.

Plot the data

Ok now that we have our data we can plot it with the rCharts library.

This has the advantage that we can create easily an interactive graph which provides us additional information like the actual number of followers and friends as we can´t see it directly on the axes after the log transformation.

You can find an interactive example of such a plot here

rcharts twitter

You can find the code on my github and if you have any questions feel free to follow me on Twitter or write a comment :)

 

 

This post was inspired by http://rstudio-pubs-static.s3.amazonaws.com/5983_af66eca6775f4528a72b8e243a6ecf2d.html

Share on FacebookTweet about this on TwitterShare on Google+Share on RedditShare on LinkedInEmail this to someone

JulianHi

I´m an International Business student from Germany, interested in Data Analytics and Machine Learning with a focus on Marketing Applications. My favorite language is R.

You may also like...

13 Responses

  1. connerpharmd says:

    Nice post. Quick question, was there adequate support for students of the course that chose to use R (vs. Octave). I saw this class was enrolling, but decided against enrolling due to my concerns around adequate R support for labs/hw and such.

  2. George says:

    Hi Julian,

    When I reached the command
    user <- getUser("my_user name")

    I got the following error. Any ideas?

    Error in twInterfaceObj$doAPICall(paste("users", "show", sep = "/"), params = params, :
    Error: SSL certificate problem, verify that the CA cert is OK. Details:
    error:14090086:SSL routines:SSL3_GET_SERVER_CERTIFICATE:certificate verify failed

    • julianhi says:

      Hey George,
      I think you are using windows?
      please try it with:
      user <- getUser("JulianHi",cainfo="cacert.pem")
      and tell me if it worked.

      Regards

  3. Interesting.But I’m not sure why when you say 2centers and then you put 4 in the code. Could you tell me if it is a typo?

  4. Jacob says:

    Hey, great piece! How did you build the interactive version?
    Jacob

  5. Very Nice! I’ve tried to make something for my twitter account and I have 2 question for you:

    1. the plot that I have obtained is not with 4 cluster but have just a color up on the right that is called as “Undefined”
    2. How you can export the plot in html file that is visible in google drive? (i should try to put the diagram in my wordpress blog in embedded form).

    Thanks a lot!

    • julianhi says:

      Hey Matteo,
      thank you!
      1) The “Undefined” error is mostly causes by a not correctly formatted dataframe. Did you check your code? Did you execute all the mentioned steps?

      2) You can save your graph with:
      p2$save(‘p2.html’,cdn=TRUE)
      Then you just have to modify the links to the sources in your html file if you want to upload it. Take a look at the html code of my graph.

      If you have further questions feel free to ask.

      Regards

  6. NJ says:

    Hi there. I am getting a rate limit issue. I have tweaked the code as follows: userFollowers <- user$getFollowers(n=10000) since they ID I have chosen has 200k + followers.

    Any idea how I can add a wait clause to ensure that the rate limit is not reached?

    Thanks and good work with the blog!

    • JulianHi says:

      Hey
      this depends on what kind of rate limit makes problems.
      Could you please post the code you are using? And where
      exactly does the rate limit make problems?

      Regards

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <pre class="" title="" data-url=""> <span class="" title="" data-url="">