Question

我使用Rfacebook包下载Facebook Fanpages帖子。我也希望得到帖子的评论和喜欢，但我只有工作代码才能获得单个评论而且我无法创建循环。

我将逐个发布所有步骤，并在接下来的几个小时内更新我的令牌。

#Step1
install.packages("Rfacebook")
install.packages("Rook")
install.packages("igraph")

#start the libaries
library(Rfacebook)
library(Rook)
library(igraph)

安装完成后，我可以生成一个令牌（使用我的）并下载人类纽约的FB页面，例如：

#step 2
#browse to facebook and ask for token
#browseURL("https://developers.facebook.com/tools/explorer")

token <- "CAACEdEose0cBACzNgrHPBIZAQCQ8EZBpGJqwwT8uVq74ONdKJKDk6fiXXgjBB4ZBHC93Njd2onrhGsiffK5QFqpIvZBCFEagBkOqMgjaf103XwpHhSV6YOeVdcjU813g6eJKCsdtNT7pGRYftTXgZBrSMMOyAj47mAZBGxI98iPv78qTeIqliA8UCbZBzZAVU0NoOUBTkJSPPQZDZD"

#get FB fanpage "humansofnewyork"
humansofnewyork <- getPage("humansofnewyork", token, n=500)

现在我想创建一个循环来下载每个postid的每条评论。但是当我运行一个循环追加时，我会得到一个表格，它会在某个点水平复制colomuns而不是仅垂直添加行。

users.humansofnewyork = c()

   for (i in 1:3) {
  users.humansofnewyork = append(users.humansofnewyork, getPost( (humansofnewyork$id[i]) , token, n = 500, comments = TRUE,likes = TRUE, n.likes=500, n.comments=500))
}

如果有人可以帮助我，我会很高兴。

亲切的问候

Answer 1

在R中使用'plyr'包，这有助于拆分数据。直到现在它帮助了我。

使用以下代码

apply<-ldply(users.humansofnewyork,data.frame)

使用带有R和Rfacebook包的循环构造单个表

1 个答案: