Извлечение поста из Facebook с использованием пакета RFacebook

Question

Мне удалось получить текст поста и поделиться, а количество лайков.

Тем не менее, я не могу подобрать комментарии, связанные с постом. Если эта информация недоступна, я хотел бы объединить количество сообщений для каждого комментария. Пример: пост получает 900 лайков и 80 комментариев. Я хотел бы связать значения 900 лайков с каждым комментарием (новый столбец с именем post_like возможно).

Я хотел бы использовать эту информацию для анализа настроений, используя количество лайков (например, сложный (например, хаха, грустный...)) в логистической регрессии с частотой наиболее часто встречающихся слов в качестве переменной x.

Вот мой сценарий до сих пор:

 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),]

Таким образом, в основном я получаю страницу с идентификатором поста и создаю функцию для получения поста идентификатора поста на этой странице.

Как вы можете видеть, я получаю всю информацию, которая мне нужна, кроме лайков и общего количества.

Я надеюсь, что я ясно, большое спасибо за вашу помощь

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’