install.packages(c(‘igraph’, ‘ggplot2’, ‘NetData’), repos=‘http://cran.nexr.com’)

library(igraph)

## 
## Attaching package: 'igraph'
## 
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## 
## The following object is masked from 'package:base':
## 
##     union

edge_list <- c(1, 2,
               1, 3,
               1, 5,
               2, 3,
               3, 1,
               3, 4,
               5, 1)

g <- graph(edges = edge_list, n = 5)

g

## IGRAPH D--- 5 7 -- 
## + edges:
## [1] 1->2 1->3 1->5 2->3 3->1 3->4 5->1

plot(g)

plot(g, edge.arrow.size = 0.1)

V(g)$name <- c('철수', '재인', '근혜', '무성', '명박')

g

## IGRAPH DN-- 5 7 -- 
## + attr: name (v/c)
## + edges (vertex names):
## [1] 철수->재인 철수->근혜 철수->명박 재인->근혜 근혜->철수 근혜->무성
## [7] 명박->철수

plot(g, edge.arrow.size = 0.1, vertex.label.family = 'gulim')

## Warning in text.default(x, y, labels = labels, col = label.color, family =
## label.family, : 윈도우즈 폰트데이터베이스에서 찾을 수 없는 폰트페밀리입니다

getwd()

## [1] "C:/Users/manne_000/Desktop"

setwd("C:\\Users\\manne_000\\Desktop")

adj_mat <- read.csv("kkk.csv", header = FALSE)
adj_mat

##   V1 V2 V3 V4 V5
## 1  0  1  1  1  1
## 2  0  0  0  0  0
## 3  1  0  0  0  0
## 4  0  1  0  0  1
## 5  0  0  1  0  0

adj_mat <- as.matrix(adj_mat, nrow = 5, ncol = 5)

adj_mat

##      V1 V2 V3 V4 V5
## [1,]  0  1  1  1  1
## [2,]  0  0  0  0  0
## [3,]  1  0  0  0  0
## [4,]  0  1  0  0  1
## [5,]  0  0  1  0  0

g <- graph.adjacency(adj_mat, mode = 'directed',
         diag = FALSE)

g

## IGRAPH DN-- 5 8 -- 
## + attr: name (v/c)
## + edges (vertex names):
## [1] V1->V2 V1->V3 V1->V4 V1->V5 V3->V1 V4->V2 V4->V5 V5->V3

plot(g, edge.arrow.size = 0.5)