Re: 문제141. 영화 기생충의 인물 관계도를 시각화 하시오 !

[19기_이승원]

#1. 데이터 로드
node_df3 <- read.csv('node3.csv',header=T,fileEncoding = 'euc-kr')
link_df3 <- read.csv('link3.csv',header=T,fileEncoding = 'euc-kr')
node_df3
link_df3

#2. 시각화  
install.packages("networkD3")
install.packages("dplyr")
library(networkD3)
library(dplyr)

network1 <- forceNetwork(
  Links=link_df3,       # 소송 관계도 데이터 프레임명
  Nodes=node_df3,   # 회사이름, 회사번호가 있는 데이터 프레임명
  Source='source_idx',  # 소송하는 회사번호
  Target='target_idx',   # 소송당하는회사번호
  NodeID='node',       # 회사명
  Group='idx',            # 회사번호
  opacityNoHover=TRUE,  # 정적일때 불투명 정도
  zoom=TRUE,       # FALSE 로 하면 해당 노드의 동그라미만 보이고 TRUE 로 하면
  # 연관된 회사들이 선명하게 보입니다.
  bounded=TRUE, # 그래프가 화면 밖으로 빠져나가지 않게 한다. 
  fontSize=15,   # 글씨크기
  linkDistance=75,  # 연결선의 길이
  opacity=0.9 )    # 불투명 정도

network1