데이터 과학자가 바라본 제7회 지방선거

네이버 연관검색어 - 서울시장

1. 네이버 연관 검색어

네이버 검색창에 검색어를 입력하게 되면 사용자들이 많이 검색하거나 네이버에서 판단하여 도움이 될 수도 있는 검색어를 경우에 따라서 자동완성 기능을 동원해서 도움을 주고 있다.

rdevteam에서 개발한 팩키지를 바탕으로 네이버 연관검색어를 추출하고 이를 networkD3 팩키지를 통해 시각화한다.

# 0. 환경설정 
library(rdevteam) # devtools::install_github("lovetoken/rdevteam")
library(tidyverse)
library(networkD3)
library(extrafont)
library(igraph)
loadfonts()

draw_naver_graph <- function(keyword) {

  dat <- naverRelation(keyword, depth = 2)
  
  x1 <- dat[,1:2]; colnames(x1) <- c("R1", "R2")
  x2 <- dat[,2:3]; colnames(x2) <- c("R1", "R2")
  
  new_x <- rbind(x1, x2)
  
  pre <- new_x %>%
    count(R2, R1) %>%
    graph_from_data_frame %>%
    igraph_to_networkD3
  
  pre$nodes$group <- ifelse(pre$nodes$name %in% dat$R0, "검색어",
                            ifelse(pre$nodes$name %in% dat$R1, "1차 연관어", "2차 연관어"))
  
  networkD3::forceNetwork(Links = pre$links, Nodes = pre$nodes,
                          colourScale = JS("d3.scaleOrdinal(d3.schemeCategory10);"),
                          Source = "source", Target = "target",
                          Value = "value", NodeID = "name",
                          Group = "group", opacity = 0.7, zoom = T,
                          fontSize = 13, fontFamily = "NanumGothic", legend = T,
                          opacityNoHover = 0.9)
}

2. 서울시장

서울시장 민주당 후보로 나온 박원순, 우상호, 박영선 후보에 대한 사항을 살펴보자. 더불어 바른미래당 안철수, 자유한국장 김문수 후보도 검색어에 넣어 검색해본다. 검색시점은 대략 2018-04-18 13:50:00이 된다.

2.1. 민주당 비교

박원순

draw_naver_graph("박원순")

우상호

draw_naver_graph("우상호")

박영선

draw_naver_graph("박영선")

2.2. 바른미래당과 자유한국당

안철수

draw_naver_graph("안철수")

김문수

draw_naver_graph("김문수")