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.
你可以按照如下代码作出一个网络图，不过因为点太多，作出来的效果并不是很好。建议你有重点地选择一些个体，作一些能看得出来的图哈。

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

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