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