R/network_plot.R

In Chang-Yu-Chang/MigrationCommunity: Microbial Consumer-Resource Model

#' Plot competitive network
#' @description Plot the competitive network
#' @name network_plot
#' @param network igraph object generated by `network_make()`
<<<<<<< HEAD
#' @return ...

network_plot <- function(network) {
  plot.igraph(network,
    main = "",
    vertex.size = 30, vertex.color = "grey80", vertex.label = "",
    edge.arrow.size = .5, edge.arrow.width = 1.5,
    edge.width = 2, edge.color = E(network)$edge.color,
    layout = do.call("layout_in_circle", list(network))
  )
=======
#' @param title figure title
#' @return 
#' @examples
#' 
#' @export
#' @import igraph


network_plot <- function(network, title) {
  plot.igraph(network, main = title, 
              vertex.size = 30, vertex.color = "grey80", vertex.label = "", 
              edge.arrow.size = .5, edge.arrow.width = 1.5, 
              edge.width = 2, edge.color = E(network)$edge.color, 
              layout = do.call("layout_in_circle", list(network)))
>>>>>>> 381875eedd7472bfbaf2cfd62d780ca03ff9b601
}