不害怕犯错,才能走的更远。
如有错误遗漏,请大家批评指正。
完整代码
大量OTU数据处理提速
定义节点颜色
#set vertices color 2
igraph.col = otu_pro[V(igraph)$name,]
V(igraph)$color = as.factor(igraph.col$func2)#定义节点颜色
V(igraph)$color
vcolor <- c("yellow","gray","green","blue","pink")
V(igraph)$color<-vcolor[factor(igraph.col$func2)]
plot(igraph,main = "C",layout = layout_with_graphopt,vertex.label=otu_pro$func,vertex.label.cex=.2,edge.lty=1,edge.curved=TRUE,margin=c(0,0,0,0))
修改网络格局
igraph导出节点信息
edges <- igraph::as_data_frame(igraph, what = "edges")
nodes <- igraph::as_data_frame(igraph, what = "vertices")