원시 데이터에서 그래프 구축

사례 연구: R로 하는 네트워크 분석

Edmund Hart

Instructor

데이터 탐색

수일간 #rstats를 언급한 모든 트윗 데이터
그래프 구축에 필요한 주요 속성:
- 스크린 이름
- 트윗 원문

트윗의 구조

ReecheshJC: "Hey #rstats, how do I do fct_lump but where I lump based on count values in a column?"
kom_256: "RT @elenagbg: Retweeted R-Ladies Madrid (@RLadiesMAD):\n\nEn el #OCSummit17... Fast Talks sobre #rstats organizado por... https://t.co/CKY5aG…"

library(igraph)
library(stringr)
raw_tweets <- read.csv("datasets/rstatstweets.csv", 
  stringsAsFactors = FALSE)

데이터 샘플 (단일 행)

user_name:    Karen Millidine
screen_name:    KJMillidine
tweet_tex:t    RT @Rbloggers: RStudio v1.1 Released 
https://t.co/kCMHc689nY #rstats #DataScience
favorites:    0
retweets:    96
location:    None
expanded_url:    https://wp.me/pMm6L-ExV
in_reply_to_tweet_id:    NA
in_reply_to_user_id:    NA
dt:    10/10/17

그래프 구축

## Get all the screen names
all_sn <- unique(raw_tweets$screen_name)

## Create graph
retweet_graph <- graph.empty()

## Add screen names as vertices
retweet_graph <- retweet_graph + vertices(all_sn)

그래프 구축

## Extract name and add edges
for(i in 1:dim(raw_tweets)[1]){

  # Extract retweet name
  rt_name <- find_rt(raw_tweets$tweet_text[i])
  # If there is a name add an edge
   if(!is.null(rt_name)){

      # Check to make sure the vertex exists, if not, add it
      if(!rt_name %in% all_sn){ 
        retweet_graph <- retweet_graph + vertices(rt_name)
      }

     # add the edge
     retweet_graph <- retweet_graph + 
       edges(c(raw_tweets$screen_name[i], rt_name))

   }

}

그래프 정리

## Size the number of degree 0 vertices
sum(degree(retweet_graph) == 0) 

## Trim and simplify
retweet_graph <- simplify(retweet_graph)
retweet_graph <- delete.vertices(retweet_graph, 
  degree(retweet_graph) == 0)

연습해 봅시다!

사례 연구: R로 하는 네트워크 분석