有画过网络关系的吗

各位   参照的一个网站   http://my.oschina.net/enyo/blog/209280


代码




library(igraph)
#读取数据，注意编码格式是utf-8
singer <- read.csv('C:/Users/Administrator/Desktop/company.csv', head=T,fileEncoding='UTF-8',stringsAsFactors=F)
#加载数据框
g <- graph.data.frame(singer)
#生成图片，大小是800*800px
jpeg(filename='singers.jpg',width=800,height=800,units='px')

plot(g,
    vertex.size=5,     #节点大小
    layout=layout.fruchterman.reingold,  #布局方式
    vertex.shape='none',    #不带边框
    vertex.label.cex=1.5,    #节点字体大小
    vertex.label.color='red',  #节点字体颜色
    edge.arrow.size=0.7)    #连线的箭头的大小
#关闭图形设备，将缓冲区中的数据写入文件
dev.off()



文件里内容这样的


com        person
1        a
1        b
1        c
1        d
1        e
1        f
1        g
2        a
2        b
2        t
3        g
3        f
3        b




画不出来啊   求指教