2 Packages

install.packages("igraph") 
install.packages("network") 
install.packages("sna")
install.packages("visNetwork")
install.packages("threejs")
install.packages("networkD3")
install.packages("ndtv")

3 Data

library(readr)
nodes <- read_csv("https://raw.githubusercontent.com/kateto/R-Network-Visualization-Workshop/master/Data%20files/Dataset1-Media-Example-NODES.csv")
links <- read_csv("https://raw.githubusercontent.com/kateto/R-Network-Visualization-Workshop/master/Data%20files/Dataset1-Media-Example-EDGES.csv")
head(nodes)
head(links)

4 Creating an iGraph object

library("igraph")
net <- graph_from_data_frame(d=links, vertices=nodes, directed=T) 
net

  • d
    describes the edges of the network. Its first two columns are the IDs of the source and the target node for each edge. The following columns are edge attributes (weight, type, label, or anything else).

  • vertices
    starts with a column of node IDs. Any following columns are interpreted as node attributes. This parameter can be omitted - in that case theigraph object will be generated based solely on the link structure in d.

E(net)       # The edges of the "net" object
V(net)       # The vertices of the "net" object
E(net)$type  # Edge attribute "type"
V(net)$media # Vertex attribute "media"

# Find nodes and edges by attribute:
# (that returns oblects of type vertex sequence/edge sequence)
V(net)[media=="BBC"]
E(net)[type=="mention"]

# You can also accesss the network matrix directly:
net[1,]
net[5,7]
plot(net)

5 Change design

# Generate colors based on media type:
colrs <- c("gray50", "tomato", "gold")
V(net)$color <- colrs[V(net)$media.type]

# Compute node degrees (#links) and use that to set node size:
deg <- degree(net, mode="all")
V(net)$size <- deg*3
# We could also use the audience size value:
V(net)$size <- V(net)$audience.size*0.6

# The labels are currently node IDs.
# Setting them to NA will render no labels:
V(net)$label <- NA

# Set edge width based on weight:
E(net)$width <- E(net)$weight/6

#change arrow size and edge color:
E(net)$arrow.size <- .2
E(net)$edge.color <- "gray80"

# We can even set the network layout:
graph_attr(net, "layout") <- layout_with_lgl
plot(net)

6 Data 2

library(readr)
nodes2 <- read_csv("https://raw.githubusercontent.com/kateto/R-Network-Visualization-Workshop/master/Data%20files/Dataset2-Media-User-Example-NODES.csv")
links2 <- read_csv("https://raw.githubusercontent.com/kateto/R-Network-Visualization-Workshop/master/Data%20files/Dataset2-Media-User-Example-EDGES.csv")
## Warning: Missing column names filled in: 'X1' [1]

7 Network layouts