1 When and why to use this package
2 Installation
3 Some theoretical considerations
4 Workflow outline
- 4.1 How to we approach from here?
5 Considerations to note
6 Session info for this vignette
References

1 When and why to use this package

The purpose of this package is to compare the gene expression of the genes in two different conditions. The most typical case is when comparing gene expression in patients with a disease with gene expression in study participants without the disease. Hence, we may construct a network containing genes which are relevant for the development of the disease. The input data may come from different measurements of expression such as microarray, proteomics or RNA-seq as long as:

There are no missing values in the data. Consider filling in with average values or pseudo-values if this is not the case.
The expression values are coded as continuous numerical values which are comparable between samples. Note that only the ranks of each gene across the samples does matter as CSD uses the rank-based Spearman correlation.
The gene labels for the two conditions must match.

For differential gene-expression involving more than two separate conditions, consider CoDiNA (Morselli Gysi 2020) instead.

2 Installation

This package is hosted on Bioconductor. To install it, type:

if (!requireNamespace("BiocManager", quietly=TRUE))
    install.packages("BiocManager")
BiocManager::install("csdR")

Then,

library(csdR)
#>

should load the package into the current R session. For this vignette, we further load some auxiliary packages and set the random seed

suppressPackageStartupMessages({
    library(magrittr)
    library(igraph)
    library(glue)
    library(dplyr)
})
set.seed(45394534)

3 Some theoretical considerations

This is a re-implementation and slight modification of the CSD algorithm presented by Voigt et al. 2017(Voigt 2017). In the first phase, the algorithm finds the co-expression between all genes within each condition using the Spearman correlation. For each pair of genes, we apply bootstrapping across the samples and compute the mean Spearman correlation \(\rho_1\) and \(\rho_2\) for the two conditions and the associated standard errors \(\sigma_1\) and \(\sigma_2\). In the second stage, the values for the two conditions are compared and gives us the following differential co-expression scores:

Conserved score, \(C=\frac{\left|\rho_1+\rho_2\right|}{\sqrt{\sigma_1^2+\sigma_2^2}}\), a high value indicating the same strong co-expression in both conditions.
Specific score, \(S=\frac{\left|\left|\rho_1\right|-\left|\rho_2\right|\right|}{\sqrt{\sigma_1^2+\sigma_2^2}}\), a high value indicating a strong co-expression in one condition, but not in the other.
Differentiated score, \(D=\frac{\left|\left|\rho_1\right|+\left|\rho_2\right|-\left|\rho_1+\rho_2\right|\right|}{\sqrt{\sigma_1^2+\sigma_2^2}}\), a high value indicating a strong co-expression in both conditions, but with the opposite sign.

4 Workflow outline

In this example, we are provided by two expression expression matrices from thyroid glands, sick_expression for patients with thyroid cancer and normal_expression for healthy controls. To run the CSD analysis for these two conditions, we simply do the following:

data("sick_expression")
data("normal_expression")
csd_results <- run_csd(
    x_1 = sick_expression, x_2 = normal_expression,
    n_it = 10, nThreads = 2L, verbose = FALSE
)

After obtaining these results, we may write them to disk. However, for datasets with thousands of genes, we will get millions upon millions of gene pairs. Writing the results to disk is likely to fill up gigabytes of valuable storage space while the disk IO itself might take a considerable amount of time. Furthermore, we must reduce the information load to create meaningful results, so we better to that while the data is still in memory. We decide to select the 100 edges with highest C, S, and D-score.

pairs_to_pick <- 100L
c_filter <- partial_argsort(csd_results$cVal, pairs_to_pick)
c_frame <- csd_results[c_filter, ]
s_filter <- partial_argsort(csd_results$sVal, pairs_to_pick)
s_frame <- csd_results[s_filter, ]
d_filter <- partial_argsort(csd_results$dVal, pairs_to_pick)
d_frame <- csd_results[d_filter, ]

Why does the csdR package provide a general partial_argsort function which takes in a numeric vector and spits out the indecies of the largest elements instead of a more specialized function directly extracting the top results from the dataframe? The answer is flexibility. Writing an additional line of code and a dollar sign is not that much work after all and we may want more flexible approaches such as displaying the union of the C, S- and D-edges:

csd_filter <- c_filter %>%
    union(s_filter) %>%
    union(d_filter)
csd_frame <- csd_results[csd_filter, ]

4.1 How to we approach from here?

The next logical step is to construct a network and do some analysis. This is outside the scope of this package, but we will provide some pointers for completeness. One viable approach is to use the ordinary write.table function to write the results of a file and then use an external tools such as Cytoscape to further make conclusions. Often, you may want to make an ontology enrichment of the genes.

The other option is of course to continue using R. Here, we provide an example of combining the C-, S- and D-networks and coloring the edges blue, green and red, respectively depending of where they come from.

c_network <- graph_from_data_frame(c_frame, directed = FALSE)
s_network <- graph_from_data_frame(s_frame, directed = FALSE)
d_network <- graph_from_data_frame(d_frame, directed = FALSE)
E(c_network)$edge_type <- "C"
E(s_network)$edge_type <- "S"
E(d_network)$edge_type <- "D"
combined_network <- igraph::union(c_network, s_network, d_network)
# Auxillary function for combining
# the attributes of the three networks in a proper way
join_attributes <- function(graph, attribute) {
    ifelse(
        test = is.na(edge_attr(graph, glue("{attribute}_1"))),
        yes = ifelse(
            test = is.na(edge_attr(graph, glue("{attribute}_2"))),
            yes = edge_attr(graph, glue("{attribute}_3")),
            no = edge_attr(graph, glue("{attribute}_2"))
        ),
        no = edge_attr(graph, glue("{attribute}_1"))
    )
}
E(combined_network)$edge_type <- join_attributes(combined_network, "edge_type")
layout <- layout_nicely(combined_network)
E(combined_network)$color <- recode(E(combined_network)$edge_type,
    C = "darkblue", S = "green", D = "darkred"
)
plot(combined_network, layout = layout,
    vertex.size = 3, edge.width = 2, vertex.label.cex = 0.001)

5 Considerations to note

5.1 Number of bootstrap iterations

As with any bootstrap procedure the number of iterations represented by the argument n_it needs to be sufficiently large in order to get reproducible results. What this means is a matter of trial and error. In general this means that you should re-run the computations with a different random seed to see whether the number of bootstrap iterations are sufficient. Experience has shown that ~ 100 iterations might be sufficient to reproduce almost the same results in some cases, whereas in other cases, especially when the values are close, you may choose to run several thousand iterations.

5.2 Memory consumption

For datasets with 20 000 to 30 000 genes, a considerable amount of memory is consumed during the computations. It it therefore not recommended in such cases to run CSD on your laptop or even a workstation, but rather on a compute server with several hundreds GB of RAM.

5.3 Number of top gene pairs to pick

How many gene pairs to select depends on the specific needs and how big a network you want to handle. A 10 000 edge network may not be easy to visualize, but quantitative network metrics can still be extracted. Also, generating more edges than necessary usually does not make any major harm as superfluous edges can quickly be filter out afterwards. However, if you select fewer edges than you actually need, you have to re-do all calculations to increase the number.

6 Session info for this vignette

sessionInfo()
#> R version 4.2.1 (2022-06-23)
#> Platform: x86_64-pc-linux-gnu (64-bit)
#> Running under: Ubuntu 20.04.5 LTS
#> 
#> Matrix products: default
#> BLAS:   /home/biocbuild/bbs-3.16-bioc/R/lib/libRblas.so
#> LAPACK: /home/biocbuild/bbs-3.16-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] dplyr_1.0.10     glue_1.6.2       igraph_1.3.5     magrittr_2.0.3  
#> [5] csdR_1.4.0       BiocStyle_2.26.0
#> 
#> loaded via a namespace (and not attached):
#>   [1] bitops_1.0-7           matrixStats_0.62.0     bit64_4.0.5           
#>   [4] doParallel_1.0.17      RColorBrewer_1.1-3     httr_1.4.4            
#>   [7] GenomeInfoDb_1.34.0    dynamicTreeCut_1.63-1  backports_1.4.1       
#>  [10] tools_4.2.1            bslib_0.4.0            utf8_1.2.2            
#>  [13] R6_2.5.1               rpart_4.1.19           Hmisc_4.7-1           
#>  [16] DBI_1.1.3              BiocGenerics_0.44.0    colorspace_2.0-3      
#>  [19] nnet_7.3-18            gridExtra_2.3          tidyselect_1.2.0      
#>  [22] preprocessCore_1.60.0  bit_4.0.4              compiler_4.2.1        
#>  [25] WGCNA_1.71             cli_3.4.1              Biobase_2.58.0        
#>  [28] htmlTable_2.4.1        bookdown_0.29          sass_0.4.2            
#>  [31] checkmate_2.1.0        scales_1.2.1           stringr_1.4.1         
#>  [34] digest_0.6.30          foreign_0.8-83         rmarkdown_2.17        
#>  [37] XVector_0.38.0         RhpcBLASctl_0.21-247.1 base64enc_0.1-3       
#>  [40] jpeg_0.1-9             pkgconfig_2.0.3        htmltools_0.5.3       
#>  [43] highr_0.9              fastmap_1.1.0          htmlwidgets_1.5.4     
#>  [46] rlang_1.0.6            impute_1.72.0          rstudioapi_0.14       
#>  [49] RSQLite_2.2.18         jquerylib_0.1.4        generics_0.1.3        
#>  [52] jsonlite_1.8.3         RCurl_1.98-1.9         GO.db_3.16.0          
#>  [55] GenomeInfoDbData_1.2.9 Formula_1.2-4          interp_1.1-3          
#>  [58] Matrix_1.5-1           Rcpp_1.0.9             munsell_0.5.0         
#>  [61] S4Vectors_0.36.0       fansi_1.0.3            lifecycle_1.0.3       
#>  [64] stringi_1.7.8          yaml_2.3.6             zlibbioc_1.44.0       
#>  [67] grid_4.2.1             blob_1.2.3             parallel_4.2.1        
#>  [70] crayon_1.5.2           deldir_1.0-6           lattice_0.20-45       
#>  [73] Biostrings_2.66.0      splines_4.2.1          KEGGREST_1.38.0       
#>  [76] magick_2.7.3           knitr_1.40             pillar_1.8.1          
#>  [79] fastcluster_1.2.3      codetools_0.2-18       stats4_4.2.1          
#>  [82] evaluate_0.17          latticeExtra_0.6-30    data.table_1.14.4     
#>  [85] BiocManager_1.30.19    png_0.1-7              vctrs_0.5.0           
#>  [88] foreach_1.5.2          gtable_0.3.1           assertthat_0.2.1      
#>  [91] cachem_1.0.6           ggplot2_3.3.6          xfun_0.34             
#>  [94] survival_3.4-0         tibble_3.1.8           iterators_1.0.14      
#>  [97] AnnotationDbi_1.60.0   memoise_2.0.1          IRanges_2.32.0        
#> [100] cluster_2.1.4

References

Morselli Gysi, Tiago AND Zebardast, Deisy AND de Miranda Fragoso. 2020. “Whole Transcriptomic Network Analysis Using Co-Expression Differential Network Analysis (Codina).” PLOS ONE 15 (10): 1–28. https://doi.org/10.1371/journal.pone.0240523.

Voigt, Katja AND Almaas, André AND Nowick. 2017. “A Composite Network of Conserved and Tissue Specific Gene Interactions Reveals Possible Genetic Interactions in Glioma.” PLOS Computational Biology 13 (9): 1–34. https://doi.org/10.1371/journal.pcbi.1005739.

Analyzing differential co-expression with csdR

1 November 2022

Contents