R语言网络图

> library(igraph)#加载igraph包
> library(readxl) #加载数据包
> jsdata=read_excel("复杂网络数据.xls") 
>  head(jsdata)
> from   to   
  <chr>  <chr>
1 阳光   环境 
2 温度   环境 
3 空气   环境 
4 水分   环境 
5 无机盐 环境 
6 环境   生物 

当数据中，某些元素存在一定的联系，如递进关系等，就可生成具有一定关系的网络图，如下所示：

data_stru<-graph.data.frame(jsdata)#从数据中生成图对象
plot(data_stru,edge.color=rainbow(40),
edge.arrow.size=1, #箭头大小
vertex.color=rainbow(7,alpha=0.3)) #设置颜色