# EXAMPLE 1: Authors collaboration network
library(igraph)
data(scientometrics)
NetMatrix <- biblioNetwork(scientometrics, analysis = "collaboration",
network = "authors", sep = ";")
netDegree <- 2
diag <- Matrix::diag
NetMatrix <- NetMatrix[diag(NetMatrix) >= netDegree,diag(NetMatrix) >= netDegree]
diag(NetMatrix) <- 0
bsk.network <- graph.adjacency(NetMatrix,mode = "undirected")
plot(bsk.network,layout = layout.fruchterman.reingold, vertex.label.dist = 0.5,
vertex.frame.color = 'blue', vertex.label.color = 'black',
vertex.label.font = 1, vertex.label = V(bsk.network)$name, vertex.label.cex = 0.7)
# EXAMPLE 2: Co-citation network
library(igraph)
data(scientometrics)
NetMatrix <- biblioNetwork(scientometrics, analysis = "co-citation",
network = "references", sep = ";")
netDegree=10
diag <- Matrix::diag
NetMatrix <- NetMatrix[diag(NetMatrix) >= netDegree,diag(NetMatrix) >= netDegree]
diag(NetMatrix) <- 0
bsk.network <- graph.adjacency(NetMatrix,mode = "undirected")
plot(bsk.network,layout = layout.fruchterman.reingold, vertex.label.dist = 0.5,
vertex.frame.color = 'blue', vertex.label.color = 'black',
vertex.label.font = 1, vertex.label = V(bsk.network)$name, vertex.label.cex = 0.7)
Run the code above in your browser using DataLab