Real case application: The dolphin network

Data overview and Modify the graph:

vertex.size/shape/label/color edge.arrow/size/shape

arrow.size == 0: undirected graph

g <- graph.data.frame(dolphin)
g
## IGRAPH 3c80afb DN-- 62 159 -- 
## + attr: name (v/c)
## + edges from 3c80afb (vertex names):
##  [1] 4 ->9  6 ->10 7 ->10 1 ->11 3 ->11 6 ->14 7 ->14 10->14 1 ->15 4 ->15
## [11] 1 ->16 15->17 2 ->18 7 ->18 10->18 14->18 16->19 2 ->20 8 ->20 9 ->21
## [21] 17->21 19->21 19->22 18->23 15->25 16->25 19->25 18->26 2 ->27 26->27
## [31] 2 ->28 8 ->28 18->28 26->28 27->28 2 ->29 9 ->29 21->29 11->30 19->30
## [41] 22->30 25->30 8 ->31 20->31 29->31 18->32 10->33 14->33 13->34 15->34
## [51] 17->34 22->34 15->35 34->35 30->36 2 ->37 21->37 24->37 9 ->38 15->38
## [61] 17->38 22->38 34->38 35->38 37->38 15->39 17->39 21->39 34->39 37->40
## [71] 1 ->41 8 ->41 15->41 16->41 34->41 37->41 38->41 2 ->42 10->42 14->42
## + ... omitted several edges
plot(g,vertex.size = 5, layout = layout.fruchterman.reingold, vertex.shape = 'circle',
     vertex.label.cex = 1.0, vertex.label.color = 'black', edge.arrow.size = 0)

Graph of neibourhood with order = 1

gn <- graph.neighborhood(g, order = 1)
gn[1]
## [[1]]
## IGRAPH 3c9a2af DN-- 4 4 -- 
## + attr: name (v/c)
## + edges from 3c9a2af (vertex names):
## [1] 4->15 4->9  4->60 9->60
plot(gn[[1]], layout = layout.fruchterman.reingold,edge.arrow.size = 0)

Graph of neibourhood with order = 2

Two relations with order 1

gn <- graph.neighborhood(g, order = 1)
gn[[1]] + gn[[2]]
## IGRAPH 3d260c0 DN-- 9 11 -- 
## + attr: name (v/c)
## + edges from 3d260c0 (vertex names):
##  [1] 14->58 10->58 10->14 6 ->58 6 ->57 6 ->14 6 ->10 9 ->60 4 ->60 4 ->9 
## [11] 4 ->15
plot(gn[[1]] + gn[[2]], layout = layout.fruchterman.reingold,edge.arrow.size = 0)

Curve edge and color

source("http://michael.hahsler.net/SMU/ScientificCompR/code/map.R")
E(g)$curved <- 0.2
layout=layout.fruchterman.reingold
plot(g, layout=layout, edge.arrow.size = 0, vertex.size=map(degree(g),c(1,20)), vertex.color=map(degree(g),c(1,20)))

Commutity

cl <- optimal.community(g)
E(g)$cirved <- 0
layout = layout.fruchterman.reingold
plot(g, layout=layout, edge.arrow.size = 0, vertex.size=5, vertex.color= rainbow(10, .8, .8, alpha=.8)[cl$membership+1L])

Membership

sg1 <- cluster_spinglass(g, spins = 3, gamma = 1.0)
layout = layout.fruchterman.reingold
subg <- induced.subgraph(g, which(membership(sg1)==1))

plot(subg, layout=layout, vertex.size=5, vertex.color= 1, edge.arrow.size = 0)

layout: Circle

sg1 <- cluster_spinglass(g, spins = 3, gamma = 1.0)
layout = layout.circle
subg <- induced.subgraph(g, which(membership(sg1)==1))

plot(subg, layout=layout, vertex.size=5, vertex.color= 1, edge.arrow.size = 0)

layout: sphere

sg1 <- cluster_spinglass(g, spins = 3, gamma = 1.0)
layout = layout.sphere
subg <- induced.subgraph(g, which(membership(sg1)==1))

plot(subg, layout=layout, vertex.size=5, vertex.color= 1, edge.arrow.size = 0)