Influencers

Having seen the details of the post, let's see how to learn about the people who comment and like these posts and to check if there is anyone who is more influential. For doing such an analysis, first we need to pull the data about the user interaction in a particular post.

Based on a single post

Let's take the most recent post and pull all the user comments using the function getPost. For each of those comments, let's see how many people liked it using the following code:

post_id<- head(page$id, n = 1)  ## ID of most recent post
post<- getPost(post_id, token, n = 1000, likes = TRUE, comments = TRUE)
head(post$comments, n=2)

The output is as follows:

samppost<- post$comments

The preceding command will copy all the comments of a particular post. After that, in order to check the user who had the maximum likes, we can write a query using the function sqldf. First, we need to import the package sqldf and write a query using sqldf. Since we are interested in only those users who...