4. RFacebook [ 데이터 가지고 오기 ]

R을 활용한 Facebook 정보 가지고오기.

[Api Key 가지고 오기]

install.packages("Rfacebook")

library("Rfacebook")

#Facebook api get Authentication from FB site.

fb_oauth = fbOAuth(app_id = "", app_secret = "", extended_permissions = T)

#인증서 처럼 사용.

save(fb_oauth, file="fb_oauth")

load("fb_oauth")

#Facebook API가 한번에 데이터를 20개 정도로만 가지고 올 수 있어. 반복문을 통해 데이터를 rbind로 축적해야 한다. 

start_date='2016/05/01'   

end_date='2016/06/09'

#seq(from,to,by="") 에서 by에 numeric만 들어가는 것이 아니라. days를 활용하게 된다면 하루씩 늘어나는 

#Sequence를 생성 할 수 있다.

scrape_days=seq(from=as.Date(start_date), to=as.Date(end_date), by='days')

posts=c() #초기화 및 빈 벡터 생성. 

for(scrape_day in scrape_days)

{

  daypost=c()

  tryCatch({daypost=getPage(page="happylotteworld",

                            token=fb_oauth,

                            since=as.Date(scrape_day, origin="1970-01-01"),

                            until=as.Date(scrape_day, origin="1970-01-01")+1

  )

  },

  error=function(e){}

  )

  posts= rbind(posts, daypost)  #Posts를 축적.

}

View(posts) 

names(posts)  # 해당 정보를 활용하여 멘션과 좋아요 또는 공유 등의 상관관계를 분석 가능.