sna

##sna 가짜데이터를 바탕으로 사회적 연결망을 만들어봤다. 물론 해당 내용을 면밀히 공부한게 아니고 이미지를 만들기 위한 것이라 많이 부족하다. 이 단어들의 관계는 당연하지만 엄청 임의적이다…. 애초에 무파마와 – 소녀시대 – 워드가 무슨 관계가….

from <- c(rep("원피스", 500), rep("블라우스", 200), rep("청바지", 300))
tn1<-c("A90", "소녀시대", "무파마", "신라면", "원피스", "투피스", "붉은색", "카라", "폴라", "레이스", "오프숄더")
tn2<-c("A90", "소녀시대", "무파마")
tn3<-c("A90", "소녀시대", "무파마", "신라면", "원피스", "소매", "퍼프", "셔링", "캐주얼")
tn4<-c("토론", "워드", "ppt", "카톡")

to<-c(sample(tn1, 200, replace = T),sample(tn2, 300, replace = T), sample(tn3, 100, replace = T), sample(tn4, 400, replace = T))
fg<-data.frame(from, to)
a<-data.frame(from, to)
fg<-as.matrix(fg)
g <- graph.edgelist(fg,directed=FALSE)

그냥 그리면 이쁘지가 않다

plot(g, layout = layout.lgl)

중심성을 구하고 좀 더 극적으로 보이기 위해 25을 곱했다

fk <- as_tbl_graph(a)
fkk<-fk %>%
  mutate(eig=centrality_eigen()) %>%
  as_tibble %>% arrange(desc(eig))
vff<-fkk$eig
vff<-vff*25

이제 그려보자

plot(g, layout = layout.lgl, vertex.size = vff,
     edge.arrow.size=.1, edge.arrow.width=.5, edge.arrow.mode=0,
     vertex.color = rainbow(21, s=.3,v=1, alpha = .5), vertex.label.cex =1, 
     vertex.label.color="black", vertex.label.dist = 2)