在VisNetwork中运行社区检测和可视化输出

时间:2017-01-27 15:01:15

标签: r data-visualization igraph graph-visualization

我正在尝试使用R中的VISNETWORK包运行betweeness和closeness centrality 针对度数计算节点并使用下面的代码可视化。有没有人知道如何使用Visnetwork计算其他中心度量和绘图。

附上下面的代码来计算我试图计算其他中心性度量的度数和样本数据集。

graph <- graph.data.frame(retweeter_poster, directed=T)  ##retweeter_poster  who_retweet and who_post twitter network
graph <- simplify(graph)
V(graph)$indegree <- centr_degree(graph, mode = "in")$res
nodes <- get.data.frame(graph, what="vertices")
nodes <- data.frame(id = nodes$name, title = nodes$name, group = nodes$indegree, indegree = nodes$indegree)
setnames(nodes, "indegree", "in-degree centrality")
nodes <- nodes[order(nodes$id, decreasing = F),]
edges <- get.data.frame(graph, what="edges")[1:2]
visNetwork(nodes, edges, height = "500px", width = "100%") %>%
visOptions(selectedBy = "in-degree centrality", highlightNearest = TRUE, nodesIdSelection = TRUE)%>%
visPhysics(stabilization = FALSE)


Source     Target
futatun2228 nanauehara0812
    Weltregierung   jounger
    soccelovexxxxx  evian_moe
    berlinerzeitung 13susang75
    ot113   evian_arswest
    ot113   evian_arswest
    berlinerzeitung Letnapark
    ot113   evian_arswest
    sternde xXNero03
    mkdirecto   Ms_Kowalsky
    ot113   evian_arswest
    p90tr2  evian_9
    sternde MARKENCHECKS
    ot113   evian_arswest
    ot113   evian_arswest
    shoko_ayu_1008  evian_arswest
    meikelobo   Andreas__Nagel
    mkdirecto   markiteando
    mkdirecto   nilsonliscano
    FlippinAlbanian LChanio
    sternde WWinfos
    HIFIMANJAPAN    evian
    berlinerzeitung daniel_makuch
    faznet  JrgenNaeve
    berlinerzeitung BerlinerNYC
    suarezphoto cebenna
    SPIEGELONLINE   Pahn2304Norbert
    SPIEGEL_Top Kawajoerg
    Klaus_Mueller   Rechtalltaglich
    an_evian @an_evian  Emiliya1207
    MDRaktuell  MARKANTdjPOOL
    salzburg_com    PeterHeinzl
    faznet  ingouschner
    derStandardat   Liese_Mueller
    faznet  RhydanR
    Klaus_Mueller   KolbaPeter
    SPIEGELONLINE   OneStepBayond
    Klaus_Mueller   VanessFred
    SPIEGELONLINE   frankschroedter
    SPIEGELONLINE   bolounitlne
    faznet  Rudini48
    berlinerzeitung Marina_Ilona
    jzaaaa80    evian_812
    HasnainKazim    OneStepBayond
    SPIEGELONLINE   OneStepBayond
    faznet  JcM_mr
    SPIEGELONLINE   HasnainKazim
    makaronn1gou    evian_arswest
    SPIEGELONLINE   askourgias
    SPIEGELONLINE   CausesPetitions
    faznet  Nur_mal_so1
    faznet  Ghostdogcs

0 个答案:

没有答案