《Mastering Social Media Mining with R》

1. Examples
   
2. ## Not run:
   
3. ## See examples for fbOAuth to know how token was created.
   
4. ## Getting information about Facebook's Facebook Page
   
5. load("fb_oauth")
   
6. fb_page <- getPage(page="facebook", token=fb_oauth)
   
7. ## Getting posts on Humans of New York page, including posts by others users
   
8. ## (not only owner of page)
   
9. page <- getPage(page="humansofnewyork", token=fb_oauth, feed=TRUE)
   
10. ## Getting posts on Humans of New York page in January 2013
    
11. page <- getPage(page="humansofnewyork", token=fb_oauth, n=1000,
    
12. since='2013/01/01', until='2013/01/31')
    
13. ## End(Not run)

复制代码

1. Examples
   
2. ## Not run:
   
3. ## See examples for fbOAuth to know how token was created.
   
4. ## Getting information about Facebook's Facebook Page
   
5. load("fb_oauth")
   
6. fb_page <- getPage(page="facebook", token=fb_oauth)
   
7. ## Getting information and likes/comments about most recent post
   
8. post <- getPost(post=fb_page$id[1], n=2000, token=fb_oauth)
   
9. ## End(Not run)

复制代码

getPost returns a list with three components: post, likes, and comments. First, post containsinformation about the post: author, creation date, id, counts of likes, comments, and shares, etc.Second, likes is a data frame that contains names and Facebook IDs of all the users that liked thepost. Finally, comments is a data frame with information about the comments to the post (author,message, creation time, id).

1. Examples
   
2. ## Not run:
   
3. ## See examples for fbOAuth to know how token was created.
   
4. ## Getting information about the authenticated user
   
5. load("fb_oauth")
   
6. fb <- getUsers("me", token=fb_oauth)
   
7. fb$username
   
8. ## End(Not run)

复制代码

1. Examples
   
2. ## Not run:
   
3. ## Searching 100 public posts that mention "facebook"
   
4. posts <- searchFacebook( string="facebook", token=fb_oauth, n=100 )
   
5. ## Searching 100 public posts that mention "facebook" from yesterday
   
6. posts <- searchFacebook( string="facebook", token=fb_oauth, n=100,
   
7. since = "yesterday 00:00", until = "yesterday 23:59" )
   
8. ## End(Not run)

复制代码

看看看