# 创建空的网络对象g<-graph.empty(n=length(c(unique(network_data$miRNA),unique(network_data$circRNA),unique(network_data$mRNA))),directed=TRUE)# 添加节点g<-g%>%set_vertex_attr("name",value=c(unique(network_data$circRNA),unique(network_data$miRNA),unique(network_data$mRNA)))%>%set_vert...