The way I would do this is to plot the density of the connectivity, and overlay the plot with the top 10 points.
Assuming you have the connectivity of all nodes already:
d <- density(connectivity)
top10 <- sort(connectivity, decreasing=TRUE)[1:10]
# get the height of the density for each of the top10 nodes:
top10y <- sapply(top10, function(node) {
diffs <- abs(node - d$x)
yloc <- which(diffs == min(diffs))[1] # in case more than one match
d$y[yloc]
})
# now plot
plot(d)
points(top10, top10y, col="red")
For example I've simulated the connectivity of 1000 nodes to follow a normal distribution: