tanggle: Visualización de redes filogenéticas con ggplot2
1 May 2024
Package
tanggle 1.10.0
Contents
1 Introducción
Esta es la viñeta en español para el paquete de R tanggle, en ella proveemos una vista general de sus funciones y ejemplos de uso. Tanggle extiende el paquete de R ggtree (Yu et al. 2017), lo cual permite la visualización de múltiples tipos de redes filogenéticas usando la sintaxis de ggplot2 (Wickham 2016). Especificamente, tanggle contiene funciones que permiten al usuario visualizar: (1) redes divididas o implícitas (no-enraizadas, no-direccionadas) y (2) redes explícitas (enraizadas, direccionadas) con reticulaciones. Estas funciones ofrecen alternativas a las funciones gráficas disponibles en ape (Paradis and Schliep 2018) y phangorn (Schliep 2011).
2 Lista de funciones
| name | Brief description |
|---|---|
geom_splitnet |
Adds a splitnet layer to a ggplot, to combine visualising data and the network |
ggevonet |
Grafica una red explícita de un objeto phylo |
ggsplitnet |
Grafica una red implícita de un objeto phylo |
minimize_overlap |
Reduce el número de líneas de reticulación entrecruzadas en la gráfica |
node_depth_evonet |
Devuelve las profundidades o alturas de los nodos y puntas en la red filogenética |
3 Para empezar
Instalar el paquete desde Bioconductor directamente:
Install the package from Bioconductor directly:
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("tanggle")O instalar la versión de desarrollo del paquete desde: Github.
if (!requireNamespace("remotes", quietly=TRUE))
install.packages("remotes")
remotes::install_github("KlausVigo/tanggle")Si necesita installer ggtree desde github:
remotes::install_github("YuLab-SMU/ggtree")Y cargar todas las librerías:
library(tanggle)
library(phangorn)
library(ggtree)4 Redes dividida o implicitas
Las redes divididas son objetos de visualización de datos que permiten la definición de 2 (o más) opciones de división no compatibles. Las redes divididas son usadas frecuentemente para graficar redes consenso (Holland et al. 2004) o redes vecinas (Bryant and Moulton 2004). Esto puede llevarse a cabo utilizando las funciones consensusNet o neighbor-net en phangorn (Schliep 2011), o importando archivos Nexus provenientes de SplitsTree (Huson and Bryant 2006).
5 Tipos de datos
tanggle acepta tres formatos de entrada para redes divididas. Las siguientes opciones de entrada generan un objeto network para graficar.
Archivo Nexus creado con SplitsTree (Huson and Bryant 2006) e importado con la función
read.nexus.networken phangorn (Schliep 2011).Carga de red dividida en formato Nexus:
fdir <- system.file("extdata/trees", package = "phangorn")
Nnet <- phangorn::read.nexus.networx(file.path(fdir,"woodmouse.nxs"))- Una colección de árboles de genes (e.g., de RAxML (Stamatakis 2014)) en alguno de los siguientes formatos:
Importar archivo Nexus con la función
read.nexusArchivo de texto en formato Newick (un árbol de genes por línea) importado con la funciónread.tree
Estimación de una red dividida consenso mediante la función consensusNet en phangorn (Schliep 2011).
- Secuencias en Nexus, Fasta o formato Phylip importandas con la función
read.phyDaten phangorn (Schliep 2011) o la funciónread.dnaen ape (Paradis and Schliep 2018). Luego se calculan las matrices de distancia para los modelos de evolución específicos utilizando la funcióndist.mlen phangorn (Schliep 2011) odist.dnaen ape (Paradis and Schliep 2018). Con base en las matrices de distancia, se reconstruye una red dividida utilizando la funciónneighborNeten phangorn (Schliep 2011). Opcional: las longitudes de las ramas pueden ser estimadas utilizando la funciónsplitsNetworksen phangorn (Schliep 2011).
5.1 Para graficar una Red Dividida
Podemos graficar una red con las siguientes opciones por defecto:
p <- ggsplitnet(Nnet) + geom_tiplab2()
p
Luego podemos establecer los límites para los ejes x & y permitiendo la lectura de los nombres de los ejes.
p <- p + xlim(-0.019, .003) + ylim(-.01, .012)
p
Es posible renombrar las puntas. Aquí cambiamos los nombres por un consecutivo de 1 a 15:
Nnet$translate$label <- seq_along(Nnet$tip.label)Podemos incluir los nombres de las puntas con geom_tiplab2, y con esto personalizar algunas de sus opciones. Por ejemplo, las puntas de color azul, en negrilla e itálicas; también los nodos internos en verde:
ggsplitnet(Nnet) + geom_tiplab2(col = "blue", font = 4, hjust = -0.15) +
geom_nodepoint(col = "green", size = 0.25)
Los nodos pueden ser anotados con geom_point.
ggsplitnet(Nnet) + geom_point(aes(shape = isTip, color = isTip), size = 2)
5.2 Para graficar una Red Explícita
La función ggevonet dibuja redes explícitas (árboles filogenéticos reticulados). Una adición reciente en ape (Paradis and Schliep 2018) permite importar árboles en un formato Newick extendido (Cardona, Rosselló, and Valiente 2008).
Importar una red explícita (ejemplo de Fig. 2 en Cardona et al. 2008):
z <- read.evonet(text = "((1,((2,(3,(4)Y#H1)g)e,(((Y#H1,5)h,6)f)X#H2)c)a,
((X#H2,7)d,8)b)r;")Para graficar una red explícita:
ggevonet(z, layout = "rectangular") + geom_tiplab() + geom_nodelab()
p <- ggevonet(z, layout = "slanted") + geom_tiplab() + geom_nodelab()
p + geom_tiplab(size=3, color="purple")
p + geom_nodepoint(color="#b5e521", alpha=1/4, size=10)
6 Resumen
Esta viñeta ilustra todas las funciones en el paquete tanggle para R. Aquí se proveen algunos ejemplos de como graficar redes implícitas y explícitas. La visualización de redes divididas toma (se sirve de / utiliza ???) la mayoría de las funciones compatibles con árboles no enraizados en ggtree. Las opciones de diseño para las redes explícitas son rectangular o slanted.
Session info
sessionInfo()
#> R version 4.4.0 beta (2024-04-15 r86425)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 22.04.4 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.19-bioc/R/lib/libRblas.so
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.10.0
#>
#> locale:
#> [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
#> [3] LC_TIME=en_US.UTF-8 LC_COLLATE=en_US.UTF-8
#> [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
#>
#> time zone: America/New_York
#> tzcode source: system (glibc)
#>
#> attached base packages:
#> [1] stats graphics grDevices utils datasets methods base
#>
#> other attached packages:
#> [1] phangorn_2.11.1 ape_5.8 tanggle_1.10.0 ggtree_3.12.0
#> [5] ggplot2_3.5.1 BiocStyle_2.32.0
#>
#> loaded via a namespace (and not attached):
#> [1] yulab.utils_0.1.4 sass_0.4.9 utf8_1.2.4
#> [4] generics_0.1.3 tidyr_1.3.1 ggplotify_0.1.2
#> [7] lattice_0.22-6 digest_0.6.35 magrittr_2.0.3
#> [10] evaluate_0.23 grid_4.4.0 bookdown_0.39
#> [13] fastmap_1.1.1 Matrix_1.7-0 jsonlite_1.8.8
#> [16] tinytex_0.50 BiocManager_1.30.22 purrr_1.0.2
#> [19] fansi_1.0.6 aplot_0.2.2 scales_1.3.0
#> [22] codetools_0.2-20 lazyeval_0.2.2 jquerylib_0.1.4
#> [25] cli_3.6.2 rlang_1.1.3 munsell_0.5.1
#> [28] tidytree_0.4.6 withr_3.0.0 cachem_1.0.8
#> [31] yaml_2.3.8 tools_4.4.0 parallel_4.4.0
#> [34] memoise_2.0.1 dplyr_1.1.4 colorspace_2.1-0
#> [37] fastmatch_1.1-4 vctrs_0.6.5 R6_2.5.1
#> [40] gridGraphics_0.5-1 magick_2.8.3 lifecycle_1.0.4
#> [43] fs_1.6.4 ggfun_0.1.4 treeio_1.28.0
#> [46] pkgconfig_2.0.3 pillar_1.9.0 bslib_0.7.0
#> [49] gtable_0.3.5 glue_1.7.0 Rcpp_1.0.12
#> [52] highr_0.10 xfun_0.43 tibble_3.2.1
#> [55] tidyselect_1.2.1 knitr_1.46 farver_2.1.1
#> [58] igraph_2.0.3 patchwork_1.2.0 htmltools_0.5.8.1
#> [61] nlme_3.1-164 labeling_0.4.3 rmarkdown_2.26
#> [64] compiler_4.4.0 quadprog_1.5-87 References
Bryant, David, and Vincent Moulton. 2004. “Neighbor-Net: An Agglomerative Method for the Construction of Phylogenetic Networks.” Molecular Biology and Evolution 21 (2): 255–65. https://doi.org/10.1093/molbev/msh018.
Cardona, Gabriel, Francesc Rosselló, and Gabriel Valiente. 2008. “Extended Newick: It Is Time for a Standard Representation of Phylogenetic Networks.” BMC Bioinformatics 9 (1): 532. https://doi.org/10.1186/1471-2105-9-532.
Holland, Barbara R., Katharina T. Huber, Vincent Moulton, and Peter J. Lockhart. 2004. “Using Consensus Networks to Visualize Contradictory Evidence for Species Phylogeny.” Molecular Biology and Evolution 21 (7): 1459–61. https://doi.org/10.1093/molbev/msh145.
Huson, D. H., and D. Bryant. 2006. “Application of Phylogenetic Networks in Evolutionary Studies.” Molecular Biology and Evolution 23 (2): 254–67.
Paradis, Emmanuel, and Klaus Schliep. 2018. “Ape 5.0: An Environment for Modern Phylogenetics and Evolutionary Analyses in R.” Bioinformatics 35 (3): 526–28.
Schliep, Klaus Peter. 2011. “Phangorn: Phylogenetic Analysis in R.” Bioinformatics 27 (4): 592–93. https://doi.org/10.1093/bioinformatics/btq706.
Stamatakis, A. 2014. “raXml Version 8: A Tool for Phylogenetic Analysis and Post-Analysis of Large Phylogenies.” Bioinformatics 30 (9): 1312–3.
Wickham, Hadley. 2016. Ggplot2: Elegant Graphics for Data Analysis. Springer-Verlag New York. https://ggplot2.tidyverse.org.
Yu, Guangchuang, David Smith, Huachen Zhu, Yi Guan, and Tommy Tsan-Yuk Lam. 2017. “Ggtree: An R Package for Visualization and Annotation of Phylogenetic Trees with Their Covariates and Other Associated Data.” Methods in Ecology and Evolution 8 (1): 28–36. https://doi.org/10.1111/2041-210X.12628.