实现：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()