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("전해철")

2.2. 자유한국당 - 남경필

draw_naver_graph("남경필")

2.3. 후보별

2.3.1. 이재명

draw_naver_graph("이재명")

2.3.2. 전해철

draw_naver_graph("전해철")

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