我有一个数据表,其中包含在论坛的同一线程中发布的用户名,看起来像这样:X1 X2 1. g79 kian 2. g79 grayracer 3. g79 oldskoo1 ...
我需要计算度数、接近度和介数。我正在使用以下代码:
library(igraph)
setwd("/Volumes/NATASHKA/api/R files")
load("edgelist_one_mode.rda")
load("map.rda")
load ("result.rda")
el <- as.matrix(whatwewant)
el[,1] <- as.character(el[,1])
el[,2] <- as.character(el[,2])
g <- graph.data.frame(el, directed=FALSE)
plot(g, edge.arrow.size=.5)
indegreeG <- degree(g, mode="in")
outdegreeG <- degree(g, mode="out")
totaldegreeG <- degree(g)
inclosenessG <- closeness(g, mode='in')
outclosenessG <- closeness(g, mode='out')
totalclosenessG <- closeness(g)
betweennessG <- betweenness(g)
forumG <- data.frame(V(g)$name, indegreeG, outdegreeG, totaldegreeG, inclosenessG, outclosenessG, totalclosenessG, betweennessG)
write.table(forumG,file="forumG.csv",sep=";")
问题是为什么我的入度、出度和总度的值相同,而接近度也相同?另外,一开始我有41213个用户,但是经过分析(当我计算度数等时)我只有37874个。我怎么会失去这么多的观察?如果我在代码中有错误,请告诉我。
谢谢