FlexNibFriday is a fun “tradition” for fountain pen users on Instagram. This tradition was started by @kataish with this post on 2014-05-23 11:12:51 with the caption Happy Friday! Can I make this a #fountainpen thing? #FlexNibFriday!!! (Parker Vacumatic with flex nib and Noodler’s Squeteague).

We can analyze FlexNibFriday with the help of the instaR package. Access Instagram API as described on previous posts and use the following code to fetch the data.

# Fetch 'flexnibfriday' data
data <- searchInstagram(tag = "flexnibfriday", token=my_oauth, n=474) 
# IG app shows the total number is 500. Probably 26 of them are not public posts.

# Save data to a new dataframe and order by created_time
fnf <- arrange(data, created_time)

#--------------------------------------------------------- IG API has problems dates are not right!
# I was going to use the above data frame to find the first post but dates are wrong.
# I already knew that the first post was from @kataish.
# Create kataish dataframe to get the first post link.
fnf_kataish <- arrange(subset(fnf, username=="kataish"), created_time)

We can use the data to find users with the most FlexNibFriday shares.

# Find who shares most 'flexnibfriday' tag
count_shares <- arrange(as.data.frame(count(fnf$username)), desc(freq))
colnames(count_shares) <- c("User", "Frequency")

Top 5 users are in the table below. Apparently, @kataish is the leader.

##             User Frequency
## 1        kataish        22
## 2      pentulant        20
## 3   eclectidbits        17
## 4 harriskassim81        17
## 5 missthundercat        14

We can also check the most liked FlexNibFriday post and the user that posted it.

# Find the most liked 'flexnibfriday' post
fnf_liked                   <- arrange(fnf, desc(likes_count))
most_liked_index            <- which.max(fnf$likes_count)
most_liked_image            <- fnf$link[most_liked_index]
most_liked_user             <- fnf$username[most_liked_index]

Our most liked FlexNibFriday post is from @mypurpleylife and it is this one.

Similarly we can find the most commented FlexNibFriday post and the user posted it.

# Find the most commented 'flexnibfriday' post
fnf_commented               <- arrange(fnf, desc(comments_count))
most_commented_index        <- which.max(fnf$comments_count)
most_commented_image        <- fnf$link[most_commented_index]
most_commented_user         <- fnf$username[most_commented_index]

Our most commented FlexNibFriday post is from @historian__ and it is this one.

We can also find the most used flex nib fountain pen brand. Using the similar code used in brand data post we can get brand names.

As seen from the plot, no surprise, Noodler’s is the most used flex brand.

plot of chunk unnamed-chunk-9

Finally, I wanted to get my FlexNibFriday posts.

# Find my 'flexnibfriday' shares ordered by date
fnf_emraher <- arrange(subset(fnf, username=="emraher"), created_time)

These are my posts ordered in ascending date order.

  1. 2014-07-25 11:02:25
  2. 2014-08-01 16:29:02
  3. 2014-08-08 02:43:16
  4. 2014-08-15 17:31:15
  5. 2014-08-22 00:17:42
  6. 2014-09-20 00:11:01
  7. 2014-09-26 19:36:02
  8. 2014-10-31 00:12:09
  9. 2014-11-07 04:26:17
  10. 2014-11-14 18:35:11