一、加载相关包
install.packages("igraph")
install.package("xlsx")
library(igraph)
library(xlsx)
二、导入文件
网络图由点和边组成，在本例子中点都是没有差别的，所以不单独引入点文件，做的是无向图
test= read.xlsx('E:/test.xlsx',1)
g <- graph_from_data_frame(test, directed=F,)
三、美化图片并输出
V代表点，V$label是点的标签，也就是该点名称，E代表边，layout是样式，本例中用第三列的数据（列名为weight)对边赋予权重。
V(g)$size=20
V(g)$color=white
V(g)$label.cex=0.7
V(g)$label.color="black"
E(g)$color="gary"
plot(g, layout = layout.circle,edge.width=E(g)$weight)
因为是朋友的数据，所以把字涂掉了
四、遗留问题
不知道怎么把线搞直（嘤嘤嘤。。。
【更新】
我好像知道线为什么不直了……
数据中存在A-B和B-A两行数据，就会导致AB之间有两条连线，为了不重叠，就会变弯……
