R/plot_gg_ngraph.R

In jjbrehm/BadApple: Functions to simulate bureaucracies

# function to plot an n-graph of the subset of bureaucrats for a given replication, uses igraph

#' plot_gg_ngraph
#'
#' @param imit_obj simulation objecct
#' @param repl_num integer
#'
#' @return ggplot object
#' @import ggraph
#' @export
#'
plot_gg_ngraph <- function(imit_obj, repl_num) {
  obrecord <- imit_obj$ObstyRecord
  obrecord <- array(obrecord[obrecord[,1] == repl_num, 2:(1+imit_obj$NumBurs)], dim=c(imit_obj$NumBurs, imit_obj$NumBurs))

  obsrecord.g <- graph_from_adjacency_matrix(obrecord,diag=FALSE, mode="undirected")
  ggraph(create_layout(obsrecord.g, layout="circle")) +
    geom_edge_link() + geom_node_label(aes(label = 1:(imit_obj$NumBurs)))
}