Phân tích mạng Twitter

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

Hiểu khái niệm về mạng
Ứng dụng khái niệm mạng vào mạng xã hội
Tạo mạng retweet cho một chủ đề

Mạng và phân tích mạng

Mạng

Mạng và phân tích mạng

Phân tích mạng

Thành phần của mạng

Nút hoặc Đỉnh

Thành phần của mạng

Nút hoặc Đỉnh với Cạnh

Mạng có hướng vs không hướng

Mạng có hướng

Mạng có hướng vs không hướng

Mạng không hướng

Ứng dụng trong mạng xã hội

Người dùng Twitter tạo cấu trúc mạng phức tạp
Phân tích cấu trúc và quy mô mạng
Xác định nhân tố chủ chốt và người ảnh hưởng trong mạng
Then chốt để lan truyền thông tin rộng rãi

Mạng retweet

Mạng người dùng retweet các tweet gốc
Mạng có hướng: đỉnh nguồn là người retweet
Đỉnh đích là người đăng tweet gốc
Vị trí trong mạng retweet giúp nhận diện nhân tố chủ chốt để lan tỏa thông điệp thương hiệu

Mạng retweet của #OOTD

Tạo mạng retweet của người dùng retweet về #OOTD
Hashtag phổ biến ở nhóm tuổi 16–24
Có thể dùng để thu hút khách hàng tiềm năng

Tạo data frame tweet

# Create tweet data frame for tweets on #OOTD
twts_OOTD <- search_tweets("#OOTD ", n = 18000, include_rts = TRUE)

Tạo data frame cho mạng

# Create data frame for the network
rt_df <- twts_OOTD[, c("screen_name" , "retweet_screen_name" )]

head(rt_df,10)

screen_name      retweet_screen_name
<chr>                   <chr>
ShesinfashionCc          NA            
glamwearplanet           NA            
lanacond0r         LiveKellyRyan            
animeninjaz              NA            
zeluslondon              NA            
IonaJaneLevy             NA

Chỉ giữ retweet trong data frame

# Remove rows with missing values
rt_df_new <- rt_df[complete.cases(rt_df), ]

Chuyển data frame thành ma trận

# Convert to matrix
matrx <- as.matrix(rt_df_new)

Tạo mạng retweet

# Create the retweet network
library(igraph)
nw_rtweet <- graph_from_edgelist(el = matrx, directed = TRUE)

Xem mạng retweet

# View the retweet network
print.igraph(nw_rtweet)

Xem mạng retweet

IGRAPH 7f42937 DN-- 4100 4616 -- 
+ attr: name (v/c)
+ edges from 7f42937 (vertex names):
 [1] MaikielYungin  ->ZingletC        MaikielYungin  ->ZingletC       
 [3] victoria_shop_1->victoria_shop_1 victoria_shop_1->victoria_shop_1
 [5] victoria_shop_1->victoria_shop_1 victoria_shop_1->victoria_shop_1
 [7] victoria_shop_1->victoria_shop_1 victoria_shop_1->victoria_shop_1
 [9] victoria_shop_1->victoria_shop_1 w3daily        ->RealFirstBuzz  
[11] w3daily        ->RealFirstBuzz   w3daily        ->RealFirstBuzz  
[13] w3daily        ->RealFirstBuzz   w3daily        ->RealFirstBuzz  
[15] w3daily        ->RealFirstBuzz   w3daily        ->RealFirstBuzz

Ayo berlatih!

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