R语言中的igrath包为啥不能做出许多数据情况下的图

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

求教，是我弄错了还是那个包不支持，我的数据量大概有2500条左右，哪位高手可否帮忙解决下。

我搞了半天画不出社交关系图

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：RATH R语言 左右

setwd("D:/R/")
library(igraph)
singer <- read.table("D:/R/助跑的.txt", head=TRUE)
g <- graph.data.frame(singer,directed=T)
E(g)$curved <- 0
jpeg(filename='singers.jpg',width=2000,height=2000,units='px')
tkplot(g,
    vertex.size=0.5,   
    layout=layout.fruchterman.reingold,  
    vertex.shape='none',   
    vertex.label.cex=0.1,   
    vertex.label.color='red',  
    edge.arrow.size=0)      

这样出来的结果都会卡死机器，求教

你的结果，我的电脑可以跑出来，不过作出来的图是空白。最后返回1.
你可以按照如下代码作出一个网络图，不过因为点太多，作出来的效果并不是很好。建议你有重点地选择一些个体，作一些能看得出来的图哈。

1. library(igraph)
   
2. singer <- read.table("助跑的.txt", head=TRUE)
   
3. 
   
4. init.igraph<-function(data,dir=F,rem.multi=T){
   
5.                 labels<-union(unique(data[,1]),unique(data[,2]))
   
6.                 ids <-1 :length(labels)
   
7.                 names(ids)<-labels
   
8.                 from <- as.character(data[,1])
   
9.                 to <- as.character(data[,2])
   
10.                 edges <- matrix(c(ids[from],ids[to]),nc=2)
    
11.                 g <- graph.empty(directed=dir)
    
12.                 g <- add.vertices(g,length(labels))
    
13.                 V(g)$label <- labels
    
14.                 g <- add.edges(g,t(edges))
    
15.                 if(rem.multi){
    
16.                     E(g)$weight<-count.multiple(g)
    
17.                     g <- simplify(g,remove.multiple=TRUE,remove.loops=TRUE,edge.attr.comb='mean')
    
18.                   }
    
19.                 g
    
20. }
    
21. 
    
22. names(singer)<-c("from","to")
    
23. g.dir <- init.igraph(singer,dir=T)
    
24. jpeg(filename='singers.jpg',width=2000,height=2000,units='px')
    
25. plot(g.dir,edge.width=E(g.dir)$weight,main="网络图",edge.label=E(g.dir)$weight)
    
26. dev.off()

复制代码

卡在参数layout这里了，没什么必要的话删去就好了。
另外作图最后要加dev.off()

jiangbeilu 发表于 2016-3-17 15:57
你的结果，我的电脑可以跑出来，不过作出来的图是空白。最后返回1.
你可以按照如下代码作出一个网络图，不 ...

非常谢谢，复制下来学习下

万人往LVR 发表于 2016-3-17 16:07
卡在参数layout这里了，没什么必要的话删去就好了。
另外作图最后要加dev.off()

layout吗?好，我试一下，先谢过