g <- simplify(g, remove.multiple = TRUE, remove.loops = TRUE) # 多重エッジや自己ループの削除
太さを変える。
g<-graph.edgelist(as.matrix(q3),directed=T)
weight<-weight/mean(weight)
E(g)$weight<-weight
E(g)$width=E(g)$weight
http://kappa-bioinformatics.blogspot.jp/2011/02/gene-ontologygodb.html
http://homepage3.nifty.com/kaku-chan/graphviz/chapter_005.html
矢印の大きさは変えられないらしい arrow.size を参照
http://igraph.sourceforge.net/doc/R/plot.common.html
