求助：如何用R语言绘制网络图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

求大神们帮我这个菜鸟解决一下问题，我想用R语言绘制网络图，数据的格式是这样的Node1        Node2        Weight
0        1        1
0        2        2
0        3        1
0        4        2
0        5        1
0        6        6
0        7        6
0        8        1
0        9        4
0        134        3
0        201        2
1        0        1
1        7        3

……
想用R进行处理，绘制成网络图，然后进行基础的网络分析，比如求度、介数什么的，目前只知道好像用igraph包，读入数据后，我不知道如何对这批数据进行处理构建网络，还请各位赐教！
ps用pajek做的是这样的： ，是不是哪里有问题？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：R语言 网络图 如何用 Weight GRAPH 网络图 如何

用igraph包画网络图很容易，可以求网络的拓扑属性等，看看igaph的帮助文档吧

一路嘿嘿 发表于 2014-8-13 21:24
用igraph包画网络图很容易，可以求网络的拓扑属性等，看看igaph的帮助文档吧

可是我看帮助文档里面有好多，实在不知道用哪个处理这种格式的数据，求大神指个道

Donna_L 发表于 2014-8-14 09:23
可是我看帮助文档里面有好多，实在不知道用哪个处理这种格式的数据，求大神指个道

大神谈不上，你可以看看这个帖子https://bbs.pinggu.org/thread-3166191-1-1.html
再搞不定的话,可以把你的数据传上来，我看看，可以是邻接矩阵或者边列表的

数据是这样的，求大神帮忙看看

一路嘿嘿 发表于 2014-8-14 09:27
大神谈不上，你可以看看这个帖子https://bbs.pinggu.org/thread-3166191-1-1.html
再搞不定的话,可以把你 ...

我觉得我那个数据用data.frame可能不行呢，求大神帮忙看看，数据在ls

Donna_L 发表于 2014-8-14 09:36
我觉得我那个数据用data.frame可能不行呢，求大神帮忙看看，数据在ls

1. library(igraph)
   
2. library(magrittr)
   
3. data.frame(source=c(rep(0,10),1,1),des=c(2:9,134,201,0,7),
   
4.   weight=c(2,1,2,1,6,6,1,4,3,2,1,3)) %>%
   
5.   graph.data.frame(extract(1:2)) %>%
   
6.   set.edge.attribute("weight",value=c(2,1,2,1,6,6,1,4,3,2,1,3)) %>%
   
7.   plot()

复制代码

一路嘿嘿 发表于 2014-8-14 09:53

非常感谢您！
如果我想对四千多条这样的数据进行处理该怎么办？我把数据传在五楼了，还麻烦您帮忙看看，十分感谢！！

1. library(igraph)
   
2. library(magrittr)
   
3. data<-read.table("D:\\neural.txt",head=FALSE)

复制代码

Donna_L 发表于 2014-8-14 10:20
非常感谢您！
如果我想对四千多条这样的数据进行处理该怎么办？我把数据传在五楼了，还麻烦您帮忙看看， ...

这种问题你看下我用的函数graph.data.frame的帮助就行了,能看懂我写的代码就行知道怎么用你的数据了，就算我给你贴出来，你如果不理解，下次碰到亦然不会，最好自己理解

read你的数据之后，前两列就是要构建graph的,第三列就是加入的edge的weight属性

1. net.data  <- read.table("c:/Users/Administrator/Desktop/neural.txt")
   
2. graph.data.frame(net.data[1:2]) %>%
   
3.   set.edge.attribute("weight",value=net.data[[3]]) %>%
   
4.   plot(vertex.size=5,vertex.label=NA,edge.arrow.size=0.3)

复制代码

一路嘿嘿 发表于 2014-8-14 10:34
这种问题你看下我用的函数graph.data.frame的帮助就行了,能看懂我写的代码就行知道怎么用你的数据了，就算 ...

嗯嗯，太感谢了！