Facebook Reactions

On  February 24, 2016 Facebook announced global availability of Reactions.

Since there is almost six months that users can use the Reactions, it was time to check their usage. For that purpose I selected 3 Slovenian Telco Facebook pages. With the help of RFacebook package I collected the posts from May to July 2016.

So, here we go!

First, lets load necessary packages.

library(Rfacebook)
library(ggplot2)
library(dplyr)
library(reshape2)

Next, lets collect all the posts from the 3 Facebook pages:

data.simobil <- getPage("simobil", since="2016-05-01", until = "2016-07-31", feed=T, token=fb_oauth, n = 50000)
data.telekom <- getPage("TelekomSlovenije", since="2016-05-01", until = "2016-07-31", feed=T, token=fb_oauth, n = 50000)
data.telemach <- getPage("TelemachSi", since="2016-05-01", until = "2016-07-31", feed=T, token=fb_oauth, n = 50000)

Now that we have the posts we can use the getReactions(post, token, verbose = TRUE) function. A post is a post ID or a vector of post ID’s. Here is an example of post ID’s:

head(data.simobil$id)

## [1] "48447625148_10154258264790149" "48447625148_10154255339530149"
## [3] "48447625148_10154253641935149" "48447625148_10154252910300149"
## [5] "48447625148_10154250467845149" "48447625148_10154250287890149"

So lets feed the ID’s to the getReactions() function.

# Reactions
react.simobil <- getReactions(post = data.simobil.p$id,token = fb_oauth)
react.telekom <- getReactions(post = data.telekom.p$id,token = fb_oauth)
react.telemach <- getReactions(post = data.telemach.p$id,token = fb_oauth)

With the help of dplyr package we can come up to a summary for all 3 Telco Facebook pages. So let see what we got.

brand	likes	love	haha	wow	sad	angry
Si.mobil	5530	30	18	24	14	30
Telekom Slovenije	14993	1181	66	105	9	35
Telemach	23327	2995	1535	363	338	51
Total	43850	4206	1619	492	361	116

And the plot:

So, users are not using the reactions button extensively. The usage ranges from 2% up to 18%.