CODEWITHSUNDEEP
jsonrfacebook-graph-apircurlrjsonio
Luiz Felipe Freitas
Luiz Felipe Freitas

Reputation: 151

Parsing Facebook JSON results in R

I already read other questions but I still don't know how to parse Facebook Graph Search results in R. My main goal is to convert in something like a data frame, to analyze some columns.

library(RCurl)
library(RJSONIO)
library(rjson)

data <- getURL("https://graph.facebook.com/search?q=flamengo&type=post&limit=1000", cainfo="cacert.perm")
#if you don't have "cacert.perm" file, do as follow
#download.file(url="http://curl.haxx.se/ca/cacert.pem", destfile="cacert.perm")

UPDATE: Thanks @user1609452

Now what if I want to include "count", nested in "likes"? Let me show:

names(fbData$data[[1]])
[1] "id"           "from"         "message"      "actions"      "privacy"     
[6] "type"         "created_time" "updated_time" "shares"       "likes"   
names(fbData$data[[1]]$likes)
[1] "data"  "count"

In this case, how sould I set match.fun argument?

likes <- lapply(fbData$data[[1]]$likes,name='count')
Error in match.fun(FUN) : no "FUN" argument, no pattern

likes <- lapply(fbData$data[[1]]$likes,'[[',name='count')
Error in FUN(X[[2L]], ...) : index out of bounds

Can someone help me, please?

And if I want to include "count", nested in "likes"? Let me show:

names(fbData$data[[1]])
[1] "id"           "from"         "message"      "actions"      "privacy"     
[6] "type"         "created_time" "updated_time" "shares"       "likes"   
names(fbData$data[[1]]$likes)
[1] "data"  "count"

In this case, how sould I set match.fun argument?

likes <- lapply(fbData$data[[1]]$likes,name='count')
Error in match.fun(FUN) : no "FUN" argument, no pattern

likes <- lapply(fbData$data[[1]]$likes,'[[',name='count')
Error in FUN(X[[2L]], ...) : index out of bounds

Can someone help me, please?

Upvotes: 1

Views: 2864

Answers (2)

user1609452
user1609452

Reputation: 4444

Use RJSONIO or rjson no need to call both. Once you have imported the JSON data you need to convert it to a list.

library(RCurl)
library(RJSONIO)

data <- getURL("https://graph.facebook.com/search?q=flamengo&type=post&limit=1000")

fbData <- fromJSON(data)

The posts are contained in fbData$data.

#> length(fbData$data)
#[1] 500

The first post has various attributes:

#> names(fbData$data[[1]])
#[1] "id"           "from"         "message"      "privacy"      "type"        
#[6] "application"  "created_time" "updated_time"

To convert this data to a dataframe you will need to decide what you want to include and how to structure it. For example to get all the message bodies you could use:

lapply(fbData$data,'[[',name='message')

UPDATE:

To get the number of likes for a post you can use:

lapply(fbData$data,function(x){x$likes$count})

Upvotes: 2

user2225772
user2225772

Reputation: 159

This is actually an answer to the question you asked in a comment. I apologize for not answering in a comment, but I don't see the option to do so.

If you want to replace a / you can use

install.packages("stringr", dep=TRUE)
library("stringr")
library("RCurl")
library("RJSONIO")
data <- getURL("https://graph.facebook.com/search?q=flamengo&type=post&limit=1000")
clean <- str_replace_all(data,"\","whatever")
fbData <- fromJSON(clean)

where "whatever" is what you're replacing it with. By the way, if you can use rjson instead of RJSONIO then that might be slightly preferable, but they are basically the same anyway. rjson just runs slightly faster and more reliably whereas RJSONIO has more functionality.

Oh, and btw you can validate your JSON data at jsonlint.com

This sounds like an interesting app you've got going here, what is it? Some sort of FB stalker?

Upvotes: 1

Related Questions