This is a visualization of the Dolphin Social network dataset from the UCI Network Data Repository:
https://networkdata.ics.uci.edu/data.php?id=6

I exaggerated the size of the circles (nodes) in order to display the highly connected dolphins more easily. Each node is a dolphin. I only included the names of the top 5 dolphins, as including all the others would have made the chart more difficult to read.

It is clear that there is one dolphin “Grin” who is the boss and 3 or 4 others who are also highly connected. Most everyone else is similarly connected except for a few loners.

# Dolphin Network
library(multiplex)
library(igraph,warn.conflicts = FALSE)
library(scales)
setwd("~/Desktop/Courses/Coursera/Data Visualization/Network/dolphins")

dolphins=read.gml("dolphins.gml", as = "srt",directed = FALSE)

Dnet = graph.data.frame(dolphins, directed=FALSE)

Ddeg = degree(Dnet, mode="all")
Dexp=Ddeg^5
Dscaled=rescale(Dexp, to=c(2.5,25))

V(Dnet)$size = Dscaled

layout = layout.reingold.tilford(Dnet, circular=TRUE)

plot(Dnet, layout=layout,vertex.label=NA,main="\n\n\nDolphin Colony Network")
text(.24,-0.26,"Grin",cex=.8)
text(.168,-0.46,"Scabs",cex=.6)
text(.48,-0.645,"Topless",cex=.8)
text(0,-0.26,"SN4",cex=.8)
text(.288,-0.69,"Trigger",cex=.6)