From this script it is possible to create a network
library(bibliometrix)
D <- readFiles("http://bibliometrix.org/datasets/joi.txt")
M <- convert2df(D, dbsource="isi",format="plaintext")
M <- metaTagExtraction(M, Field = "AU_CO", sep = ";")
NetMatrix <- biblioNetwork(M, analysis = "collaboration", network = "countries", sep = ";")
net=networkPlot(NetMatrix, n = dim(NetMatrix)[1], Title = "Country collaboration",type = "circle", size=10,size.cex=T,edgesize = 1,labelsize=0.6, cluster="none")
How can the graph have the 12 most frequent graphs with connections?