I would like to generate a network graph for a network-based model in R which shows connected individuals

Question

#Install packages    
#library(EpiILM)    
library(deSolve)    
#library(Rdpack)    
#library(gbRd)    
library(igraph)    
library(ergm)    
#library(doMC)    
#lib