#plotSet.R
#Purpose:Plots set up
#Version:1.0
#Date:October 8th, 2018
#Author:Doga Ister
#
#Dependencies: N/A
# =============================================================================
#' plotSet
#'
#' This file sets the required variables for plot
#'
#' @importFrom graphics plot
#'
#' @return None
# === Libraries that are used ===#
igraphLib <- library(igraph)
# Using igraph's properties to define lines and nodes for the plot
networkPlot <- graph_from_data_frame(d = links, vertices = nodes, directed = T)
# Get rid off self loops and duplicates
networkPlot <- simplify(networkPlot, remove.multiple = F, remove.loops = T)
# make the reaction nodes orange, protein nodes steelblue
mycolours <- c("steelblue", "orange")
# color them according to their type
V(networkPlot)$color <- mycolours[V(networkPlot)$node.group]
# [END]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.