Assignment 6: Network Plots

# Read the CSV
data <- read.csv("network_data.csv")
# Display the first few rows
head(data)

# Make it interactive
library(igraph)
library(visNetwork)

Warning: package 'visNetwork' was built under R version 4.4.3

# Create a data frame for nodes
nodes <- data.frame(id = V(g)$name, group = V(g)$type)
# Create a data frame for edges
edges <- data.frame(from = as.character(get.edgelist(g)[, 1]),
                     to = as.character(get.edgelist(g)[, 2]))

Warning: `get.edgelist()` was deprecated in igraph 2.0.0.
ℹ Please use `as_edgelist()` instead.

# Create the network
visNetwork(nodes, edges) %>%
  visEdges(arrows = "to") %>%
  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE) %>%
  visLayout(randomSeed = 123)