Discussion :

[draculla]

Hello les amis,

Je travaille avec le package "Rfacebook", aprés avoir récupéré les postes d'une page sur facebook, je voudrais récupérer les commentaires et les likes avec cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

post <- getPost(post=fb_page$id[1], n=2000, token=fb_oauth)

Mais donc là, il ne me donne que le premier, mais je voudrais avoir la même chose pour toutes les lignes, je ne suis pas trés doué en langage R, s'il existe un fonction ou alors faire une boucle, votre aide me sera très précieuse.

Merci d'avance.

[LéonTheux]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

post <- getPost(post=fb_page$id[1], n=2000, token=fb_oauth)

dans le fb_page$id[1], le 1 signifie le premier post de la page... Pour avoir tout les post de la page, il faut une boucle for pour pouvoir accéder à tout les post.... J'ai donc écrit 2 petites fonction pour faciliter la chose...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
commentaires<-function(page,token,npost=500)
    {lapage <- getPage(page=page, n=npost, token=token, feed=TRUE)
    list_post<-1:((dim(lapage)[1])/2)*2
    commentaires<-NULL
    for (nbpost in list_post){
        post <- getPost(lapage$id[nbpost], n=2000, token=tok)
        commentaires<-c(commentaires,(post$comments[3])[,1])
    }
    return (commentaires)}

Cette fonction passe pas trop mal s'il n'y a pas trop de post... Dans le cas contraire FB coupe la connection, tu peux alors utiliser celle-ci après un getPage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
commentaires.page<-function(lapage,list_post,tok, com=NULL,s2=FALSE,ncom=2000){
    if (s2==TRUE)
        list_post<-list_post*2
    commentaires<-NULL
    for (nbpost in list_post){
        post <- getPost(lapage$id[nbpost], n=ncom, token=tok)
        commentaires<-c(commentaires,(post$comments[3])[,1])}
    return (c(com,commentaires))}

Dans ce cas un list_post=51:100, par exemple, ne prendra que les poste de 51 à 100 et évitera de faire planter le truc avec une trop grande quantité de données demandée

p.s.1
J'espère que tout ça n'est pas trop foireux, et un poil compréhensible, j'ai fai ça, il y a 2 mois, je m'y perds déjà un peu, redis-moi si tu arrives à en faire qqc.

p.s.2

Serais-ce très indiscret de te demander sur quoi tu bosse?

[draculla]

Hello,

Merci c'est sympa, j’essayerai ce soir et je te dirai si ça marche pour moi.
Pour le PS2: Je travaille pour le compte d'un groupe qui veut savoir ce qui se raconte sur lui, sur les réseaux sociaux, donc je récupère ce qu'il y a sur leurs comptes twitter et leurs page facebook, et le tout je le fais sous R.

[draculla]

Hello,

C'est encore moi, en effet c'est un peu compliqué pour moi, je n'arrive pas à la mettre en application, tu la mets directement autant que fonction ou bien tu passes par un lapply?
un peu bête comme question...je sais

[LéonTheux]

Salut,

Excuse, c'était un peu tard hier, je ne t'ai pas fait un petit exemple...

Je vais chercher un token sur https://developers.facebook.com/tool...5634995501895/ . Par expérience, c'est beaucoup plus solide que la fonction fbOAuth... En suite. j'enregistre ma page...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

page<-getPage('lemonde.fr',token = tok,n=500)

Pour ne pas surcharger ma connexion, je capte les commentaires par petits paquets, ici les 50 premiers post...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 com<-commentaires.page(page,1:50,tok=tok)

Et je refais même chose pour les commentaires des post 51 à 100...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

com<-commentaires.page(page,51:100,tok=tok,com = com)

avec l'argument com = com, je lui dis de rajouter ces commentaires aux premiers... Ce qui fait 7'506 commentaires au total dans cette exemple

Si maintenant, tu as moins de post, tu peux utiliser la deuxième fonction sans passé par un getpage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 com<- commentaires('LeNouvelObservateurPolitique',token=tok,npost = 200)

La seule question, c'est de ne pas faire exploser la connexion...

ps, si tu as ni'mporte quel remarque, n'hésite pas...

[draculla]

Bonsoir,

Merci ça marche très bien, bravo !
Si tu as des fonctions sur comment les analyser ces commentaires, je suis preneur
moi je me contente de faire de faire des nuages de mots, et du clustering sur les mots les plus évoqués.

Bonne soirée.

[LéonTheux]

Je n'ai pas grand-chose, je me contente de faire des AFC sur des tableaux de contingence, construits avec Text Mining, à partir de différentes pages...

Pour le moment, je suis heureux avec peu...