데이터 과학자가 바라본 제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-19) ¹

‘드루킹’은 미국의 게임회사 블리자드사 ‘월드 오브 워크래프트’(WoW, 와우)에 나오는 드루이드(자연의 힘을 이용하는 마법사)’에서 따온 것이라고 전했다. 유력한 민주당 경상남도 지사 김경수 의원의 낙마를 가져온 드루킹 검색어와 연관된 검색어 2018-04-19 17:02:17 시간 기준 무엇인지 살펴보자

draw_naver_graph("두루킹")

---

1. 조선일보 - 닉네임 ’드루킹’의 뜻은 무엇일까…게임 마법사 캐릭터에서 따와↩