Build functional gene modules with GNET2

Chen Chen

2021-10-26

1. Introduction

GNET2 is a R package used for build regulator network and cluster genes to functional groups with E-M process. It iterative perform TF assigning and Gene assigning, until the assignment of genes did not change, or max number of iterations is reached.

2. Installation

To install, open R and type:

install.packages("devtools")
library("devtools")
install_github("chrischen1/GNET2")

3. Build module networks

We first generate random expression data and a list of regulator gene names.

The input is typically a p by n matrix of expression data of p genes and n samples, for example log2 RPKM from RNA-Seq.

set.seed(2)
init_group_num = 8
init_method = 'boosting'
exp_data <- matrix(rnorm(300*12),300,12)
reg_names <- paste0('TF',1:20)
rownames(exp_data) <- c(reg_names,paste0('gene',1:(nrow(exp_data)-length(reg_names))))
colnames(exp_data) <- paste0('condition_',1:ncol(exp_data))

For the list of potential regulator genes, they are usually available from databases. For example, the PlantTFDB (http://planttfdb.gao-lab.org/download.php) curated lists of transcription factors in 156 species, and this information can be imported by the follow steps:

url <- "http://planttfdb.gao-lab.org/download/TF_list/Ath_TF_list.txt.gz"
dest_file <- './Ath_TF_list.txt.gz'
download.file(url, destfile)
reg_names <- read.table(gzfile(destfile),sep="\t",header = T,as.is = T)$Gene_ID

The module construction process make take a few time, depending on the size of data and maximum iterations allowed.

gnet_result <- gnet(exp_data,reg_names,init_method,init_group_num,heuristic = TRUE)
#> Determining initial group number...
#> Building module networks...
#> Iteration 1
#> Iteration 2
#> Iteration 3
#> Iteration 4
#> Iteration 5
#> Converged.
#> Generating final network modules...
#> Done.

4. Plot the modules and trees

Plot the regulators module and heatmap of the expression inferred downstream genes for each sample. It can be interpreted as two parts: the bars at the top shows how samples are split by the regression tree and the heatmap at the bottom shows how downstream genes are regulated by each subgroup determined by the regulators.

plot_gene_group(gnet_result,group_idx = 1,plot_leaf_labels = T)

It is also possible to compare the clustering of GNET2 with experiment conditions by providing the labels of conditions

exp_labels = rep(paste0('Exp_',1:4),each = 3)
plot_gene_group(gnet_result,group_idx = 1,group_labels = exp_labels)

The similarity between the clusters from each module of GNET2 and experiment conditions can be quantified by Adjuster Rand Index (for categorical labels) or the inverse of K-L Divergence (for ordinal labels, e.g. dosage,time points). For both cases, significant P values suggests high similarity between the grouping of the modules and the label information provided by the user.

exp_labels_factor = as.numeric(factor(exp_labels))

print('Similarity to categorical experimental conditions of each module:')
#> [1] "Similarity to categorical experimental conditions of each module:"
print(similarity_score(gnet_result,exp_labels_factor))
#> $score
#> [1]  0.06201550 -0.10852713  0.02531646  0.11814346  0.40310078 -0.06751055
#> [7] -0.16033755
#> 
#> $p_value
#> [1] 0.276 0.793 0.328 0.138 0.001 0.636 0.920

print('Similarity to ordinal experimental conditions of each module:')
#> [1] "Similarity to ordinal experimental conditions of each module:"
print(similarity_score(gnet_result,exp_labels_factor),ranked=TRUE)
#> $score
#> [1]  0.06201550 -0.10852713  0.02531646  0.11814346  0.40310078 -0.06751055
#> [7] -0.16033755
#> 
#> $p_value
#> [1] 0.264 0.783 0.319 0.144 0.003 0.644 0.904

Plot the tree of the first group

plot_tree(gnet_result,group_idx = 1)

Plot the correlation of each group and auto detected knee point.

group_above_kn <- plot_group_correlation(gnet_result)

print(group_above_kn)
#> [1] 2 4

The group IDs in group_above_kn can been used as a list of groups with correlation higher than the knee point. You may consider use them only for further analysis.

5. extract information from the GNET2 output

Show the total number of modules

print('Total number of modules:')
#> [1] "Total number of modules:"
print(gnet_result$modules_count)
#> [1] 7

Show the regulatory genes and target genes in the first module

group_index = 1
print('Regulators in module 1:')
#> [1] "Regulators in module 1:"
print(gnet_result$regulators[[group_index]])
#> [1] "TF19" "TF14" "TF17"
print('Targets in module 1:')
#> [1] "Targets in module 1:"
print(gnet_result$target_genes[[group_index]])
#>  [1] "gene1"   "gene13"  "gene16"  "gene17"  "gene36"  "gene37"  "gene39" 
#>  [8] "gene43"  "gene45"  "gene52"  "gene73"  "gene81"  "gene92"  "gene108"
#> [15] "gene113" "gene126" "gene129" "gene139" "gene141" "gene147" "gene149"
#> [22] "gene151" "gene152" "gene158" "gene161" "gene168" "gene170" "gene173"
#> [29] "gene185" "gene189" "gene200" "gene206" "gene209" "gene216" "gene218"
#> [36] "gene222" "gene244" "gene250" "gene252" "gene264" "gene267" "gene269"
#> [43] "gene275" "gene277" "gene278"

Return the interactions and their scores as adjacency matrix

mat <- extract_edges(gnet_result)
#> Warning: `group_by_()` was deprecated in dplyr 0.7.0.
#> Please use `group_by()` instead.
#> See vignette('programming') for more help
#> This warning is displayed once every 8 hours.
#> Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
print(dim(mat))
#> [1]  20 300
sessionInfo()
#> R version 4.1.1 (2021-08-10)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 20.04.3 LTS
#> 
#> Matrix products: default
#> BLAS:   /home/biocbuild/bbs-3.14-bioc/R/lib/libRblas.so
#> LAPACK: /home/biocbuild/bbs-3.14-bioc/R/lib/libRlapack.so
#> 
#> locale:
#>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
#>  [3] LC_TIME=en_GB              LC_COLLATE=C              
#>  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
#>  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
#>  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
#> 
#> attached base packages:
#> [1] stats     graphics  grDevices utils     datasets  methods   base     
#> 
#> other attached packages:
#> [1] GNET2_1.10.0
#> 
#> loaded via a namespace (and not attached):
#>  [1] Rcpp_1.0.7                  lattice_0.20-45            
#>  [3] tidyr_1.1.4                 visNetwork_2.1.0           
#>  [5] assertthat_0.2.1            digest_0.6.28              
#>  [7] utf8_1.2.2                  R6_2.5.1                   
#>  [9] GenomeInfoDb_1.30.0         plyr_1.8.6                 
#> [11] stats4_4.1.1                evaluate_0.14              
#> [13] highr_0.9                   ggplot2_3.3.5              
#> [15] pillar_1.6.4                zlibbioc_1.40.0            
#> [17] rlang_0.4.12                rstudioapi_0.13            
#> [19] data.table_1.14.2           jquerylib_0.1.4            
#> [21] S4Vectors_0.32.0            Matrix_1.3-4               
#> [23] rmarkdown_2.11              DiagrammeR_1.0.6.1         
#> [25] labeling_0.4.2              stringr_1.4.0              
#> [27] htmlwidgets_1.5.4           igraph_1.2.7               
#> [29] RCurl_1.98-1.5              munsell_0.5.0              
#> [31] DelayedArray_0.20.0         compiler_4.1.1             
#> [33] xfun_0.27                   pkgconfig_2.0.3            
#> [35] BiocGenerics_0.40.0         htmltools_0.5.2            
#> [37] tidyselect_1.1.1            SummarizedExperiment_1.24.0
#> [39] tibble_3.1.5                GenomeInfoDbData_1.2.7     
#> [41] IRanges_2.28.0              matrixStats_0.61.0         
#> [43] fansi_0.5.0                 crayon_1.4.1               
#> [45] dplyr_1.0.7                 bitops_1.0-7               
#> [47] grid_4.1.1                  jsonlite_1.7.2             
#> [49] gtable_0.3.0                lifecycle_1.0.1            
#> [51] DBI_1.1.1                   magrittr_2.0.1             
#> [53] scales_1.1.1                stringi_1.7.5              
#> [55] farver_2.1.0                XVector_0.34.0             
#> [57] reshape2_1.4.4              bslib_0.3.1                
#> [59] ellipsis_0.3.2              generics_0.1.1             
#> [61] vctrs_0.3.8                 xgboost_1.4.1.1            
#> [63] RColorBrewer_1.1-2          tools_4.1.1                
#> [65] Biobase_2.54.0              glue_1.4.2                 
#> [67] purrr_0.3.4                 MatrixGenerics_1.6.0       
#> [69] fastmap_1.1.0               yaml_2.2.1                 
#> [71] colorspace_2.0-2            GenomicRanges_1.46.0       
#> [73] knitr_1.36                  sass_0.4.0