#knitr::opts_chunk$set(collapse = TRUE, comment = "#>", width = 68) knitr::opts_chunk$set(fig.cap = "", fig.path = "Plot") knitr::opts_chunk$set(fig.align = "center") options(width = 68, cli.unicode = FALSE, cli.width = 68) #par(mai=c(2.82, 2.82, 0.82, 0.82)-0.82) par(mar=c(7, 10, 4, 2) + 0.1) par(bty="o") #captioner::captioner(prefix = "Fig.")
Summary
Guide on how to plot directed graphs from igraph
objects to display activating and repressive states.
Package
graphsim 1.0.0
Here we demonstrate the plotting functions that come built-in with graphsim
, an alternative to the plot.igraph
provided by the igraph
package. Here we provide additional functionality for plotting directed graphs. This draws upon many functions provided by igraph
, including layout settings (Csardi and Nepusz 2006).
In particular, graph and network representations in biology often require displaying edge properties (Barabási and Oltvai 2004). Here we have the "state" parameter which can be used to differentiate these, and allow us to represent activating and inhibiting or repressing relationships differently. We use different arrowheads as per convention in molecular biology.
To generate these plots, the following packages must be imported.
library("igraph") library("scales") library("graphsim")
Here we demonstrate the plot functions on a small toy graph.
First we generate a graph object using the igraph
package.
graph_edges <- rbind(c("A", "C"), c("B", "C"), c("C", "D"), c("D", "E"), c("D", "F"), c("F", "G"), c("F", "I"), c("H", "I")) graph <- graph.edgelist(graph_edges, directed = TRUE)
We next demonstrate the plotting function for directed graph objects. plot_directed
with default settings uses the layout.fruchterman.reingold
as does built-in plotting function igraph::plot.igraph
. This function provides additional functionality to displaying directed graphs in particular.
plot_directed(graph)
Here you can see that the plotting function displays a graph in a similar layout to plot.igraph
with different aesthetic parameters. We suggest that you choose the function that suits your needs and datasets. We demonstrate the features available for plot_directed
below.
We support various aesthetic parameters to control the colour and relative size of nodes and edges.
plot_directed
supports customised layouts:
plot_directed(graph, layout = layout.kamada.kawai)
In addition, custom colouts are supported:
plot_directed(graph, fill.node = "lightblue", border.node = "royalblue")
Colours may also be entered as a vector for each node in V(graph)
:
names(V(graph)) colour_vector <- ifelse(names(V(graph)) %in% c("A", "D", "I"), 1, 2) plot_directed(graph, fill.node = c("lightblue", "grey")[colour_vector], border.node = c("royalblue", "black")[colour_vector])
This functionality allows highlighting of particular groups based on known properties of the graph. For examples V(graph)$type
for bipartite graphs or partitions from Louvain (igraph::cluster_louvain
) or Leiden (leiden::leiden
) clustering algorithms.
The state
parameter controls whether the links are "activating" or "inhibiting". These can denote activation and repression: foe example, positive and negative regulation of genes or kinase and phosphatase activity of proteins. These may be specified globally as either a character string or numeric:
Activating links are displated with any of the following:
1
0
plot_directed(graph, state = "activating")
Note that activating states can also be specified as follows:
plot_directed(graph, state = 1) plot_directed(graph, state = 0)
Inhibiting links are displated with any of the following:
-1
2
plot_directed(graph, state = "inhibiting")
Note that inhibiting states can also be specified as follows:
plot_directed(graph, state = -1) plot_directed(graph, state = 2)
The state parameter may also be applied as a vector to each edge in E(graph)
respectively.
E(graph) plot_directed(graph, state = c(1, 1, -1, -1, 1, -1, 1, -1))
Note that by default, inhibiting relationships are highlighted with a different col.arrow
value, which can be controlled by the input parameter.
edge_properties <- c(1, 1, -1, -1, 1, -1, 1, -1)/2 + 1.5 plot_directed(graph, state = edge_properties, col.arrow = c("darkgreen", "red")[edge_properties])
edge_properties <- c(1, 1, -1, -1, 1, -1, 1, -1)/2 + 1.5 ggplot_colours <- c("#F8766D", "#CD9600", "#7CAE00", "#00BE67", "#00BFC4", "#00A9FF", "#C77CFF", "#FF61CC") plot_directed(graph, state = edge_properties, col.arrow = ggplot_colours, fill.node = ggplot_colours)
Here we demonstrate using the plotting package to display real biological pathways from the "Reactome" database (Croft et al. 2014). We can import these from the data
directory included with this package. These graphs are given for examples and convenience. Any empirical data that consists of a list of directed edges can be imported as an igraph object and handled similarly. Below are some demonstrations.
Here we plot the RAF/MAP kinase cascade pathway.
graph <- identity(RAF_MAP_graph) plot_directed(graph,col.arrow = alpha("#00A9FF", 0.25), fill.node = "lightblue", layout = layout.kamada.kawai)
Here we plot the phosphoinositide-3-kinase (Pi3K) cascade pathway.
graph <- identity(Pi3K_graph) plot_directed(graph, col.arrow = alpha("#00A9FF", 0.25), fill.node = "lightblue", layout = layout.kamada.kawai)
Here we plot the TGFβ-Smad pathway with inhibitions known. States are imported as edge attributes from the imported graph.
graph <- identity(TGFBeta_Smad_graph) edge_properties <- E(graph)$state plot_directed(graph, state = edge_properties, col.arrow = c(alpha("navyblue", 0.25), alpha("red", 0.25))[edge_properties], fill.node = c("lightblue"), layout = layout.kamada.kawai)
Here is the output of sessionInfo()
on the system on which this document was compiled running pandoc 2.1:
sessionInfo()
Barabási, A. L., and Oltvai, Z. N. 2004. “Network Biology: Understanding the Cell’s Functional Organization.” Nat Rev Genet 5 (2): 101–13.
Croft, D., Mundo, A.F., Haw, R., Milacic, M., Weiser, J., Wu, G., Caudy, M., et al. 2014. “The Reactome pathway knowledgebase.” Journal Article. Nucleic Acids Res 42 (database issue): D472–D477. https://doi.org/10.1093/nar/gkt1102.
Csardi, G., and Nepusz, T. 2006. “The Igraph Software Package for Complex Network Research.” InterJournal Complex Systems: 1695. https://igraph.org/.
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.