Analiza sieci Twitter

Analiza danych z mediów społecznościowych w R

Sowmya Vivek

Data Science Coach

Przegląd lekcji

Zrozumienie pojęć związanych z sieciami
Zastosowanie koncepcji sieciowych w mediach społecznościowych
Tworzenie sieci retweetów dla wybranego tematu

Sieć i analiza sieci

Sieć

Sieć i analiza sieci

Analiza sieci

Składniki sieci

Węzeł lub wierzchołek

Składniki sieci

Węzeł lub wierzchołek z krawędzią

Sieć skierowana a nieskierowana

Sieć skierowana

Sieć skierowana a nieskierowana

Sieć nieskierowana

Zastosowania w mediach społecznościowych

Użytkownicy Twittera tworzą złożone struktury sieciowe
Analiza struktury i rozmiaru sieci
Identyfikacja kluczowych graczy i influencerów
Niezbędne do przekazywania informacji szerokiej publiczności

Sieć retweetów

Sieć użytkowników retweetujących oryginalne wpisy
Sieć skierowana, gdzie wierzchołkiem źródłowym jest użytkownik retweetujący
Wierzchołek docelowy to autor oryginalnego tweeta
Pozycja w sieci retweetów pomaga identyfikować kluczowych graczy w promocji marki

Sieć retweetów #OOTD

Tworzenie sieci retweetów użytkowników hashtagu #OOTD
Hashtag popularny wśród użytkowników w wieku 16–24 lat
Może służyć do przyciągania uwagi potencjalnych klientów

Tworzenie ramki danych tweetów

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

Tworzenie ramki danych dla sieci

# 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

Uwzględnienie tylko retweetów w ramce danych

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

Konwersja ramki danych do macierzy

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

Tworzenie sieci retweetów

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

Podgląd sieci retweetów

# View the retweet network
print.igraph(nw_rtweet)

Podgląd sieci retweetów

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

Czas na ćwiczenia!

Analiza danych z mediów społecznościowych w R