°øÀ¯ÀÚ·á HOME > ÀÚ·á½Ç > °øÀ¯ÀÚ·á
 
[Á¤º¸±â¼úÈ°¿ë¿¬±¸] ¼Ò¼È³×Æ®¿öÅ©ºÐ¼® R ÄÚµå
°ü¸®ÀÚ 16-04-09 14:12 1,600
   supervisor.csv (182byte) [101] DATE : 2016-04-09 14:12:31
install.packages("igraph")
library(igraph)
setwd("C:/Users/kh/Desktop/kob2016/lecture2016/Á¤º¸±â¼úÈ°¿ë¿¬±¸/½Ç½À2016º½")
supervisor <- read.csv("supervisor.csv", header=T)
## ÀÛ¾÷1
g <- graph.data.frame(supervisor, directed=F)
summary(g)
degree(g)
set.seed(110)
plot(g)

## ÀÛ¾÷2
## Subgraph º¸±â
V(g)$Size <- degree(g)/3
## cÂ÷¼ö°¡ 2 ¹Ì¸¸ÀÎ °ÍÀ» Á¦°ÅÇϱâ
condition <- V(g)[degree(g)<2]
## delete: ³×Æ®¿öÅ©¿¡¼­ ƯÁ¤ÇÑ Á¤Á¡(vertices)À» Á¦°ÅÇÏ·Á´Â °Í
g1 <- delete.vertices(g, condition)
head(sort(closeness(g1), decreasing=T))
head(sort(betweenness(g1), decreasing=T))
set.seed(1001)
plot(g1)
## ÀÛ¾÷3
## RC(¼±ºÐ)ÀÇ »ö±ò ¹Ù²Ù±â
E(g1)$color <- ifelse(E(g1)$spec=='X', "yellow",
 ifelse(E(g1)$spec=='Y', "blue", "grey"))
set.seed(1001)
plot(g1)