R语言-关键节点问题-方案一

最新推荐文章于 2023-10-16 21:38:06 发布

拦羊嗓子回牛声

最新推荐文章于 2023-10-16 21:38:06 发布

阅读量1.5k

点赞数 1

分类专栏： R语言代码文章标签： r语言

本文链接：https://blog.csdn.net/wlt9037/article/details/73849775

版权

该博客探讨了如何使用R语言在无向图中寻找复杂网络的关键节点，这是网络科学中的经典问题——最优渗流。文中提出了一种基于节点权重的排序方案，并期待通过算法得出精准结果。

摘要由CSDN通过智能技术生成

问题说明：社交网络以及其他各种各样的网络，在社会经济、自然科学等领域中发挥着越来越大的作用，而其中一个很核心的问题是了解一个节点在网络中发挥的作用。比如SARS的传播，可能香港一个超级传播者带来的影响比其他100甚至1000个人还多；一条谣言的传播，一个核心大号的转发可能带来巨大的影响。
因此需要我们有一种能力，可以从生物的大规模基因调控网络中，找到导致疾病的重要基因；从大规模的社交网络中，找到传播谣言/疾病的最重要的节点；从大规模的企业投资关系网络中，找到可能导致金融风险的重要企业。

这些零零总总都可以划归为一类问题：如何寻找网络中的关键节点，这实际上是从现在到未来最有可能导致商业模式革新的一个重要方向。这个问题，也叫做复杂网络最优渗流，是网络科学领域的一个经典问题。本次大赛聚焦于此，邀请国内外ABM学者合作指导，以期获得精准的算法结果和优美的解决方案。

方案说明：由于是无向图，无法使用PageRank和HITS算法。先按照结点权重，无脑排序。

R语言实现：

library(RMySQL)                       # 载入RMySQL包
conn <- dbConnect(MySQL(),dbname = "NETWORKS",username = "root") # 建立数据库连接
dbSendQuery(conn, "SET @@sql_mode=ANSI;") # 启动非严格模式
dbSendQuery(conn, "SET NAMES GBK")    # win7环境下如果汉字乱码，