RFacebookパッケージを使用したFacebookからの投稿の抽出

Question

私はの投稿と共有と好きな数のテキストを取得することに成功します。

しかし、投稿に関連するコメントのようなものは得られません。この情報が利用可能でない場合は、投稿ごとに同じコメントを各コメントにマージしたいと思います。 例：投稿には、900件のコメントと80件のコメントがあります。私は900の好きな値をそれぞれのコメント（post_likeという新しい列かもしれません）に関連づけたいと思います。

この情報を使用して、最も頻繁に出現する単語の頻度がx変数であるロジスティック回帰における好きな数（complexha like（すなわち、haha、sad ...））を使用して、 。ここで

は、これまでのところ、私のスクリプトです：

token<- "**ur token , get it at https://developers.facebook.com/tools/explorer/**" 

# Function to download the comments 
download.post <- function(i, refetch=FALSE, path=".") { 
post <- getPost(post=fb_page$id[i], comments = TRUE, likes = TRUE, token=token) 
post1<- as.data.frame(melt(post)) 
} 
#----------------------- Request posts --- ALL 
# Get post for ALL 
fb_page<- getPage(page="**the page number u want**", token=token, since='2010/01/01', until='2016/01/01', n= 10000, reactions=TRUE) 
fb_page$order <- 1:nrow(fb_page) 

# Apply function to download comments 
files<-data.frame(melt(lapply(fb_page$order, download.post))) 

# Select only comments 
files_c<-files[complete.cases(files$message),] 

だから、基本的に私はポストのIDでページを取得し、そのページ上のポストIDのポストを取得する関数を作成します。

あなたが見ることができるように、私は私が好きで、株式数の横に必要なすべての情報を取得します。私は明確にしています、あなたのためのおかげで、多くはそれがすべてあります

Answer 1

を助ける願ってい

：

library(Rfacebook) 
token <- "#############" # https://developers.facebook.com/tools/explorer 
fb_page <- getPage(page="europeanparliament", token=token, n = 3) 
transform(
    fb_page[,c("message", "likes_count", "comments_count", "shares_count")], 
    message = sapply(message, toString, width=30) 
) 
#       message likes_count comments_count shares_count 
# 1 This week members called o....   92    73   21 
# 2 Today we're all Irish, bea....   673   133   71 
# 3 European citizens will mee....  1280   479   71 

packageVersion("Rfacebook") 
# [1] ‘0.6.12’