《Mastering Social Media Mining with R》

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本帖隐藏的内容

Mastering Social Media Mining with R_[PACKT_2015].pdf (5.86 MB)

2015-10-6 20:26:14 上传

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享1 收藏44 回帖

关键词：social media Mastering Social Master Media Media

1. Examples
   
2. ## Not run:
   
3. token <- 'XXXXX'
   
4. my_likes <- getLikes(user="me", token=token)
   
5. ## End(Not run)

复制代码

1. Examples
   
2. ## Not run:
   
3. ## See examples for fbOAuth to know how token was created.
   
4. ## Copy and paste token created at FB Graph API Explorer
   
5. token <- "XXXXXX"
   
6. mat <- getNetwork(token=token, format="adj.matrix")
   
7. library(igraph)
   
8. network <- graph.adjacency(mat, mode="undirected")
   
9. pdf("network_plot.pdf")
   
10. plot(network)
    
11. dev.off()
    
12. ## End(Not run)

复制代码

1. ## Not run:
   
2. ## an example of an authenticated request after creating the OAuth token
   
3. ## where app_id and app_secret are fictitious, and token is saved for
   
4. ## future sessions
   
5. fb_oauth <- fbOAuth(app_id="123456789", app_secret="1A2B3C4D")
   
6. save(fb_oauth, file="fb_oauth")
   
7. load("fb_oauth")
   
8. me <- getUsers("me", token=fb_oauth)
   
9. me$username
   
10. ## an example of a request using a temporary access token
    
11. token <- "XXXXXXAAAAAAA1111"
    
12. me <- getUsers("me", token=token)
    
13. ## End(Not run)

复制代码

DescriptionfbOAuth creates a long-lived OAuth access token that enables R to make authenticated calls tothe Facebook API. The token can be saved as a file in disk to be re-used in future sessions. Thisfunction relies on the httr package to create the OAuth token, and is a simplified version of one ofits examples.This function will automatically detect the API version for the token you create.

1. Examples
   
2. ## Not run:
   
3. token <- 'XXXXX'
   
4. my_checkins <- getCheckins(user="me", token=token)
   
5. ## End(Not run)

复制代码

1. Examples
   
2. ## Not run:
   
3. ## See examples for fbOAuth to know how token was created.
   
4. ## Capture 100 most recent posts on my newsfeed
   
5. load("fb_oauth")
   
6. my_newsfeed <- getNewsfeed(token=fb_oauth, n=100)
   
7. ## End(Not run)

复制代码

1. ## Not run:
   
2. ## See examples for fbOAuth to know how token was created.
   
3. ## Getting list of friends of authenticated user
   
4. load("fb_oauth")
   
5. d <- getFQL("SELECT uid2 FROM friend WHERE uid1=me()", token=fb_oauth)
   
6. ## End(Not run)

复制代码

1. #Not run:
   
2. ## Copy and paste token created at FB Graph API Explorer
   
3. token <- "XXXXXX"
   
4. my_friends <- getFriends(token=token, simplify=TRUE)
   
5. ## Since users are ordered by ID, this will return 10 oldest user accounts
   
6. head(my_friends, n=10)
   
7. ## End(Not run)

复制代码

1. Examples
   
2. ## Not run:
   
3. ## Find Facebook ID for R-Users Facebook group
   
4. load("fb_oauth")
   
5. ids <- searchGroup(name="rusers", token=fb_oauth)
   
6. ids[1,] # id = 18533493739
   
7. ## Downloading posts from R-Users Facebook group
   
8. group <- getGroup(group_id=18533493739, token=fb_oauth)
   
9. ## Downloading posts from R-Users Facebook group in January 2013
   
10. group <- getGroup(group_id=18533493739, token=fb_oauth,
    
11. since='2013/01/01', until='2013/01/31')
    
12. ## End(Not run)

复制代码

1. Examples
   
2. ## Not run:
   
3. ## See examples for fbOAuth to know how token was created.
   
4. ## Getting page impressions for Facebook's Facebook Page
   
5. ## (only owner or admin of page)
   
6. load("fb_oauth")
   
7. insights <- getInsights(object_id="20531316728", token=fb_oauth, metric='page_impressions')
   
8. ## Getting post impressions for a random Facebook's page post
   
9. ## (only owner or admin of page)
   
10. insights <- getInsights(object_id='221568044327801_754789777921289',
    
11. token=fb_oauth, metric='post_impressions', period='days_28')
    
12. ## Getting page fans for date range
    
13. ## (only owner or admin of page)
    
14. insights <- getInsights(object_id='221568044327801',
    
15. token=fb_oauth, metric='page_fans', period='lifetime',
    
16. parms='&since=2015-01-01&until=2015-01-31')
    
17. ## Count of fans by country
    
18. insights <- getInsights(object_id='221568044327801_754789777921289',
    
19. token=fb_oauth, metric='page_fans_country', period='lifetime')

复制代码