자료 불러오기

데이터 로딩

library(igraph)
library(NetData)
data(kracknets, package = "NetData")

데이터 보기

View(krack_full_data_frame)

엣지가 있는 데이터만 가져오기

krack_full_nonzero_edges <- subset(krack_full_data_frame, (advice_tie > 0 | friendship_tie > 0 | reports_to_tie > 0))

그래프로 변경

krack_full <- graph.data.frame(krack_full_nonzero_edges)

속성 설정

for (i in V(krack_full)) {
  for (j in names(attributes)) {
    krack_full <- set.vertex.attribute(krack_full, j, index=i, attributes[i,j])
  }
}