twitter-friends-network.R

twitterの特定ユーザがfollowしているユーザ間のfollowing関係.R

##### twitterの特定ユーザがfollowしているユーザ間のfollowing関係を分析します。
##### 下記では、@hentaimimura を例としています。

### igraphパッケージの読み込み
library(igraph)

### データ読み込み（エッジリスト）
data <- read.csv("hentaimimura_following_list.csv", header=T)
nrow(data)

### ネットワーク図の描画（有向グラフ、ラベル付き）
data.g <- graph.data.frame(data[1:679,], directed=TRUE)
par(family="HiraMaruProN-W4")
plot(data.g, 
vertex.size=8,
vertex.label.color="black",
vertex.label.cex=0.5,
vertex.frame.color=NA,
vertex.label=V(data.g)$following,
edge.color="gray80",
edge.arrow.width=0.5,
edge.arrow.size=0.3,
layout=layout.fruchterman.reingold)

### ネットワーク全体の指標の計算（L、C、相互性）
average.path.length(data.g, directed=TRUE, unconnected=FALSE)	#平均経路長
transitivity(data.g,type="localaverage",isolates="zero")	#クラスター係数、ただし向きを無視するため今回は参考程度
reciprocity(data.g)	#相互性（少なくとも一方向に有向辺がある頂点のペアに対する相互有向辺ペア数の比率）

### 特徴的な部分の計算（コミュニティ）
# 辺の媒介中心性に基づき、デンドログラムでコミュニティ形成を見る
(data.eb <- edge.betweenness.community(data.g))
data.dend <- as.dendrogram(data.eb)
plot(data.dend)

### 特徴的な頂点の計算（中心性）
betweenness(data.g)	#媒介中心性