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

[19기_박보은]

# 1. 데이터를 로드

node_df <- read.csv("node3.csv", fileEncoding = "euc-kr")
link_df <- read.csv("link3.csv", fileEncoding = "euc-kr")

node_df3 <- node_df[ , c("node","idx") ]
link_df3 <- link_df[ , c("source","target") ]
node_df3
link_df3

# 2. 시각화

# install.packages("networkD3")
# install.packages("dplyr")
library(networkD3)
library(dplyr)

network6 <- forceNetwork( Links = link_df3,          
                          Nodes = node_df3,         
                          Source = 'source',         
                          Target = 'target',        
                          NodeID = 'node',               
                          Group = 'idx',                   
                          opacityNoHover = TRUE,             # 정적일 때 불투명 정도
                          zoom = TRUE,                 
                          # FALSE 로 하면 해당 노드의 동그라미만 보이고
                          # TRUE로 하면 연관된 화사들이 선명하게 보임
                          bounded = TRUE,      # 그래프가 화면 밖으로 빠져나가지 않게
                          fontSize = 15,                # 글자크기
                          linkDistance = 200,           # 연결선길이
                          opacity = 0.9 )               # 불투명 정도

network6        # 인물들끼리 연결망