Rnets Vignette

WJ Love

2018-09-10

Introduction

This package provides a mostly automated analysis pipeline for translating antimicrobial resistance (AMR) data from bacterial populations into network models. Representing resistance relationships as networks facilitates visualization and understand of this multivariate data and opens up a novel set of analytic approaches. The focus of the package is to leverage existing and accessible phenotypic resistance data from clinical antimicrobial susceptibility testing (AST) to identify correlated resistances. Correlations with other factors, e.g., patient characteristics and additional isolate details, can also be included in the networks.

Networks and Sparsity

The networks models created by this package are probabalistic graphical models (PGMs), more specifically Markov random fields (MRF). MRFs are undirected graphical models where the vertex set is defined by a set of random variables and the edge set is defined by non-zero partial correlations between variables in the dataset. Sparse MRFs of AMR data are resistance relationship network models, which is shorted to ‘R-nets’. The R-nets represent the estimated correlations in resistances across the population from which the AST results were drawn.

Sparsity is a concept in network models desribing how many or how few links, or edges, exist between the units, or vertices, of the network. A network in which all possible edges exist is referred to as dense. Sparsity is an appealing characteristic because sparse networks are much easier to interpret than completely dense networks. An MRF may be made sparse by reducing trivially small partial correlations to 0. Several approaches to this problem have been described, and we employ here the graphical least absolute shrinkage and selection operator (gLASSO). This method applies an L1 penalty when estimating the inverse covariance matrix (also refered to as the ‘precision matrix’) to increase it’s sparsity. Higher L1 values leads to fewer edges and a sparser network and the graph is empty when \(L_1 \geq max(|\sigma_{ij}|)\), i.e., there a no edges and all the variables appear to be conditionally independent.

The analysis pipeline can be summarized as follows: \[\Large D_{n \times k} \underset{cor}{\rightarrow} \Sigma_{k \times k} \underset{glasso}{\rightarrow} \Theta_{k \times k} \underset{std'ize}{\rightarrow}\Omega_{k \times k} \underset{igraph}{\rightarrow}R(V, E)\] Where…

The MRF can be thought of as a convenient way of visualizing the penalized \(\Omega\). The estimated structure is conditional on the selected L1. L1Selection() discussed below uses a resampling and stability method assist in selecting an L1 penalty objectively.

In an R-net, phenotypical resistances and other cofactors are represented as vertices, i.e., the observed MICs and cofactors are the random variables in the dataset represented by the R-net. The edges in an R-net represent resistances (or other cofactors) that have non-zero correlations after accounting for all the other covariances in the data. The significance of the non-zero partial correlations are that selecting for one resistance may indirectly select for the correlated resistance. For example, if AMP–TET edge is found to have \(\omega \geq 0\) for a population of bacteria, it indicates that environments that select for increased AMP, e.g., therapeutic use of ampicillin, may indirectly select for increased TET as well.

Under the hood

Rnets relies heavily on the glasso and igraph packages. glasso, maintained by R. Tibshirani1, provides the eponymous function for estimating sparse precision matrices. igraph is one of the most popular libraries on CRAN for working with network data and was developed by Gabor Csardi and Tamas Nepusz2. Rnets makes extensive use of the resources in igraph to store, analyze, and manipulate the estimated MRFs.

Using the Rnets package

This package is designed to intake processed AST results and return usable networks for further analysis. The work flow in R can be generalized

  1. Import and process AMR data (This is outside the scope )
  2. Use L1selection() or another method to select appropriate penalty
  3. Use Rnet() to estimate the MRF structures
  1. Visualize and analyze the R-nets

Example data

The example dataset NARMS_EC_DATA is included in the package and contains a subset of AMR data from E. coli isolates collected by the FDA & USDA as part of the National Antimicrobial Resistance Monitoring System3.

Notes on data processing and analysis

Due to the variety of storage formats for AMR data, data preparation is beyond the scope of Rnets. Typically, MIC results from AST will be reported with an inequality sign and a numeric value, e.g., = 16 or > 4. The functions in Rnets require only numeric values, so some degree of editing will often be required to make AST results usable. For entries preceeded by =, <, or <=, we suggest simply trimming the sign. However, > and >= indicate that the MIC was in excess of highest tested concentation. Therefore, an MIC reported as > 4 represents a greater resistance than = 4. In these cases, we suggest doubling MIC values reported as > or >=, e.g. > 4 is transformed to 8 for analysis. Doubling the MIC aims to represent the higher resistance as being in the next higher two-fold concentration that was not tested.

We suggest using the non-parametric estimators for correlation such as Kendall’s \(\tau_b\) or Spearman’s \(\rho\) to estimate \(\Sigma\) instead of Pearson’s method. The gLASSO method was orignally described for Gaussian data, but MICs rarely conform to a normal distribution. Therefore using Pearson’s method, which assumes Gaussianity, to estimate \(\Sigma\) may result in biased results. The non-parametric rank-based estimators have been shown to produce less biased with gLASSO when the underlying data is not Gaussian. The user can choose any of the three methods to estimate \(\Sigma\), but Rnet() defaults to Spearman’s (Rnet(..., cor_method = 's')) and Kendall’s \(\tau_b\) (Rnet(..., cor_method = 'k')) is suggested when some of the variables are binomial. When parametric tests are needed, we suggest using a log2(MIC) transformation to reduce skewness.

Penalty Selection

Several methods have been proposed to select the ‘appropriate’ L1 penalty, represented by \(\lambda\), to induce sparsity in MRFs. In general, \(\lambda\) should be high enough to remove trivially small partial correlations while leaving intact stronger partial correlations that are presumbly caused by genetic associations. L1Selection implements the StARS method described by Liu, Roeder, and Wasserman (2010)4. Briefly, this method estimates MRFs using multiple subsets sampled without replacement from the empirical data over a range of \(\lambda\) values. Individual edges/partial correlations from the subset-derived MRFs are evaluated for stability (defined as the std. deviation of the proportion of subsets in which they appear), and a score D is assigned for each tested value of \(\lambda\) based on the sum of stabilities for all edges over all subsets given the respective penalty. The suggested \(\lambda\) value is the lowest value for which D is below some threshold, typically 0.05. The goal is to find the densest network that is also stable across most data subsets.

L1Selection defaults to a subsample size n_b of half the dataset, but smaller subsamples are typically appropriate. Liu, Roeder, and Wasserman suggest \(n_b = 10\sqrt{n}\). n_b can be set to a proportion of the sample size by setting n_b < 1 or as a set number of individuals with 1 < n_b < n.

EC_all_L1Selection <- L1Selection(
            x = NARMS_EC_DATA, 
            L1_values = seq(0.05, 0.45, 0.05),
            n_b = 1500,
            vert = ABX_LIST,
            verbose = F
            )
## 
## L1Selection completed 900 loops over 100 subsets. (32s elapsed).
summary(EC_all_L1Selection)
## 
## Stability Approach for Regularization Selection (StARS) results
## 
## D_b by L1
##   0.05    0.1   0.15    0.2   0.25    0.3   0.35    0.4   0.45 
## 0.2526 0.1058 0.0548 0.0522 0.0285 0.0068 0.0088 0.0147 0.0195 
## 
## Suggested Penalty: 0.25 
## (Minimum penalty that produced D < 0.05 for penalties > L1_max(D) )
## 
## 
## Presences of Edges
##           E   0.05    0.1   0.15    0.2   0.25    0.3   0.35    0.4   0.45
## 1  AMC--AXO   100%   100%   100%   100%   100%   100%   100%   100%   100%
## 2  AMC--AZI    75%    58%    39%    17%     5%     2%                     
## 3  AMC--CIP    29%     4%                                                 
## 4  AMC--GEN    52%     5%                                                 
## 5  AMC--TET   100%    94%    28%                                          
## 6  AMC--TIO   100%   100%   100%   100%   100%   100%   100%   100%   100%
## 7  AXO--AZI    74%    15%                                                 
## 8  AXO--CHL    85%                                                        
## 9  AXO--CIP    55%    11%                                                 
## 10 AXO--STR     5%                                                        
## 11 AXO--TIO   100%   100%   100%   100%   100%   100%   100%   100%   100%
## 12 AZI--CHL   100%   100%   100%   100%   100%    96%    82%    43%    15%
## 13 AZI--CIP    43%    17%     2%                                          
## 14 AZI--GEN    75%    35%    15%     4%                                   
## 15 AZI--STR    42%    13%     2%                                          
## 16 AZI--TET    39%     8%     2%                                          
## 17 AZI--TIO    95%    90%    74%    53%    24%     7%     1%              
## 18 CHL--CIP    80%    23%     1%                                          
## 19 CHL--GEN    36%     2%                                                 
## 20 CHL--TIO   100%   100%    99%    82%    11%                            
## 21 CIP--TET    46%     1%                                                 
## 22 GEN--STR   100%   100%   100%   100%   100%   100%   100%    98%    34%
## 23 GEN--TET   100%   100%    91%    38%     2%                            
## 24 STR--TET   100%   100%   100%    85%    21%                            
## 25 TET--TIO    33%    10%     1%                                          
## 26 AMC--CHL    55%    30%     6%                                          
## 27 AXO--GEN    30%                                                        
## 28 CHL--STR    73%     7%                                                 
## 29 CHL--TET    59%     3%                                                 
## 30 CIP--STR    17%                                                        
## 31 CIP--TIO    41%     5%                                                 
## 32 AXO--TET     9%                                                        
## 33 AMC--STR     4%                                                        
## 34 CIP--GEN     4%                                                        
## 35 STR--TIO     1%                                                        
## 36 GEN--TIO     2%                                                        
## 
##   Max(|E|)
##                 36     27     18     11     10      7      6      5      5

Given these results, the suggested regularization penalty would be \(\lambda\) = 0.15, since StARS_D > 0.05 at \(\lambda\) = 0.10.

NOTE: The resampling approach can be time consuming large datasets, i.e. datasets with many observations or many variables.

Network Estimation

Rnet() is the core function of this package. This function intakes a data.frame containing the AMR data, the L1 penalty, and other options and produces one of several object classes containing the processed network and associated attributes (the specific class is determined by the specification of the option subset argument).

Basic Rnets

The simplest way to use Rnet() is to not specify the optional argument subset, in which case a single MRF is estimateed using all rows of x. This creates an S4 object of class rnetBasic.

#Estimate the Rnet
EC_all_Rnet <- Rnet(x = NARMS_EC_DATA, L1 =  0.15, vert = ABX_LIST)
                
#View Results
summary(EC_all_Rnet)
## 
## Basic R-net 
##  
##  Sample: 14418 isolates, 9 vertices 
##  
##      L1: 0.15 
##   Edges: 9 
## Density: 25 % 
## 
## Vertex set: AMC AXO TIO CIP TET STR GEN CHL AZI 
##  
##   Edge set: 
##    V1  V2 Omega
## 1 AMC AXO 0.253
## 2 AMC TIO 0.296
## 3 AXO TIO 0.281
## 4 AZI CHL 0.214
## 5 AZI TIO 0.040
## 6 CHL TIO 0.046
## 7 GEN STR 0.249
## 8 GEN TET 0.027
## 9 STR TET 0.060

Subset Rnets

Seperate subpopulations in the data may have different partial correlation structures, in which case an Rnet should be estimated using only observations from that subpopulation. To estimate the network for a single subpopulation, the optional argument subset should be defined as an expression which describes the subpopulation. For example, to create an Rnet for the isolates from 2008, Rnet(..., subset = expression(Year == 2008)). When subset is an expression, Rnet() returns an rnetSubset object.

EC_2008_Rnet <- Rnet(x = NARMS_EC_DATA, L1 =  0.15, vert = ABX_LIST, subset = expression (Year == 2008))

summary(EC_2008_Rnet)
## 
## R-net (subset data) 
##  
##  Sample: 1292 isolates, 8 vertices (1 vertex omitted)
##  
##      L1: 0.15 
##   Edges: 7 
## Density: 25 % 
## 
## Rnet conditioned on Year == 2008 
## 
## Vertex set: AMC AXO TIO CIP TET STR GEN CHL 
##  
##   Edge set: 
##    V1  V2 Omega
## 1 AMC AXO 0.263
## 2 AMC TIO 0.342
## 3 AXO TIO 0.295
## 4 CHL TIO 0.074
## 5 GEN STR 0.349
## 6 GEN TET 0.069
## 7 STR TET 0.106
## 
## Omitted Vertices: AZI

Stratified Rnets

It is possible to create multiple R-nets with a single function call. To do so, the subset argument can be defined as a character string that matches a value of names(x) (Rnet(x, ..., subset = 'column_name'). In this case Rnet() will estimate a seperate Rnet for each unique level of x$column_name, and will return an object of class rnetStrata.

EC_byYear_Rnet <- Rnet(x = NARMS_EC_DATA, L1 =  0.15, vert = ABX_LIST, subset = 'Year')

summary(EC_byYear_Rnet)
## 
##    Stratfied R-net 
##  
##  Stratified by: Year 
##     L1 Penalty: 0.15 
##  
## Strata Summary:
##           2004  2005  2006  2007  2008  2009  2010  2011  2012
## Total n   2097  2625  1775  1809  1292  1191  1298   955  1376
## Vertices     8     8     8     8     8     8     8     9     9
## Edges        6     7     7     8     7     7     6     7    12
## 
## 
## Edges:
##           2004   2005   2006   2007   2008   2009   2010   2011   2012 
## AMC--AXO  0.228  0.232  0.292  0.239  0.263  0.258  0.244  0.247  0.203
## AMC--TIO  0.285  0.301  0.290  0.341  0.342  0.349  0.309  0.333  0.331
## AXO--TIO  0.261  0.300  0.322  0.258  0.295  0.281  0.276  0.265  0.237
## CHL--TIO  0.080  0.030  0.069  0.125  0.074  0.054  0.047         0.072
## GEN--STR  0.262  0.270  0.196  0.262  0.349  0.253  0.209  0.259  0.283
## STR--TET  0.053  0.069  0.060  0.033  0.106  0.065         0.051  0.073
## GEN--TET         0.001  0.056  0.048  0.069  0.055  0.042         0.004
## AMC--TET                       0.002                              0.036
## AZI--CHL <NA>   <NA>   <NA>   <NA>   <NA>   <NA>   <NA>    0.211  0.219
## AZI--TIO <NA>   <NA>   <NA>   <NA>   <NA>   <NA>   <NA>    0.006  0.054
## AMC--AZI <NA>   <NA>   <NA>   <NA>   <NA>   <NA>   <NA>           0.022
## AMC--CHL                                                          0.006
## 
## 
## Note: The "Total n" row in the summary refers to the size of dataset. 
##   The number observations used to estimate partial correlations may vary by edge within each stratum. 
##   Stratum-sepcific details can be displayed by calling: summary(rnet.obj@R_set[[1]])

Rnet objects

The results of Rnet(), in addition to the input arguments are stored in the S4 classes rnetBasic, rnetSubset, and rnetStrata. All three output classes inherit from rnetInput, though the user should have reason to interact with this class. The output class returned is determined by the optional subset arugment as discussed above. A complete accounting of the objects’ slots are provided in the help files, but several particularly useful slots for each of the classes are described below.

rnetBasic

The slot rnetbasic.obj@Omega contains the estimated penalized partial correlation matrix, \(\Omega\). This can be used as a weighted adjacency matrix.

The slot rnetbasic.obj@R contains the igraph object representing the estimated MRFs. This slot can be accessed and manipulated like any other igraph object:

The slot rnetbasic.obj@layout contains a matrix of x & y coordinates for placing the vertices for rnetbasic.obj@R. Called by the plot(x) generic method when class(x) = "rnetBasic", but is not used by plot.igraph().

rnetSubset

This class inherits from rnetBasic and gains the @subset slot, which contains the expression used to define the subset.

rnetStrata

rnetStrata does not inherit from either of the two other output classes.

The slot rnetstrata.obj@stratify_by contains the string matching column in x used for stratification.

The slot rnetstrata.obj@R_set is a list of rnetSubset objects. The names of the list’s elements match the value defining the stratum, i.e., names(rnetstrata.obj@R_set) <- unique(x$stratify_by). A specific rnetStrata object in the list can be accessed using rnetstrata.obj@R_set[['subset_val']].

The slot rnetstrata.obj@E_aggr contains a matrix of estimated penalized partial correlation values for each observed edge (rows) in each R-net (columns).

Assigning network attributes

Vertices and edges in igraph objects can be assigned attributes, also referred to metadata. These attributes are useful for plotting decorated graphs (via plot() methods) and network analysis (e.g. igraph::modularity()). When created by Rnet(), the 'igraph' objects in rnetbasic@R have one vertex attribute (name, corresponding to the elements of the vertices argument) and one edge attribute (omega, the edges’ estimated penalized partial corrleation).

Users have the option to access, add to, and remove from an rnet object’s graphical metadata using igraph functions. Examples include:

Assigning each attribute individually can be time-consuming, so Rnets provides Assign_Emetadata and Assign_Vmetadata to more efficiently assign vertex and vertex attributes, respectively. These functions match vertex or edge attributes to a column in a data.frame, and then assign corresponding values as attributes. These methods are useful since the order in which the vertices appear in arguments Rnet(x, ...) or Rnet(..., vertices) may not reflect the order they exist in the 'igraph' object produced.

Assign_Vmetadata()

This method is used to simultaneously assign multiple vertex attributes to an 'igraph' class object, including those stored in rnetbasic@R. The vertex attributes are stored in a data.frame that can be viewed easily. Rnets::V_ATTRS is included as example of attribute table.

Rnets::V_ATTRS[1:10,]
##    Code                       Drug Class      color label.color
## 1   KAN                  Kanamycin AMINO       blue       white
## 2   AMI                   Amikacin AMINO       blue       white
## 3   GEN                 GentamIcin AMINO       blue       white
## 4   STR               Streptomycin AMINO       blue       white
## 5   APR                  Apramycin AMINO       blue       white
## 6   CHL            Chloramphenicol AMPHN  goldenrod       black
## 7   FFN                Florfenicol AMPHN  goldenrod       black
## 8   CEP                Cephalothin B-LAC chartreuse       black
## 9   FOX                  Cefoxitin B-LAC chartreuse       black
## 10  CTC Cefotaxime-Clavulanic acid B-LAC chartreuse       black

The first column contains NARMS’ 3-letter code for the resistance and the other columns include the drug’s full name, a code for the drug class (“AMINO” for aminoglycoside, “FQ” for fluoroquinolones, etc.), a color to use for vertices of each class, and the label text color for the vertex.

We could use a series of four V(rnetbasic.obj@R)$attr or set_vertex_attr() calls (one for each additional attribute to add), but it is more efficient to use Assign_Vmetadata. We will the vertex attribute name( V(rnetbasic.obj@R)$name) to entries V_ATTRS$Code to assign the data. The follwoing code is used to assign characteristics to the EC_2008_Rnet created above.

Assign_Vmetadata(EC_2008_Rnet, V_ATTRS, match_attr = 'Code', V_match_attr = 'name')
##   name                        Drug Class      color label.color
## 1  AMC Amoxicillin-Clavulanic acid B-LAC       cyan       black
## 2  AXO                 Ceftriaxone B-LAC chartreuse       black
## 3  CHL             Chloramphenicol AMPHN  goldenrod       black
## 4  CIP               Ciprofloxacin    FQ        red       black
## 5  GEN                  GentamIcin AMINO       blue       white
## 6  STR                Streptomycin AMINO       blue       white
## 7  TET                Tetracycline TETRA darkviolet       white
## 8  TIO                   Ceftiofur B-LAC chartreuse       black

The function returns a table of the assigned characteristics for transparency. It is unneccesary to include the final argument in this case since V_match_attr defaults to the name attribute, but it is explictly included for clarity. Attibutes can be assigned using other vertex attribues, including those assigned previously with Assign_Vmetadata(x, ...).

Note that the it is not neccesary to define a new object or over-write the original object to assign the new attributes with Assign_Vmetadata. A new object can be created, or the old one redefined, e.g., new_R_obj <- Assign_Vmetadata(EC_2008, V_ATTRS, match_attr = 'Code'. However, the first part of the line new_R_obj <- Assign_Vmetadata can be omitted and the metadata will be added to the object represented by x. This feature is included to reduce redundant code and can be suppressed by including reassign = F as an argument.

Assign_Emetadata()

This method is used to simulataneously assign multiple edge attributes to an igraph network object based on a continuous edge attribute. in rnet objects, the attribute is typically E(rnetbasic@R)$omega, the penalized partial correlation between the two vertices/variables. Again, we include an example data.frame of edge attributes.

Rnets::E_ATTRS
##   lty width
## 1   3     2
## 2   2     2
## 3   2     4
## 4   1     4

This frame is much simpler than V_ATTRS, containing 2 columns and 4 rows, and no obvious column used for matching. Assign_Emetadata() assigns attributes by binning a numerical edge attribute (using cut(abs(E(rnet.obj@R)$match_attr), e_cuts)) and assigning the attribues stored first row of E_ATTRS to edges with E(rnet.obj@R)$match_attr values in the lowest bin, the second row’s values to edges with E(rnet.obj@R)$match_attr in the next lowest bin, and so on.

The e_cuts argument defines the cut points used to bin E(rnet.obj@R)$match_attr. This argument should be a numeric vector which has one more entries than E_ATTRS has rows (i.e., length(e_cuts) == dim(E_ATTRs)[1]), and it is suggested that min(e_cuts) = 0 and max(e_cuts) = 1; errors will be produced when max(abs(rnet.obj@Omega)) > max(abs(e_cuts)). E_metadata() will, by default, bin the absolute value of match_attr (abs(E(rnet.obj@R)$match_attr)) and use the result to match rows. Hence, attributes assigned to negative edges by Assign_Emetadata will ‘mirror’ the attributes for positive edges. This behavior can be supressed with Assign_Emetadata(..., attr_abs_val = FALSE).

The code below assigns edge attributes based on omega binned using cut points 0, 0.05, 0.10, 0.20, and 1:

E_CUTS <- c(0, 0.05, 0.10, 0.20, 1)
Assign_Emetadata(EC_2008_Rnet, E_ATTRS, match_attr = 'omega', e_cuts = E_CUTS)
##        omega lty width color
## 1 0.26262438   1     4 black
## 2 0.34200906   1     4 black
## 3 0.29536204   1     4 black
## 4 0.07383224   2     2 black
## 5 0.34889891   1     4 black
## 6 0.06947343   2     2 black
## 7 0.10636398   2     4 black

Assign_Emetadata() handles the edge attribute color differently since since it is often used to denote the sign of edge attribute. By default, edges are assigned color = 'black' where E(rnet.obj@R)$match_attr > 0 and color = 'red' where E(rnet.obj@R)$match_attr < 0. Different colors for positive and negative edges can be assigned using the edge_col argument. A column named color in the edge metadata frame will override this this argument. No edge colors will be assigned if edge_col = FALSE, edge_col = NA, or edge_col = NULL.

Network visualization

Two primary methods are used to visualize the R-nets: generic plot() methods for visualizing individual networks and Rnet_Heatmap() for comparing multiple graphs.

Rnet plot() methods

The 'igraph' objects held in the rnet objects can be plotted directly using the S3 method plot.igraph(), e.g., plot.igraph(rnetbasic.obj@R) and plot.igraph(rnetstrata.obj@R_set[[1]]. plot.igraph() allows the user to assign arguments controling the appearance of vertices (e.g., vertex.size, vertex.color), edges (e.g. edge.lty, edge.width), and the layout of the graph (see ?igraph.plotting for more details and a complete of parameters). Additionally, plot.igraph() will automatically identify any edge and vertex attribute names matching parameter names and apply those in place of undeclared arguments.

Rnets also includes an S4 plot() method for 'rnetBasic' objects (and 'rnetSubset' objects via inheritance). This method accepts all standard and plotting arguments for plot.igraph(). Like plot.igraph(), any plotting arguments declared in the call to the S4 plot(x) method will override the values in V(x@R)$attr and E(x@R)$attr. For easy comparison, the graph layouts are kept the same between for subsequent plot(x) calls.

A simple, undecorated graph can be drawn as follows:

EC_2012_Rnet <- Rnet(NARMS_EC_DATA, L1 = 0.15, vert = ABX_LIST, subset = expression(Year == 2012))
plot(EC_2012_Rnet)

The plot can be decorated by adding arguments from plotting.igraphs:

plot(
  EC_2012_Rnet,
  edge.color = 'black',
  edge.lty = 2,
  vertex.shape = c('circle', 'square'),
  vertex.size = 30,
  vertex.color = 'cyan'
)

EC_2008_Rnet with metadata attributes previously assigned by Assign_Vmetadata() and Assign_Emetadata() can be plotted without additional arugments:

plot(EC_2008_Rnet)

This plot with these pre-defined attributes can also be plotted using plot.igraph(), but a random layout will be reassigned with every call:

plot.igraph(EC_2008_Rnet@R)

Some previously defined attributes can be overridden while leaving other attributes intact by declaring the respective arguments in the plot() call:

plot(x = EC_2008_Rnet,
     vertex.color = 'red',
     edge.lty = '4313'
     )

Note the layout using plot() is the same as the previous call to plot(), but is again different than the plot.igraph() call.

(Re)arranging network layouts

The layout for plotting networks in an Rnet object can be defined at creation, using the optional layout argument for Rnet() to define a layout matrix, or at any later time by editing an existing rnet object’s layout matrix in @layout slot.

The igraph package also includes tkplot() and its associated functions for manually laying out graphs. tkplot() creates an interative canvas in a seperate window to place (click-and-drag) vertices to create custom layouts, which can then be captured with tk_coords(). More information about these functions can be found in ?tkplot.

The following code uses tkplot() and it’s associated functions to manually create and save a layout for an rnet object.

#Open a new tkplot window with the network 'EC_2008_Rnet'
tkplot(EC_2008_Rnet@R)

#You can now click and drag the vertices on the canvas to create the layout desired.

#The following code can be used to save the layout to use in subsequent plot() calls.
EC_2008_Rnet@layout <- tkcoords(1)

plot(EC_2008_Rnet)

Rnet heatmaps

Heatmaps can be used to compare the edges in multiple Rnets. The plots visually compare the edge weights from multiple graphs sharing a common vertex set. For MRFs estimated via the gLASSO, the graphs should also share a common L1 penalty to maintain comparability.

Rnet_Heatmap() returns an S3 object containing a matrix for visualizing all the edges found in the list of networks in rnetstrata.obj@R_set. The edge weights in this heatmap are based on \(\omega_{ij}\) which are binned using the e_cuts argument just like they were in the E_metadata(). The matrix object can be plotted using an S3 image() method.

EC_edge_heatmap <- Rnet_Heatmap(EC_byYear_Rnet, e_cuts = c(0, 0.05, 0.10, 0.20, 1.0))
image(EC_edge_heatmap)

The image() method provides 4 shades of red for positive colors, 4 shades of green for negative colors, edges that are absent have white cells, and edges that were ‘invalid’ are colored grey. The invalid edges typically occur because one or both of the resistances were tested in that particular set of isolates.

Network analysis

There are various strategies to summarize network structures numerically. Two common summary measures used to describe MRFs are density and modularity.

Density

Density describes the porportion of existing edges (m) in a graph compared to the maximum number of edges, mmax. The maximum number of edges is determined by size of the vertex set (k): mmax = k C2 = k ( k - 1) /2, and density can be estimated as m / mmax.

igraph::edge_density() can be used to calculate density for any 'igraph' object.

edge_density(EC_2008_Rnet@R)
## [1] 0.25

Modularity

Modularity (Q) describes how frequently similar vertices are adjacent. Vertex attributes are used to determine which vertex similarity: a vertex pair is similar the pair has the same value for the attribute, and dissimilar otherwise. Q is bounded by [-1,1]; Q is positive when similar vertices tend to be more connected than dissimilar vertices, and negative when similar vertices tend to be less connected than dissimilar vertices.

igraph::modularity() can be used to estimate modularity, but the vertex membership must first be corerced to a numeric (or factor).

The following code estiamtes the modularity for the MRF for

v_mem <- as.factor(V(EC_2008_Rnet@R)$Class)
Q <- modularity(x = EC_2008_Rnet@R, mem = v_mem)
Q
## [1] 0.2142857

Edge weights can be incorporated into Q estimates as well (becoming Qw), and subtly changes the interpretation: when Qw > 1, similar vertices tend to be more strongly connected than dissimilar vertices, and Qw < 1 when similar vertices tend to be less strongly connected than dissimilar vertices.

Q_w <- modularity(x = EC_2008_Rnet@R, mem = v_mem, weights = E(EC_2008_Rnet@R)$omega)
Q_w
## [1] 0.3534955

A major limitation of igraph::modularity() is that it can only handle positive edge weights. Edges in MRFs are defined by, and often weighted by, the penalized partial correlations which can take on values below 0. The above example has only positive partial correlations. Rnets::signed_modularity() uses a more robust approach5 to estimate modularity and is provided to allow Q calculation with negative edge weights.

Rnets::signed_modularity() is parameterized in a similar way, but membership and weight arguments can be called by simply providing the attribute names, and membership does not have to be a numeric or factor.

signed_modularity(EC_2008_Rnet, membership = 'Class', weight = 'omega')
## [1] 0.3534955
## attr(,"weight")
## [1] "omega"
## attr(,"membership")
## [1] "Class"

  1. Friedman, Hastie & Tibshirani. “Sparse inverse covariance estimation with the graphical lasso.” Biostatistics (2007)

  2. Gabor Csardi and Tamas Nepusz. “The igraph software package for complex network research.” InterJournal (2006)

  3. https://www.fda.gov/animalveterinary/safetyhealth/antimicrobialresistance/nationalantimicrobialresistancemonitoringsystem/

  4. Stability Approach to Regularization Selection (StARS) for High Dimensional Graphical Models. Advances in Nerual Information Processing Systems 23 (2010)

  5. Sergio Gomez, Pablo Jensen, and Alex Arenax. “Analysis of community structure in networks of correlated data.” IXXI - Institut des Syst`emes Complexes. (June 18 2009)