#' @title ITN Plots
#'
#' @description This function creates a panel of four plots of the ITN for a quick inspection.
#' Thes include plots: (i) highlighting clusters using the fast greedy algorithm.(ii)node colours for commnities detected using the spinglass algorithm.
#' (iii)nodes coloured by regional partition and (iv)with nodes coloured by regional partition and node size based on outdegree centrality.
#' @param gs International Trade Network - igraph object
#' @export
#' @return Panel of ITN plots
#' @examples\donttest{
#' ##Load the network
#' data(ELEnet16)
#'
#' ##Plot set of network visualisations
#' ITNplotset(ELEnet16)
#'
#'}
ITNplotset<-function(gs){
graphics::par(mfrow=c(2,2))
igraph::V(gs)$vertex.label<-NA
cfg <- igraph::cluster_fast_greedy(igraph::as.undirected(gs))
mem<-as.vector(igraph::membership(cfg))
igraph::V(gs)$cluster.fast.greedy.mem<-mem
graphics::plot(cfg,igraph::as.undirected(gs), edge.arrow.size=0,vertex.label=NA,
layout=igraph::layout.fruchterman.reingold,vertex.size=10,
main = "Cluster Fast Greedy ITN Plot")
CSC<-igraph::cluster_spinglass(gs)
CSCmem<-CSC$membership
igraph::V(gs)$spinglass.com<-CSCmem
graphics::plot(gs,vertex.label=NA,vertex.size=10,edge.arrow.size=0,
edge.width=igraph::E(gs)$weight,
layout=igraph::layout.fruchterman.reingold,
vertex.color=igraph::V(gs)$spinglass.com,
main="Spinglass ITN Plot")
graphics::plot(gs,vertex.label=NA,vertex.size=10,edge.arrow.size=0,
edge.width=igraph::E(gs)$weight,
layout=igraph::layout.fruchterman.reingold,
vertex.color=igraph::V(gs)$region,
main="Region ITN Plot")
graphics::plot(gs,vertex.label=NA,vertex.size=(igraph::degree(gs, mode="out")/2),
edge.arrow.size=0,edge.width=igraph::E(gs)$weight,
layout=igraph::layout.sphere,vertex.color=igraph::V(gs)$region,
main="Region ITN Plot - Node Size Outdegree")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.