# 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)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.