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

[19기_김연우]

# 1. 데이터를 로드
setwd("c:\\data")
node_df <- read.csv("node3.csv", fileEncoding='euc-kr')
link_df <- read.csv("link3.csv",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,       # FALSE 로 하면 해당 노드의 동그라미만 보이고 TRUE 로 하면
                          # 연관된 회사들이 선명하게 보입니다.
                          bounded=TRUE, # 그래프가 화면 밖으로 빠져나가지 않게 한다. 
                          fontSize=15,   # 글씨크기
                          linkDistance=75,  # 연결선의 길이
                          opacity=0.9 )    # 불투명 정도


network1     # 인물들끼리 연결망