node_df <- read.csv("node3.csv", header = T, fileEncoding = "euc-kr")
link_df <- read.csv("link3.csv", header = T, fileEncoding = "euc-kr")
node_df
link_df
#2. 시각화
#install.packages("networkD3")
#install.packages("dplyr")
library(networkD3)
library(dplyr)
network1 <- forceNetwork( Links=link_df,
Nodes=node_df,
Source='source_idx',
Target='target_idx',
NodeID='node',
Group='idx',
opacityNoHover=TRUE, # 정적일때 불투명 정도
zoom=TRUE,
# 연관된 회사들이 선명하게 보입니다.
bounded=TRUE, .
fontSize=15,
linkDistance=75,
opacity=0.9 )
network1