feat <- read.csv("http://commres.net/wiki/_media/r/featuring.csv")
> feat
            from            to friendship advice
1         아이유      G-DRAGON          8      6
2       에픽하이        아이유          4     10
3       에픽하이          오혁          5      5
4         아이유          오혁          2      5
5          HIGH4        아이유          5      9
6       에픽하이          MINO          8      4
7       에픽하이 사이먼 도미닉          9      8
8       에픽하이      더콰이엇          2      5
9       에픽하이          수현          8      6
10          MINO 사이먼 도미닉          3      5
11          MINO      더콰이엇          6      5
12 사이먼 도미닉      더콰이엇          9     10
> g <- graph_from_data_frame(feat)
> g
IGRAPH e7c59b8 DN-- 9 12 -- 
+ attr: name (v/c), friendship (e/n), advice (e/n)
+ edges from e7c59b8 (vertex names):
 [1] 아이유       ->G-DRAGON      에픽하이     ->아이유        에픽하이     ->오혁          아이유       ->오혁         
 [5] HIGH4        ->아이유        에픽하이     ->MINO          에픽하이     ->사이먼 도미닉 에픽하이     ->더콰이엇     
 [9] 에픽하이     ->수현          MINO         ->사이먼 도미닉 MINO         ->더콰이엇      사이먼 도미닉->더콰이엇     
> plot(g)
> V(g)
+ 9/9 vertices, named, from e7c59b8:
[1] 아이유        에픽하이      HIGH4         MINO          사이먼 도미닉 G-DRAGON      오혁          더콰이엇     
[9] 수현         
> E(g)
+ 12/12 edges from e7c59b8 (vertex names):
 [1] 아이유       ->G-DRAGON      에픽하이     ->아이유        에픽하이     ->오혁          아이유       ->오혁         
 [5] HIGH4        ->아이유        에픽하이     ->MINO          에픽하이     ->사이먼 도미닉 에픽하이     ->더콰이엇     
 [9] 에픽하이     ->수현          MINO         ->사이먼 도미닉 MINO         ->더콰이엇      사이먼 도미닉->더콰이엇     
>