중심성 계산하기

indeg_cent <- degree(krack_full, mode = 'in', normalized = T)
sort(indeg_cent, decreasing = T)

outdeg_cent <- degree(krack_full, mode = 'out', normalized = T)

inclose_cent <- closeness(krack_full, mode = 'in', normalized= T)
sort(inclose_cent)

outclose_cent <- closeness(krack_full, mode = 'out', normalized= T)

bet_cent <- betweenness(krack_full, directed = T)
sort(bet_cent, decreasing = T)

undirected <- as.undirected(krack_full, mode = 'collapse')
ev_cent <- sort(evcent(undirected)$vector, decreasing = T)
sort(ev_cent)