R : Rfacebook 패키지

예전에 썼던 글에서는 Facebook의 API를 이용하여 post를 가지고 오고 이를 Parsing해서 wordcloud를 그렸었는데 Facebook에 대한 패키지가 있었네... 몰랐다니.. ㅠㅠ 

유저정보를 가져오거나 친구에 대한 Network 가져오는듯 다양한 기능이 있다.

이번 포스트에서는 간단하게 이전에 만들었던 Script를 수정해볼려고 한다. 수정해놓고 Spotfire와 연동 예제도 만들어둬야겠다...

access_token <- "[Access Token]"

require(Rfacebook);
path = "golfzon";

pagePost <- getPage(path, access_token);
df.Post <- data.frame(pagePost, stringsAsFactors = F);

require(KoNLP)
require(RColorBrewer);
require(wordcloud)

# text mining을 위한 형태로 정제
data.dt <- gsub("[\n\r▶]", "", data.dt);
data.dt <- gsub("http", "", data.dt);
data.dt <- data.dt[!is.na(data.dt)];

nouns <- sapply(data.dt, extractNoun, USE.NAMES = F);
nouns <- unlist(nouns);

wordCount <- data.frame(table(nouns), stringsAsFactors = F);

# 폰트 세팅
windowsFonts(malgun=windowsFont("맑은 고딕"))  
pal <- brewer.pal(12, "Paired")
  
# Wordcloud
wordcloud(wordCount$nouns, wordCount$Freq, min.freq = 2, random.order=F, family="malgun", colors=pal);