R/netword-plotting.R

In nandsh11/CausalNets:

#' plot network
#'
#' @param mylinks data.frame with 3 columns; from, to and component
#'
#' @return a plot of the network
#' @importFrom graphics plot
#' @export
netplot_jm = function(mylinks) {

  if (!requireNamespace('igraph', quietly = TRUE)) {
    stop('igraph is required. Please install with `install.packages("igraph")`')
  }

  #mynodes = unique(c(mylinks[,"from"], mylinks[,"to"]))
  #mynodes = mynodes[order(mynodes)]
  # mynet = igraph::graph.data.frame(mylinks, vertices=mynodes, directed=T) # igraph
  # plot(mynet, edge.arrow.size=.4, edge.color="grey50",
  #      vertex.color="gold", vertex.frame.color="darkred",
  #      vertex.label=igraph::V(mynet), vertex.label.color="black")

  #actors <- data.frame(mynodes)
  links <- data.frame(
    source=mylinks[,"node.source"],
    target=mylinks[,"node.sink"]
  )

  g <- igraph::graph_from_data_frame(links, directed=TRUE)
  print(g, e=TRUE, v=TRUE)
  #l <- layout_with_fr(g)
  plot(g, edge.arrow.size=0.1, edge.color="grey50",
       vertex.color="gold", vertex.frame.color="darkred",
        vertex.label.color="black",
       vertex.size=30,vertex.label.dist=2,
       vertex_shape = "rectangle")
  #
  #tkplot(g)
  #igraph::rglplot(g)
}