Rで学ぶソーシャルメディアデータ分析
Sowmya Vivek
Data Science Coach
library(igraph) # out-degree を計算 out_deg <- degree(nw_rtweet, "OutfitAww", mode = c("out")) out_deg
OutfitAww 20
library(igraph) # in-degree を計算 in_deg <- degree(nw_rtweet, "OutfitAww", mode = c("in")) in_deg
OutfitAww 23
# out-degree スコアを計算 out_degree <- degree(nw_rtweet, mode = c("out"))
# out-degree の降順に並べ替え out_degree_sort <- sort(out_degree, decreasing = TRUE)
# 上位3ユーザーを表示 out_degree_sort[1:3]
VanesEtim RedNileShop w3daily 209 147 62
# in-degree スコアを計算 in_degree <- degree(nw_rtweet, mode = c("in"))
# in-degree の降順に並べ替え in_degree_sort <- sort(in_degree, decreasing = TRUE)
# 上位3ユーザーを表示 in_degree_sort[1:3]
XyC_129 SocialBflyMag jisoupy 171 167 142
# ネットワークの媒介中心性スコアを計算 betwn_nw <- betweenness(nw_rtweet, directed = TRUE)
# 媒介中心性の降順に並べ替え betwn_nw_sort <- betwn_nw %>% sort(decreasing = TRUE) %>% round()
# 上位3ユーザーを表示 betwn_nw_sort[1:3]
GuruOfficial Home_and_Loving SimplyTasheena 65 54 40
Preparing Video For Download...
