공유자료 HOME > 자료실 > 공유자료
 
[정보기술활용연구] 소셜네트워크분석 R 코드
관리자 16-04-09 14:12 789
   supervisor.csv (182byte) [95] 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)