Ağ merkezilik ölçüleri

R ile Sosyal Medya Verilerini Analiz Etme

Sowmya Vivek

Data Science Coach

Ders özeti

Merkezilik kavramı
Derece merkeziliği ve aradalık
Ağdaki kilit oyuncuları ve bir kampanyadaki rollerini belirleme

Ağ merkezilik ölçüleri

Bir tepeyin etkisi, kenar sayısı ve konumuyla belirlenir
Ağ merkeziliği, ağdaki bir tepeyin önemidir
Merkezilik ölçüleri her tepeye sayısal bir değer atar
Bu değer, tepeyin diğerleri üzerindeki etkisini ölçer

Derece merkeziliği

Tepe etkisinin en basit ölçüsü
Bir tepenin kenar/bağ sayısını belirler
Yönlü ağda tepenin çıkış ve giriş derece puanları vardır

Çıkış derecesi

Giriş derecesi

Bir kullanıcının derece merkeziliği

library(igraph)
# Calculate out-degree
out_deg <- degree(nw_rtweet, 
                  "OutfitAww", 
                   mode = c("out"))
out_deg

OutfitAww 
    20

library(igraph)
# Calculate in degree
in_deg <- degree(nw_rtweet, 
                 "OutfitAww", 
                  mode = c("in"))
in_deg

OutfitAww 
   23

En çok retweet atan kullanıcılar

# Calculate the out-degree scores
out_degree <- degree(nw_rtweet, mode = c("out"))

# Sort the users in descending order of out-degree scores
out_degree_sort <- sort(out_degree, decreasing = TRUE)

En çok retweet atan kullanıcılar

# View the top 3 users
out_degree_sort[1:3]

VanesEtim   RedNileShop     w3daily 
  209           147            62

Gönderileri en çok retweetlenen kullanıcılar

# Calculate the in-degree scores
in_degree <- degree(nw_rtweet, mode = c("in"))

# Sort the users in descending order of in-degree scores
in_degree_sort <- sort(in_degree, decreasing = TRUE)

Gönderileri en çok retweetlenen kullanıcılar

# View the top 3 users
in_degree_sort[1:3]

XyC_129    SocialBflyMag      jisoupy 
  171           167             142

Aradalık (betweenness)

Düğümlerin birbirinin arasındaki konumu
Bilginin ağda geçişini kolaylaştırmadaki rolü yakalar
Aradalığı yüksek düğüm ağa daha çok hâkimdir

Aradalık

Aradalığı yüksek kullanıcıları belirleme

# Calculate the betweenness scores of the network
betwn_nw <- betweenness(nw_rtweet, directed = TRUE)

# Sort the users in descending order of betweenness scores
betwn_nw_sort <- betwn_nw %>%
                   sort(decreasing = TRUE) %>%
                   round()

Aradalığı yüksek kullanıcıları belirleme

# View the top 3 users
betwn_nw_sort[1:3]

GuruOfficial   Home_and_Loving    SimplyTasheena 
   65                54                40

Hadi pratik yapalım!

R ile Sosyal Medya Verilerini Analiz Etme