Các thước đo trung tâm mạng

Phân tích dữ liệu mạng xã hội bằng R

Sowmya Vivek

Data Science Coach

Tổng quan bài học

Khả năng ảnh hưởng của đỉnh phụ thuộc số cạnh và vị trí
Độ trung tâm mạng đo tầm quan trọng của đỉnh trong mạng
Các thước đo gán giá trị số cho từng đỉnh
Giá trị thể hiện ảnh hưởng của đỉnh lên các đỉnh khác

Các thước đo trung tâm mạng

Ảnh hưởng của đỉnh do số cạnh và vị trí quyết định
Độ trung tâm mạng đo tầm quan trọng của đỉnh
Các thước đo trung tâm gán giá trị số cho mỗi đỉnh
Giá trị đo ảnh hưởng của đỉnh lên các đỉnh khác

Độ trung tâm bậc

Thước đo đơn giản nhất về ảnh hưởng của đỉnh
Xác định số cạnh/kết nối của đỉnh
Trong mạng có hướng, đỉnh có điểm bậc ra và bậc vào

Bậc ra

Bậc vào

Độ trung tâm bậc của một người dùng

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

Người dùng retweet nhiều nhất

# 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)

Người dùng retweet nhiều nhất

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

VanesEtim   RedNileShop     w3daily 
  209           147            62

Bài đăng được retweet nhiều nhất

# 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)

Bài đăng được retweet nhiều nhất

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

XyC_129    SocialBflyMag      jisoupy 
  171           167             142

Độ trung gian (Betweenness)

Mức độ các nút nằm giữa nhau
Phản ánh vai trò người dùng trong luồng thông tin qua mạng
Nút có độ trung gian cao kiểm soát mạng nhiều hơn

Độ trung gian

Xác định người dùng có độ trung gian cao

# 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()

Xác định người dùng có độ trung gian cao

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

GuruOfficial   Home_and_Loving    SimplyTasheena 
   65                54                40

Ayo berlatih!

Phân tích dữ liệu mạng xã hội bằng R