The levi (Landscape Expression Visualization Interface) is a package for the R environment, developed to enable the visualization of the projection of gene expression on a biological network. levi is based on two other software, the first is the Viacomplex ((???)), which was written in Fortran using the Dislin library to plot the data. The second is Galant ((???)), which corresponds to a plugin for Cytoscape software.
Two files are required to use levi: The file containing the expression levels of the genes and a file containing the biological network.
This file should contain the genes of interest previously normalized by the user. The expression file (see Example) must have a column with the identification of genes (Gene Symbol, Entrez, etc.) and at least one column with gene expression levels (treatment, case, control, etc.). The user can compare the expression levels between samples if there are more columns containing these data.
If the expression file does not have values for all the genes of the network, a message will be displayed showing log file path to a temporary directory with the gene names. In the landscape construction, genes with no expression value will be displayed with values close to 0.5 demonstrating that there were no changes (down-regulated or up-regulated genes).
Data sets of gene expression can be obtained from online databases:
The levi supports several extensions of biological network files (*.net, *.dyn, *.txt, *.dat). The user should build the biological network using specific tools such as: Cytoscape, RedeR, Medusa, etc. To build the biological network is recommended the obtention of interaction data/ biological associations from online repositories:
Extension | File Type | Link |
---|---|---|
dat | Medusa (DAT) | Example DAT |
dyn | RedeR (DYN) | Example DYN |
net | Pajek (NET) | Example NET |
stg | STRING / STITCH | Example coordinates |
stg | STRING / STITCH | Example interactions |
#Viewing Modes
levi has two viewing modes: Graphical User Interface (GUI) and script.
The GUI mode was developed using Shiny package (Figure 1). This viewing mode can be used in the R environment (browser=FALSE) or in the user’s default operating system browser (browser=TRUE).
library(levi)
LEVIui(browser=TRUE) #Launch Levi to Browser.
LEVIui(browser=FALSE) #Launch Levi to R environment.
The levi scripting mode also has the settings for landscape building (see example below).
library(levi)
template_network <- file.path(system.file(package="levi"),"extdata",
"medusa.dat", fsep = .Platform$file.sep)
template_expression <- file.path(system.file(package="levi"),
"extdata","expression.dat",
fsep = .Platform$file.sep)
multicolor <- levi(networkCoordinatesInput = template_network,
expressionInput = template_expression, fileTypeInput = "dat",
geneSymbolnput = "ID",
readExpColumn=
readExpColumn("TumorCurrentSmoker-NormalNeverSmoker"),
contrastValueInput = 50, resolutionValueInput = 50,
zoomValueInput = 50, smoothValueInput = 50, contourLevi = TRUE)
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
twocolors <- levi(networkCoordinatesInput = template_network,
expressionInput = template_expression, fileTypeInput = "dat",
geneSymbolnput = "ID",
readExpColumn=
readExpColumn("TumorCurrentSmoker-NormalNeverSmoker"),
setcolor = "pink_green", contourLevi = FALSE)
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
The script mode allows the user to compare combinations between two experiments in the gene expression levels file. The readExpColumn function can be used to this task to inform the combination separating by dash (-) and to add more combinations separate by comma (,).
library(levi)
base <- readExpColumn("TumorFormerSmoker-NormalFormerSmoker",
"TumorNeverSmoker-TumorNeverSmoker")
template_network <- file.path(system.file(package="levi"),"extdata",
"medusa.dat", fsep = .Platform$file.sep)
template_expression <- file.path(system.file(package="levi"),
"extdata","expression.dat",
fsep = .Platform$file.sep)
multicolor <- levi(networkCoordinatesInput = template_network,
expressionInput = template_expression,
fileTypeInput = "dat",
geneSymbolnput = "ID", readExpColumn= base,
contrastValueInput = 50, resolutionValueInput = 50,
zoomValueInput = 50, smoothValueInput = 50,
contourLevi = FALSE)
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
twocolors <- levi(networkCoordinatesInput = template_network,
expressionInput = template_expression, fileTypeInput = "dat",
geneSymbolnput = "ID",
readExpColumn= base,
setcolor = "pink_green", contourLevi = FALSE)
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## Coordinate system already present. Adding new coordinate system, which will replace the existing one.
## 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] levi_1.12.0 BiocStyle_2.22.0
##
## loaded via a namespace (and not attached):
## [1] tidyselect_1.1.1 xfun_0.27 bslib_0.3.1
## [4] shinyjs_2.0.0 purrr_0.3.4 reshape2_1.4.4
## [7] testthat_3.1.0 colorspace_2.0-2 vctrs_0.3.8
## [10] generics_0.1.1 htmltools_0.5.2 yaml_2.2.1
## [13] utf8_1.2.2 rlang_0.4.12 isoband_0.2.5
## [16] jquerylib_0.1.4 pillar_1.6.4 later_1.3.0
## [19] glue_1.4.2 DBI_1.1.1 RColorBrewer_1.1-2
## [22] lifecycle_1.0.1 plyr_1.8.6 stringr_1.4.0
## [25] munsell_0.5.0 gtable_0.3.0 htmlwidgets_1.5.4
## [28] evaluate_0.14 labeling_0.4.2 knitr_1.36
## [31] fastmap_1.1.0 httpuv_1.6.3 fansi_0.5.0
## [34] highr_0.9 Rcpp_1.0.7 xtable_1.8-4
## [37] scales_1.1.1 promises_1.2.0.1 DT_0.19
## [40] BiocManager_1.30.16 magick_2.7.3 jsonlite_1.7.2
## [43] farver_2.1.0 mime_0.12 ggplot2_3.3.5
## [46] digest_0.6.28 stringi_1.7.5 shiny_1.7.1
## [49] bookdown_0.24 dplyr_1.0.7 grid_4.1.1
## [52] tools_4.1.1 magrittr_2.0.1 sass_0.4.0
## [55] tibble_3.1.5 crayon_1.4.1 pkgconfig_2.0.3
## [58] ellipsis_0.3.2 xml2_1.3.2 shinydashboard_0.7.2
## [61] assertthat_0.2.1 rmarkdown_2.11 httr_1.4.2
## [64] R6_2.5.1 igraph_1.2.7 compiler_4.1.1