实现：R
源数据：

library(dplyr)
library(igraph)
library(Cairo)

file<-read.csv("netchivago.csv",head=F,stringsAsFactors = F)
adjMtrx<-as.matrix(file[-1,-1])
rownames(adjMtrx)<-file[-1,1]
colnames(adjMtrx)<-file[-1,1]
udG<-graph_from_adjacency_matrix(adjMtrx,mode="undirected")
#l <- layout_with_kk(udG)
l <- layout_with_lgl(udG)


CairoPDF("chivago1.pdf",width = 12, height = 12)

plot(
  udG,
  vertex.size = 4,
  vertex.label.cex = 0.5,
  vertex.label.dist = 0.4,
  edge.color = "tomato",
  #edge.arrow.size = 0.7,
  #edge.curved = 0.3,
  layout = l,
  family = "GB1"
)

dev.off()