A variation on the previous experiment. This time, eigenvector centrality is used to control the distance of the nodes from the origin (the closer to the origin, the more central the node). Please note that, even if depicted, the weight of links is not considered when computing a node's centality.
The result seems not so informative, but it should be tested with a greater number of nodes.
The following R script, adapted from this post, was used to compute the centrality measure:
library(network)
src <- c("A", "A", "A", "A", "A", "B", "B", "B", "B", "C", "C", "D", "D", "E")
dst <- c("B", "C", "D", "F", "G", "D", "E", "F", "G", "D", "E", "E", "F", "F")
edges <- cbind(src, dst)
Net <- as.network(edges, matrix.type = "edgelist", directed=FALSE)
EV <- eigen(as.matrix(Net))
centrality <- data.frame(EV$vectors[,1])
centrality = abs(centrality)
names(centrality) <- "Centrality"
print(centrality)
xxxxxxxxxx
<html>
<head>
<meta charset="utf-8">
<meta name="description" content="Node-link polar layout with centrality" />
<title>Node-link polar layout with centrality</title>
<link type="text/css" href="index.css" rel="stylesheet"/>
<script src="https://d3js.org/d3.v3.min.js"></script>
</head>
<body>
<svg height="500" width="960"></svg>
<script src="index.js"></script>
</body>
</html>
Modified http://d3js.org/d3.v3.min.js to a secure url
https://d3js.org/d3.v3.min.js