解析Facebook中的JSON结果R

Question

我已经阅读了其他问题，但我仍然不知道如何解析Facebook中的Facebook图形搜索结果。我的主要目标是转换类似数据框的内容，以分析某些列。

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： 感谢@ user1609452

现在，如果我想包括 “计数”，嵌套在 “喜欢”？让我们看看：

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" 

在这种情况下，我该如何设置match.fun参数？

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 

有人可以帮我吗？

---

如果我想包含“count”，嵌套在“likes”中？让我们看看：

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" 

在这种情况下，我该如何设置match.fun参数？

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 

有人可以帮我吗？

Answer 1

使用RJSONIO或rjson不需要同时调用两者。一旦您导入了JSON数据，您需要将其转换为列表。

library(RCurl) 
library(RJSONIO) 

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

fbData <- fromJSON(data) 

该帖子包含在fbData$data。

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

第一后各项属性：

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

这些数据转换成数据帧，你需要决定你想要的东西，包括和如何构建它。例如把所有的邮件正文，你可以使用：

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

UPDATE：

为了得到喜欢的一个职位，你可以使用数字：

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

Answer 2

这实际上是一个答案到你在评论中提出的问题。我很抱歉没有回复评论，但我没有看到这样做的选择。

如果你想更换/你可以使用

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) 

其中“无所谓”是你与替换它的内容。顺便说一下，如果你可以使用rjson而不是RJSONIO，那么这可能会稍微好一些，但它们基本上是一样的。 rjson运行速度更快，更可靠，而RJSONIO具有更多功能。

哦，顺便说一句，你可以在jsonlint验证你的JSON数据。com

这听起来像是一个有趣的应用程序，你去了这里，它是什么？某种FB追踪者？