码迷,mamicode.com
首页 > 其他好文 > 详细

R 网络图 nodes,edges属性计算

时间:2018-05-17 13:40:51      阅读:412      评论:0      收藏:0      [点我收藏+]

标签:wal   密度   test   info   routes   map   short   计算   com   

前面提到了用R画网络图,免不了要对网络图nodes和edges的特征做一些统计。分享下我的代码:

 

########## nodes edges的统计###########
# ####nodes的度有三种:点度中心度(degree),接近中心度(closeness),中间中心度(centrality)
routes_tidy <-routes_tidy %>%
activate(nodes) %>%
mutate(degree = centrality_degree())

#degree(routes_tidy,normalized = T) #相对点中心度=绝对点中心度/最大度数
#degree.distribution(routes_tidy) #点度频率每种点度数的个数/所有点个数
#cc<- betweenness(routes_tidy,normalized = T) #点的中心度
routes_tidy <-routes_tidy %>%
activate(nodes) %>%
mutate(centrality= centrality_eigen())#点的中心度
#接近中心度——点出度、点入度、相对接近中心度
#closeness(g,vids=which(V(g)$label=="c"))


edge.betweenness(routes_tidy) #线的中间中心度

# #
# routes_tidy <-routes_tidy %>%
# activate(nodes) %>%
# mutate(frequency = degree(routes_tidy)/vcount(routes_tidy))#点度频率每种点度数的个数/所有点个数

giant <- components(routes_tidy)#nodes组成的连通分支

 

####connectivity####
shortest.paths(routes_tidy)#最短路径
average.path.length(routes_tidy)#平均最短路径
edge_density(routes_tidy)#边的密度
diameter(routes_tidy)#最长最短路径
aa<-get_diameter(routes_tidy, directed=FALSE, weights=NA)#两个node之间的最长最短路径

 


具体可以参考文档Week3Lecture.pdf


#####聚类算法#####

#cluster_optimal

#cluster_walktrap
#cluster_edge_betweenness

#cluster_fast_greedy

#cluster_infomap

#cluster_label_prop

#cluster_leading_eigen

#cluster_louvain

#cluster_spinglass

 

R 网络图 nodes,edges属性计算

标签:wal   密度   test   info   routes   map   short   计算   com   

原文地址:https://www.cnblogs.com/fm-edgar/p/9049472.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!