diff --git a/docs/01_sesion2_diapositivas.html b/docs/01_sesion2_diapositivas.html new file mode 100644 index 0000000..a765ba0 --- /dev/null +++ b/docs/01_sesion2_diapositivas.html @@ -0,0 +1,604 @@ + + + + Control de Calidad en scRNA-Seq + + + + + + + + + + + + + + + + + + + + + diff --git a/docs/404.html b/docs/404.html new file mode 100644 index 0000000..54e40a1 --- /dev/null +++ b/docs/404.html @@ -0,0 +1,506 @@ + + + + + + + Page not found | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

Page not found

+

The page you requested cannot be found (perhaps it was moved or renamed).

+

You may want to try searching to find the page's new location, or use +the table of contents to find the page you are looking for.

+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/anotaci\303\263n-de-tipos-celulares.html" "b/docs/anotaci\303\263n-de-tipos-celulares.html" new file mode 100644 index 0000000..44ee881 --- /dev/null +++ "b/docs/anotaci\303\263n-de-tipos-celulares.html" @@ -0,0 +1,510 @@ + + + + + + + 8 Anotación de tipos celulares | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

8 Anotación de tipos celulares

+

Erick Cuevas

+

08 de agosto de 2023

+
+

8.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/clustering.html b/docs/clustering.html new file mode 100644 index 0000000..cc1e813 --- /dev/null +++ b/docs/clustering.html @@ -0,0 +1,1085 @@ + + + + + + + 6 Clustering | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

6 Clustering

+

Instructora: Laura Gómez-Romero

+

Este contenido está basado en las diapositivas de Peter Hickey. Ve las diapositivas aquí. Y en el curso de OSCA, lee el material aquí

+
+

6.1 Dataset ilustrativo: 10X PBMC4k no filtrado

+
library(BiocFileCache)
+bfc <- BiocFileCache()
+raw.path <- bfcrpath(bfc, file.path(
+    "http://cf.10xgenomics.com/samples",
+    "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz"
+))
+untar(raw.path, exdir = file.path(tempdir(), "pbmc4k"))
+
+library(DropletUtils)
+library(Matrix)
+fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38")
+sce.pbmc <- read10xCounts(fname, col.names = TRUE)
+

Dataset de células mononucleares de sangre periférica humana (PBMC) de 10X Genomics

+

Descripción aquí

+

Zheng, G. X. Y. et al. Massively parallel digital transcriptional profiling of single cells. Nat. Commun. 8, 14049 (2017)

+
# gene-annotation
+library(scater)
+rownames(sce.pbmc) <- uniquifyFeatureNames(
+    rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol
+)
+library(EnsDb.Hsapiens.v86)
+location <- mapIds(EnsDb.Hsapiens.v86,
+    keys = rowData(sce.pbmc)$ID,
+    column = "SEQNAME", keytype = "GENEID"
+)
+
+# cell-detection
+set.seed(100)
+e.out <- emptyDrops(counts(sce.pbmc))
+sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)]
+
# quality-control
+stats <- perCellQCMetrics(sce.pbmc,
+    subsets = list(Mito = which(location == "MT"))
+)
+high.mito <- isOutlier(stats$subsets_Mito_percent,
+    type = "higher"
+)
+sce.pbmc <- sce.pbmc[, !high.mito]
+
+# normalization
+library(scran)
+set.seed(1000)
+clusters <- quickCluster(sce.pbmc)
+sce.pbmc <- computeSumFactors(sce.pbmc, cluster = clusters)
+sce.pbmc <- logNormCounts(sce.pbmc)
+
# variance modelling
+set.seed(1001)
+dec.pbmc <- modelGeneVarByPoisson(sce.pbmc)
+top.pbmc <- getTopHVGs(dec.pbmc, prop = 0.1)
+
# dimensionality-reduction
+set.seed(10000)
+sce.pbmc <- denoisePCA(sce.pbmc,
+    subset.row = top.pbmc,
+    technical = dec.pbmc
+)
+
+set.seed(100000)
+sce.pbmc <- runTSNE(sce.pbmc, dimred = "PCA")
+
+set.seed(1000000)
+sce.pbmc <- runUMAP(sce.pbmc, dimred = "PCA")
+
    +

  • ¿Para qué sirve el método que estamos usando para reducir la dimensionalidad de los datos?

    • +

  • ¿Los HGVs están almacenados en nuestro objeto sce.pbmc?

    • +
+
+
+

6.2 Motivación

+

Clustering es un procedimiento no supervisado par definir grupos de células con perfiles de expresión similares

+

Su propósito principal es resumir los datos en un formato digerido susceptible a interpretación humana

+

Nos permite asignar etiquetas (por ejemplo, tipos celulares) a las células

+
+
+

6.3 ¿Por qué no realizamos el clustering sobre las coordenadas de t-SNE/UMAP?

+

Las técnicas de t-SNE/UMAP han comprimido datos altamente multi-dimensionales en dos dimensiones

+

Esta compresión inevitablemente ha provocado la perdida de información

+

Por lo tanto, agrupamos sobre los PCs y después visualizamos las identidades de los clusters en la gráfica t-SNE/UMAP

+
+
+

6.4 ¿Cuál es el verdadero clustering?

+
+

+ +

+
+

Un cluster no implica un tipo celular

+

Nosotros podemos definir tantos clusters como queramos y podemos utilizar el algoritmo que más nos acomode

+

El clustering, como un microscopio, simplemente es una herramienta para explorar los datos

+

Preguntar por el mejor clustering es similar a preguntar cuál es la mejor magnificación en un microscopio sin contenido

+
+
+

6.5 Clustering basado en grafos

+
+

6.5.1 Antecedentes

+

El clustering basado en grafos fue popularizado (más no inventado) por su uso en Seurat

+

Objetivo: Construir un grafo en el que cada nodo es una célula que está conectada a sus vecinos más cercanos (otras células con perfiles de expresión similares) en el espacio multidimensional

+
+
+

6.5.2 Gráfica de los k vecinos más cercanos (k-nearest neighbour -KNN- graph)

+

Ilustremos como funciona para 20 células

+
+

+ +

+
+
+

+ +

+
+
+

+ +

+
+
+

+ +

+
+
+
+

6.5.3 Gráfica de los vecinos más próximos compartidos (SNN)

+

De una gráfica KNN se puede construir una gráfica SNN. En este tipo de grafo, dos células estarán conectadas por una arista si comparten alguno de sus vecinos más próximos.

+
+

+ +

+
+
+

+ +

+
+
+
+

6.5.4 Gráfica SNN con pesos en las aristas

+

Podemos asignar pesos a cada arista del grafo, basándonos en la similaridad de las células involucradas, dándole pesos más altos a células que están más cercanamente relacionadas

+

Para ver los distintos esquemas de pesado puedes consultar la documentación de la función makeSNNGraph del paquete bluster. Algunos ejemplos son:

+
    +
  • Rango: El peso entre dos nodos está dado por k-r/2 donde r es la suma más pequeña de los rangos (de proximidad, el vecino más cercano tiene el rango 1) para cualquiera de los vecinos compartidos
    • +
  • Número: el peso entre dos nodos es igual al número de vecinos más próximos compartidos
    • +
  • Jaccard: el peso entre dos nodos es igual a la similaridad de Jaccard entre los conjuntos de vecinos de estos nodos
    • +
+
+
+

6.5.5 Obteniendo comunidades a partir de una gráfica SNN pesada mediante un algoritmo de clustering

+

A partir de una gráfica SNN pesada podemos aplicar algoritmos para identificar comunidades de células

+

Una comunidad es un grupo de células que están más conectadas a células en el mismo grupo que lo que están a células de un grupo diferente

+

Cada comunidad representa un cluster

+
+

+ +

+
+
+
+

6.5.6 Resumen de clustering basado en grafos

+
    +
  • La construcción y búsqueda de una red KNN es rápida, por lo tanto, es escalable para datasets grandes
    • +
  • Debes evitar obtener conclusiones fuertes acerca de la forma de los clusters o la distribución de células dentro de cada cluster
    • +
  • El algoritmo conecta cada célula con un número mínimo de células vecinas lo cual reduce, más no elimina, el riesgo de clusters no informativos
    • +
+

Después de la construcción del grafo, no se almacena información adicional más alla de las células vecinas. Esto puede producir subclusters artificiales en regiones con muchas células

+
+
+

6.5.7 Detalles a considerar en la implementación

+
    +
  • ¿Cuántas céulas vecinas debo considerar durante la construcción del grafo?
    • +
  • ¿Cómo debo pesar las aristas?
    • +
  • ¿Cuál algoritmo de detección de comunidades se debe usar para definir los clusters?
    • +
+
+
+

6.5.8 Implementación

+
library(scran)
+# Construir grafo usando k= 10 vecinos más cercanos en el espacio definido por el PCA
+g <- buildSNNGraph(sce.pbmc, k = 10, use.dimred = "PCA")
+# Identificar comunidades utilizando el método Walktrap
+clust <- igraph::cluster_walktrap(g)$membership
+
# Visualizar clusters en una gráfica t-SNE 
+library(scater)
+sce.pbmc$cluster <- factor(clust)
+plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster")
+

+

¿Qué pasa si utilizas una k más grande o más pequeña?

+
library(scran)
+#Construir grafo usando k= 50 vecinos más cercanos en el espacio definido por el PCA 
+g50 <- buildSNNGraph(sce.pbmc, k = 50, use.dimred = "PCA")
+# Identificar comunidades utilizando el método Walktrap
+clust50 <- igraph::cluster_walktrap(g50)$membership
+
# Visualizar clusters en una gráfica t-SNE 
+library(scater)
+sce.pbmc$cluster50 <- factor(clust50)
+plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster50")
+

+

En esta implementación:

+
    +
  • La construcción de la red KNN se baso en la distancia Euclideana entre células
    • +
  • La construcción de la red KNN implica que las aristas se crean entre todos los pares de células que comparten por lo menos un vecino
    • +
  • Se utilizó el esquema de peso de: Xu and Su (2015)
    • +
+
+
+

6.5.9 Eligiendo un valor de k

+
    +

  • El valor de k puede ser toscamente interpretado como el tamaño anticipado de la subpoblación más pequeña

    • +

  • Si una subpoblación tiene menos que (k+1) células entonces el método será forzado a construir aristas entre células de esa subpoblación y células de otras subpoblaciones, incrementando el riesgo de que la subpoblación en cuestión no forme su propio cluster

    • +
+
+
+

6.5.10 Una implementación diferente: estilo Seurat

+
# Pesos definidos estilo Jaccard seguidos por clustering de Louvain 
+# aka 'clustering estilo Seurat' 
+g2 <- buildSNNGraph(sce.pbmc, k = 10, use.dimred = "PCA", type = "jaccard")
+clust2 <- igraph::cluster_louvain(g2)$membership
+sce.pbmc$cluster2 <- factor(clust2)
+plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster2")
+

+
+
+

6.5.11 Detalles de las implementaciones más comunes

+

Pipelines basados en Seurat:

+
    +
  • Pesos basados en Jacard
    • +
  • Clustering Louvain
    • +
+

Pipelines basados en Scran:

+
    +
  • Pesos basados en Rangos
    • +
  • Clustering Walktrap
    • +
+

Para detalles sobre la seleccion de parámetros y comparaciones: visitar esta página.

+
library("patchwork")
+
+## Estilo scran vs estilo Seurat
+plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster") +
+plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster2")
+
+Estilo scran vs estilo Seurat. +

+Figure 6.1: Estilo scran vs estilo Seurat. +

+
+
+
+

6.5.12 Otras implementaciones

+

Distintas métricas de distancia

+
g.num <- buildSNNGraph(sce.pbmc, use.dimred = "PCA", type = "number")
+g.jaccard <- buildSNNGraph(sce.pbmc, use.dimred = "PCA", type = "jaccard")
+g.none <- buildKNNGraph(sce.pbmc, use.dimred = "PCA")
+

Distintos métodos de clustering

+
clust.louvain <- igraph::cluster_louvain(g)$membership
+clust.infomap <- igraph::cluster_infomap(g)$membership
+clust.fast <- igraph::cluster_fast_greedy(g)$membership
+clust.labprop <- igraph::cluster_label_prop(g)$membership
+clust.eigen <- igraph::cluster_leading_eigen(g)$membership
+
+
+
+

6.6 Evaluando la separación de los clusters

+

Modularidad es una métrica natural para evaluar la separación entre comunidades/clusters

+

La modularidad se define como la diferencia (escalada) entre el peso total observado de las aristas entre los nodos en el mismo cluster y el peso total esperado si los pesos fueran distribuidos aleatoriamente entre todos los pares de nodos

+

Nosotros calcularemos un score de modularidad para cada cluster usando las tasas en vez de las diferencias, debido a que las tasas no se ven tan fuertemente influenciadas por el tamaño de los clusters

+
library(bluster)
+
+# obteniendo la métrica de modularidad
+ratio <- pairwiseModularity(g, clust, as.ratio = TRUE)
+dim(ratio)
+
## [1] 19 19
+
library(pheatmap)
+pheatmap(log2(ratio + 1),
+    cluster_rows = FALSE,
+    cluster_cols = FALSE,
+    color = colorRampPalette(c("white", "blue"))(100)
+)
+

+

Un dataset que contiene clusters bien separados debería contener la mayoría del peso total observado en las entradas diagonales, i.e la mayoría de las aristas ocurren entre células del mismo cluster

+

Para más detalles sobre evaluación de la separación entre clusters visite esta página

+
+
+

6.7 Otros métodos de clustering

+

Clustering por k-means

+
    +
  • PRO: Rápido
    • +
  • Se debe especificar el número de clusters de antemano
    • +
  • Favorece clusters esféricos
    • +
+

Clustering jerárquico

+
    +
  • Produce un dendograma (árbol) representando las células y la similaridad entre subpoblaciones a varias resoluciones
    • +
  • Demasiado lento para correrse en algo más grande que los datasets más pequeños de scRNA-seq
    • +
+
+
+

6.8 Evaluando la estabilidad de los clusters

+

Una propiedad deseable de cualquier cluster es que éste sea estable a las perturbaciones en los datos de entrada, de esta manera:

+
    +
  • Pequeños cambios en el procesamiento de los datos no cambiarán el resultado
    • +
  • Se incrementa la probabilidad de que las conclusiones puedan ser replicadas en un estudio independiente
    • +
+

Uno puede hacer un proceso de bootstrap para evaluar la estabilidad de un algoritmo de clustering en un dataset dado y calcular la coasignación.

+

La coasignación es la probabilidad de que células elegidas al azar del cluster X y Y sean asignadas al mismo cluster en la réplica del proceso de bootstrap

+
myClusterFUN <- function(x) {
+    g <- buildSNNGraph(x, use.dimred = "PCA", type = "jaccard")
+    igraph::cluster_louvain(g)$membership
+}
+
+originals <- myClusterFUN(sce.pbmc)
+set.seed(0010010100)
+coassign <- bootstrapStability(sce.pbmc,
+    FUN = myClusterFUN,
+    clusters = originals
+)
+
pheatmap(coassign,
+    cluster_row = FALSE, cluster_col = FALSE,
+    color = rev(viridis::magma(100))
+)
+

+

Probabilidad alta de coasignación indica que X es estable con respecto a su separación de Y.

+

Queremos altas probabilidades de coasignación en la diagonal

+

Debes considerar que el bootstraping solo considera el efecto del ruido de muestreo e ignora otros factores que pueden afectar la reproducibilidad (como efectos de batch)

+

Además, una pobre separación puede ser altamente estable

+
+
+

6.9 Subclustering

+
    +

  • Mejora la resolución al repetir el proceso de feature selection y clustering dentro de un único cluster

    • +

  • Se enfoca en los HGVs y PCs que son los más relevantes para un cluster específico

    • +
+

Veamos como se comporta la expresión de ciertos genes en nuestros clusters

+

CD3E, CCR7, CD69, y CD44 son marcadores de células T de memoria.

+
g.full <- buildSNNGraph(sce.pbmc, use.dimred = "PCA")
+clust.full <- igraph::cluster_walktrap(g.full)$membership
+sce.pbmc$clust.full <- factor(clust.full)
+plotExpression(sce.pbmc,
+    features = c("CD3E", "CCR7", "CD69", "CD44"),
+    x = "clust.full", colour_by = "clust.full"
+)
+

+

De esta gráfica deducimos que las células T de memoria se encuentran en el cluster 10

+

Dentro de las células T de memoria, ¿dónde están las subpoblaciones CD4+ y CD8+?

+
# Repetimos TODO el proceso de clustering en el subconjunto de células que hemos identificado como células T de memoria (cluster 10).
+memory <- 10
+sce.memory <- sce.pbmc[, clust.full == memory]
+dec.memory <- modelGeneVar(sce.memory)
+sce.memory <- denoisePCA(sce.memory,
+    technical = dec.memory,
+    subset.row = getTopHVGs(dec.memory, prop = 0.1)
+)
+
+g.memory <- buildSNNGraph(sce.memory, use.dimred = "PCA")
+clust.memory <- igraph::cluster_walktrap(g.memory)$membership
+sce.memory$clust.memory <- factor(clust.memory)
+
plotExpression(sce.memory,
+    features = c("CD8A", "CD4"),
+    x = "clust.memory"
+)
+

+

Expresión de CD4 es bajo, por lo tanto, su cambio es modesto, pero la interpretación es clara

+

Si tipos celulares o estados celulares se extienden sobre las fronteras de los clusters, entonces un subcluster podría representar contaminación de un tipo celular en un cluster separado

+
+
+

6.10 Resumen y recomendaciones

+
    +

  • Un cluster no implica un tipo celular

    • +

  • Nosotros podemos definir tantos clusters como queramos y podemos utilizar el algoritmo que más nos acomode

    • +

  • El clustering, como un microscopio, simplemente es una herramienta para explorar los datos

    • +

  • Preguntar por el mejor clustering es similar a preguntar cuál es la mejor magnificación en un microscopio sin contenido

    • +

  • Clustering basado en grafos es rápido y evita tener que hacer suposiciones fuertes sobre la forma de los clusters o la distribución de las células dentro de cada cluster:

    +
      +

    1. scran::buildSNNGraph()

      2. +

    2. igraph::cluster_walktrap() o igraph::cluster_louvain()

      3. +
    • +

  • Modularidad y estabilidad de los clusters son diagnósticos útiles

    • +

  • El proceso de subclustering podría mejorar la resolución dentro de clusters grandes

    • +
+
+
+

6.11 Dónde estamos

+
+

+ +

+
+
+
+

6.12 Detalles de la sesión de R

+
## Información de la sesión de R
+Sys.time()
+
## [1] "2023-07-31 15:47:25 EDT"
+
proc.time()
+
##     user   system  elapsed 
+##  620.242   22.904 1043.971
+
options(width = 120)
+sessioninfo::session_info()
+
## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
+##  setting  value
+##  version  R version 4.3.1 (2023-06-16)
+##  os       macOS Ventura 13.4.1
+##  system   aarch64, darwin20
+##  ui       RStudio
+##  language (EN)
+##  collate  en_US.UTF-8
+##  ctype    en_US.UTF-8
+##  tz       America/New_York
+##  date     2023-07-31
+##  rstudio  2023.06.0+421 Mountain Hydrangea (desktop)
+##  pandoc   3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown)
+## 
+## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
+##  package                * version   date (UTC) lib source
+##  AnnotationDbi          * 1.62.2    2023-07-02 [1] Bioconductor
+##  AnnotationFilter       * 1.24.0    2023-05-08 [1] Bioconductor
+##  AnnotationHub          * 3.8.0     2023-05-08 [1] Bioconductor
+##  beachmat                 2.16.0    2023-05-08 [1] Bioconductor
+##  beeswarm                 0.4.0     2021-06-01 [1] CRAN (R 4.3.0)
+##  Biobase                * 2.60.0    2023-05-08 [1] Bioconductor
+##  BiocFileCache          * 2.8.0     2023-05-08 [1] Bioconductor
+##  BiocGenerics           * 0.46.0    2023-06-04 [1] Bioconductor
+##  BiocIO                   1.10.0    2023-05-08 [1] Bioconductor
+##  BiocManager              1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0)
+##  BiocNeighbors            1.18.0    2023-05-08 [1] Bioconductor
+##  BiocParallel             1.34.2    2023-05-28 [1] Bioconductor
+##  BiocSingular             1.16.0    2023-05-08 [1] Bioconductor
+##  BiocVersion              3.17.1    2022-12-20 [1] Bioconductor
+##  biomaRt                  2.56.1    2023-06-11 [1] Bioconductor
+##  Biostrings               2.68.1    2023-05-21 [1] Bioconductor
+##  bit                      4.0.5     2022-11-15 [1] CRAN (R 4.3.0)
+##  bit64                    4.0.5     2020-08-30 [1] CRAN (R 4.3.0)
+##  bitops                   1.0-7     2021-04-24 [1] CRAN (R 4.3.0)
+##  blob                     1.2.4     2023-03-17 [1] CRAN (R 4.3.0)
+##  bluster                * 1.10.0    2023-05-08 [1] Bioconductor
+##  bookdown                 0.34      2023-05-09 [1] CRAN (R 4.3.0)
+##  bslib                    0.5.0     2023-06-09 [1] CRAN (R 4.3.0)
+##  cachem                   1.0.8     2023-05-01 [1] CRAN (R 4.3.0)
+##  cli                      3.6.1     2023-03-23 [1] CRAN (R 4.3.0)
+##  cluster                  2.1.4     2022-08-22 [1] CRAN (R 4.3.1)
+##  codetools                0.2-19    2023-02-01 [1] CRAN (R 4.3.1)
+##  colorspace               2.1-0     2023-01-23 [1] CRAN (R 4.3.0)
+##  cowplot                  1.1.1     2020-12-30 [1] CRAN (R 4.3.0)
+##  crayon                   1.5.2     2022-09-29 [1] CRAN (R 4.3.0)
+##  curl                     5.0.1     2023-06-07 [1] CRAN (R 4.3.0)
+##  DBI                      1.1.3     2022-06-18 [1] CRAN (R 4.3.0)
+##  dbplyr                 * 2.3.3     2023-07-07 [1] CRAN (R 4.3.0)
+##  DelayedArray             0.26.6    2023-07-02 [1] Bioconductor
+##  DelayedMatrixStats       1.22.0    2023-05-08 [1] Bioconductor
+##  digest                   0.6.33    2023-07-07 [1] CRAN (R 4.3.0)
+##  dplyr                  * 1.1.2     2023-04-20 [1] CRAN (R 4.3.0)
+##  dqrng                    0.3.0     2021-05-01 [1] CRAN (R 4.3.0)
+##  DropletUtils           * 1.20.0    2023-05-08 [1] Bioconductor
+##  edgeR                    3.42.4    2023-06-04 [1] Bioconductor
+##  ellipsis                 0.3.2     2021-04-29 [1] CRAN (R 4.3.0)
+##  EnsDb.Hsapiens.v86     * 2.99.0    2023-07-29 [1] Bioconductor
+##  ensembldb              * 2.24.0    2023-05-08 [1] Bioconductor
+##  evaluate                 0.21      2023-05-05 [1] CRAN (R 4.3.0)
+##  ExperimentHub            2.8.1     2023-07-16 [1] Bioconductor
+##  fansi                    1.0.4     2023-01-22 [1] CRAN (R 4.3.0)
+##  farver                   2.1.1     2022-07-06 [1] CRAN (R 4.3.0)
+##  fastmap                  1.1.1     2023-02-24 [1] CRAN (R 4.3.0)
+##  filelock                 1.0.2     2018-10-05 [1] CRAN (R 4.3.0)
+##  FNN                      1.1.3.2   2023-03-20 [1] CRAN (R 4.3.0)
+##  generics                 0.1.3     2022-07-05 [1] CRAN (R 4.3.0)
+##  GenomeInfoDb           * 1.36.1    2023-07-02 [1] Bioconductor
+##  GenomeInfoDbData         1.2.10    2023-06-08 [1] Bioconductor
+##  GenomicAlignments        1.36.0    2023-05-08 [1] Bioconductor
+##  GenomicFeatures        * 1.52.1    2023-07-02 [1] Bioconductor
+##  GenomicRanges          * 1.52.0    2023-05-08 [1] Bioconductor
+##  ggbeeswarm               0.7.2     2023-04-29 [1] CRAN (R 4.3.0)
+##  ggplot2                * 3.4.2     2023-04-03 [1] CRAN (R 4.3.0)
+##  ggrepel                * 0.9.3     2023-02-03 [1] CRAN (R 4.3.0)
+##  glue                     1.6.2     2022-02-24 [1] CRAN (R 4.3.0)
+##  gridExtra                2.3       2017-09-09 [1] CRAN (R 4.3.0)
+##  gtable                   0.3.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  HDF5Array                1.28.1    2023-05-08 [1] Bioconductor
+##  here                     1.0.1     2020-12-13 [1] CRAN (R 4.3.0)
+##  highr                    0.10      2022-12-22 [1] CRAN (R 4.3.0)
+##  hms                      1.1.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  htmltools                0.5.5     2023-03-23 [1] CRAN (R 4.3.0)
+##  httpuv                   1.6.11    2023-05-11 [1] CRAN (R 4.3.0)
+##  httr                     1.4.6     2023-05-08 [1] CRAN (R 4.3.0)
+##  igraph                   1.5.0.1   2023-07-23 [1] CRAN (R 4.3.0)
+##  interactiveDisplayBase   1.38.0    2023-05-08 [1] Bioconductor
+##  IRanges                * 2.34.1    2023-07-02 [1] Bioconductor
+##  irlba                    2.3.5.1   2022-10-03 [1] CRAN (R 4.3.0)
+##  jquerylib                0.1.4     2021-04-26 [1] CRAN (R 4.3.0)
+##  jsonlite                 1.8.7     2023-06-29 [1] CRAN (R 4.3.0)
+##  KEGGREST                 1.40.0    2023-05-08 [1] Bioconductor
+##  knitr                    1.43      2023-05-25 [1] CRAN (R 4.3.0)
+##  labeling                 0.4.2     2020-10-20 [1] CRAN (R 4.3.0)
+##  later                    1.3.1     2023-05-02 [1] CRAN (R 4.3.0)
+##  lattice                  0.21-8    2023-04-05 [1] CRAN (R 4.3.1)
+##  lazyeval                 0.2.2     2019-03-15 [1] CRAN (R 4.3.0)
+##  lifecycle                1.0.3     2022-10-07 [1] CRAN (R 4.3.0)
+##  limma                    3.56.2    2023-06-04 [1] Bioconductor
+##  locfit                   1.5-9.8   2023-06-11 [1] CRAN (R 4.3.0)
+##  magrittr                 2.0.3     2022-03-30 [1] CRAN (R 4.3.0)
+##  Matrix                 * 1.6-0     2023-07-08 [1] CRAN (R 4.3.0)
+##  MatrixGenerics         * 1.12.2    2023-07-02 [1] Bioconductor
+##  matrixStats            * 1.0.0     2023-06-02 [1] CRAN (R 4.3.0)
+##  memoise                  2.0.1     2021-11-26 [1] CRAN (R 4.3.0)
+##  metapod                  1.8.0     2023-04-25 [1] Bioconductor
+##  mime                     0.12      2021-09-28 [1] CRAN (R 4.3.0)
+##  munsell                  0.5.0     2018-06-12 [1] CRAN (R 4.3.0)
+##  patchwork              * 1.1.2     2022-08-19 [1] CRAN (R 4.3.0)
+##  PCAtools               * 2.12.0    2023-05-08 [1] Bioconductor
+##  pheatmap               * 1.0.12    2019-01-04 [1] CRAN (R 4.3.0)
+##  pillar                   1.9.0     2023-03-22 [1] CRAN (R 4.3.0)
+##  pkgconfig                2.0.3     2019-09-22 [1] CRAN (R 4.3.0)
+##  plyr                     1.8.8     2022-11-11 [1] CRAN (R 4.3.0)
+##  png                      0.1-8     2022-11-29 [1] CRAN (R 4.3.0)
+##  prettyunits              1.1.1     2020-01-24 [1] CRAN (R 4.3.0)
+##  progress                 1.2.2     2019-05-16 [1] CRAN (R 4.3.0)
+##  promises                 1.2.0.1   2021-02-11 [1] CRAN (R 4.3.0)
+##  ProtGenerics             1.32.0    2023-05-08 [1] Bioconductor
+##  purrr                    1.0.1     2023-01-10 [1] CRAN (R 4.3.0)
+##  R.methodsS3              1.8.2     2022-06-13 [1] CRAN (R 4.3.0)
+##  R.oo                     1.25.0    2022-06-12 [1] CRAN (R 4.3.0)
+##  R.utils                  2.12.2    2022-11-11 [1] CRAN (R 4.3.0)
+##  R6                       2.5.1     2021-08-19 [1] CRAN (R 4.3.0)
+##  rappdirs                 0.3.3     2021-01-31 [1] CRAN (R 4.3.0)
+##  RColorBrewer             1.1-3     2022-04-03 [1] CRAN (R 4.3.0)
+##  Rcpp                     1.0.11    2023-07-06 [1] CRAN (R 4.3.0)
+##  RCurl                    1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0)
+##  reshape2                 1.4.4     2020-04-09 [1] CRAN (R 4.3.0)
+##  restfulr                 0.0.15    2022-06-16 [1] CRAN (R 4.3.0)
+##  rhdf5                    2.44.0    2023-05-08 [1] Bioconductor
+##  rhdf5filters             1.12.1    2023-05-08 [1] Bioconductor
+##  Rhdf5lib                 1.22.0    2023-05-08 [1] Bioconductor
+##  rjson                    0.2.21    2022-01-09 [1] CRAN (R 4.3.0)
+##  rlang                    1.1.1     2023-04-28 [1] CRAN (R 4.3.0)
+##  rmarkdown                2.23      2023-07-01 [1] CRAN (R 4.3.0)
+##  rprojroot                2.0.3     2022-04-02 [1] CRAN (R 4.3.0)
+##  Rsamtools                2.16.0    2023-06-04 [1] Bioconductor
+##  RSQLite                  2.3.1     2023-04-03 [1] CRAN (R 4.3.0)
+##  rstudioapi               0.15.0    2023-07-07 [1] CRAN (R 4.3.0)
+##  rsvd                     1.0.5     2021-04-16 [1] CRAN (R 4.3.0)
+##  rtracklayer              1.60.0    2023-05-08 [1] Bioconductor
+##  Rtsne                    0.16      2022-04-17 [1] CRAN (R 4.3.0)
+##  S4Arrays                 1.0.4     2023-05-14 [1] Bioconductor
+##  S4Vectors              * 0.38.1    2023-05-08 [1] Bioconductor
+##  sass                     0.4.7     2023-07-15 [1] CRAN (R 4.3.0)
+##  ScaledMatrix             1.8.1     2023-05-08 [1] Bioconductor
+##  scales                   1.2.1     2022-08-20 [1] CRAN (R 4.3.0)
+##  scater                 * 1.28.0    2023-04-25 [1] Bioconductor
+##  scran                  * 1.28.2    2023-07-23 [1] Bioconductor
+##  scRNAseq               * 2.14.0    2023-04-27 [1] Bioconductor
+##  scuttle                * 1.9.4     2023-01-23 [1] Bioconductor
+##  sessioninfo              1.2.2     2021-12-06 [1] CRAN (R 4.3.0)
+##  shiny                    1.7.4.1   2023-07-06 [1] CRAN (R 4.3.0)
+##  SingleCellExperiment   * 1.22.0    2023-05-08 [1] Bioconductor
+##  sparseMatrixStats        1.12.2    2023-07-02 [1] Bioconductor
+##  statmod                  1.5.0     2023-01-06 [1] CRAN (R 4.3.0)
+##  stringi                  1.7.12    2023-01-11 [1] CRAN (R 4.3.0)
+##  stringr                  1.5.0     2022-12-02 [1] CRAN (R 4.3.0)
+##  SummarizedExperiment   * 1.30.2    2023-06-06 [1] Bioconductor
+##  tibble                   3.2.1     2023-03-20 [1] CRAN (R 4.3.0)
+##  tidyselect               1.2.0     2022-10-10 [1] CRAN (R 4.3.0)
+##  utf8                     1.2.3     2023-01-31 [1] CRAN (R 4.3.0)
+##  uwot                     0.1.16    2023-06-29 [1] CRAN (R 4.3.0)
+##  vctrs                    0.6.3     2023-06-14 [1] CRAN (R 4.3.0)
+##  vipor                    0.4.5     2017-03-22 [1] CRAN (R 4.3.0)
+##  viridis                  0.6.4     2023-07-22 [1] CRAN (R 4.3.0)
+##  viridisLite              0.4.2     2023-05-02 [1] CRAN (R 4.3.0)
+##  withr                    2.5.0     2022-03-03 [1] CRAN (R 4.3.0)
+##  xfun                     0.39      2023-04-20 [1] CRAN (R 4.3.0)
+##  XML                      3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0)
+##  xml2                     1.3.5     2023-07-06 [1] CRAN (R 4.3.0)
+##  xtable                   1.8-4     2019-04-21 [1] CRAN (R 4.3.0)
+##  XVector                  0.40.0    2023-05-08 [1] Bioconductor
+##  yaml                     2.3.7     2023-01-23 [1] CRAN (R 4.3.0)
+##  zlibbioc                 1.46.0    2023-05-08 [1] Bioconductor
+## 
+##  [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library
+## 
+## ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/compilaci\303\263n-e-instalaci\303\263n-de-paquetes.html" "b/docs/compilaci\303\263n-e-instalaci\303\263n-de-paquetes.html" new file mode 100644 index 0000000..cc29bf3 --- /dev/null +++ "b/docs/compilaci\303\263n-e-instalaci\303\263n-de-paquetes.html" @@ -0,0 +1,510 @@ + + + + + + + 16 Compilación e instalación de paquetes | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

16 Compilación e instalación de paquetes

+

Joselyn Chávez

+

10 de agosto de 2023

+
+

16.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/control-de-calidad.html b/docs/control-de-calidad.html new file mode 100644 index 0000000..17c2e66 --- /dev/null +++ b/docs/control-de-calidad.html @@ -0,0 +1,1331 @@ + + + + + + + 2 2. Control de calidad | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

2 2. Control de calidad

+

Dra. Evelia Coss

+

07 de agosto de 2023

+
+

2.1 2.1 Material y Diapositivas

+

Diapositivas de Peter Hickey: Ve las diapositivas aqui.

+

Curso 2021 impartido por Leonardo Collado Torres: [Ver informacion] aqui(https://comunidadbioinfo.github.io/cdsb2021_scRNAseq/control-de-calidad.html)

+

+
+
+

2.2 2.2 Enfoques o Ideas principales

+

Detectar células verdaderas y de alta calidad ✅🍪, de modo que cuando agrupemos nuestras células sea más fácil identificar poblaciones de tipos celulares distintos.

+

Identificar las muestras fallidas e intentar salvar los datos o eliminarlas del análisis, además de intentar comprender por qué falló la muestra.

+
+
+

2.3 2.3 ¿Por qué hay problemas con los datos?

+
    +
  • Problemas con el rompimiento de las células
    • +
  • Fallos en la preparación de las bibliotecas (ineficiencias en la transcripción inversa, amplificacion por PCR, etc).
    • +
  • Más de una célula durante la secuenciación (douplets o multiplets).
    • +
  • Problemas en el alineamiento.
    • +
+
+
+

2.4 2.4 Preguntas Básicas en Control de Calidad

+

Se responden durante el análisis de SingleCell RNA-Seq.

+
    +
  • ¿Cuántos droplets traen más de una célula? (douplets 🍪🍪 o multiplets 🍪🍪🍪).
    • +
  • ¿Cuántas células murieron durante el proceso de secuenciacion?
    • +
+

Cada droplets debe contener una sola célula 🍪.

+

+Figura obtenida de Single-Cell best practices.

+
+
+

2.5 2.5 La mala calidad en los datos puede ser debida a varios factores

+

Una o varias células podemos encontrar:

+
    +
  • ⚠️ Baja cantidad de cuentas totales
    • +
  • ⚠️ Baja cantidad de genes expresados
    • +
  • ⚠️ Alta proporción de cuentas (reads) provenientes de la mitocondria
    • +
  • ⚠️ Alta proporción de cuentas provenientes de las secuencias control (ERCC spike-in control transcripts)
    • +
+

Mas informacion sobre ERCC spike-in control transcripts.

+
+
+

2.6 2.6 Recomendaciones

+
    +
  • Tener un correcto diseño experimental (evitar efecto bash). 👾
    • +
  • Correcta preparación de las muestras. 🎮
    • +
  • Analizar la calidad de los datos. 🍪
    • +
+
+
+

2.7 2.7 Tipos de filtros

+
    +
  • Fixed thresholds: Valores de corte fijos y estrictos (FDR < 0.5) ♠️
    • +
  • Adaptative thresholds: Valores de cortes adaptados al comportamiento de nuestros datos.♦️
    • +
+
+
+

2.8 2.8 Parámetros empleados para evaluar la calidad con la función addPerCellQC

+

La función addPerCellQC provenie del paquete scater. Agrega las siguientes metricas en cada célula y por cada gen dentro del mismo archivo.

+
    +
  • sum: Número de cuentas (lecturas) totales de cada célula.
    • +
  • detected: Genes expresados con al menos una cuenta.
    • +
  • altexps_ERCC_percent: Porcentaje de cuentas mapeadas de las secuencias control (ERCC spike-in control transcripts).
    • +
  • subsets_Mito_percent: Porcentaje de cuentas mapeadas provenientes de la mitocondria.
    • +
+
+
+

2.9 2.9 Ejemplo: linea celular 416 en ratón

+

Realizaremos las siguientes actividades con este ejemplo:

+
    +
  • Eliminar células de baja calidad.
    • +
  • Comparar entre los tipos de filtros (Fixed thresholds y Adaptative thresholds).
    • +
  • Filtrar células baja calidad
    • +
  • Visualización de datos crudos y filtrados
    • +
+

+Línea celular de células mieloides progenitoras inmortalizadas de ratón usando SmartSeq2.

+
+
+

2.10 2.9.1 Paquetes e Importar los datos en R

+

Los paquetes que vamos a emplear para esta sección son:

+
library(scRNAseq) ## para descargar datos de ejemplo
+library(DropletUtils) ## para detectar droplets 
+library(Matrix) ## para leer datos en formatos comprimidos
+library(AnnotationHub) ## para obtener información de genes
+library(scater) ## para gráficas y control de calidad
+library(BiocFileCache) ## para descargar datos
+library(EnsDb.Hsapiens.v86) ## Archivo de anotacion en humanos en Ensembl
+library(dplyr) ## Modificacion de archivos dataframe
+

Cargar los datos empleando el paquete scRNAseq

+
sce.416b <- LunSpikeInData(which = "416b")
+
## snapshotDate(): 2023-04-24
+
## see ?scRNAseq and browseVignettes('scRNAseq') for documentation
+
## loading from cache
+
## see ?scRNAseq and browseVignettes('scRNAseq') for documentation
+
## loading from cache
+
## see ?scRNAseq and browseVignettes('scRNAseq') for documentation
+
## loading from cache
+
## snapshotDate(): 2023-04-24
+
## see ?scRNAseq and browseVignettes('scRNAseq') for documentation
+
## loading from cache
+
## snapshotDate(): 2023-04-24
+
## loading from cache
+
# Conversion a factor, evitemos mensajes de error
+sce.416b$block <- factor(sce.416b$block)
+

El paquete scRNAseq contiene multiples data sets compilados en funciones, para saber mas da click aqui.

+
+
+

2.11 2.9.2 Anotación de genes

+
ah <- AnnotationHub()
+
## snapshotDate(): 2023-04-24
+
query(ah, c("Mus musculus", "Ensembl", "v97"))
+
## AnnotationHub with 1 record
+## # snapshotDate(): 2023-04-24
+## # names(): AH73905
+## # $dataprovider: Ensembl
+## # $species: Mus musculus
+## # $rdataclass: EnsDb
+## # $rdatadateadded: 2019-05-02
+## # $title: Ensembl 97 EnsDb for Mus musculus
+## # $description: Gene and protein annotations for Mus musculus based on Ensembl version 97.
+## # $taxonomyid: 10090
+## # $genome: GRCm38
+## # $sourcetype: ensembl
+## # $sourceurl: http://www.ensembl.org
+## # $sourcesize: NA
+## # $tags: c("97", "AHEnsDbs", "Annotation", "EnsDb", "Ensembl", "Gene", "Protein", "Transcript") 
+## # retrieve record with 'object[["AH73905"]]'
+
# Anotacion de genes con la localizacion de cada cromosoma
+ens.mm.v97 <- ah[["AH73905"]] # solo un cromosoma
+
## loading from cache
+
location <- mapIds(ens.mm.v97, keys=rownames(sce.416b),
+    keytype="GENEID", column="SEQNAME")
+
## Warning: Unable to map 563 of 46604 requested IDs.
+
# deteccion de genes mitocondriales
+is.mito <- which(location=="MT")
+
+
+

2.12 2.9.3 Análisis de calidad con addPerCellQC

+

Al imprimir la variable sce.416b podemos observar que es de tipo SingleCellExperiment.

+
# Agregar la informacion de la calidad por cada gen y celula en un mismo archivo
+# Identificar genes mitocondriales
+sce.416b <- addPerCellQC(sce.416b,
+    subsets = list(Mito = is.mito)
+)
+sce.416b
+
## class: SingleCellExperiment 
+## dim: 46604 192 
+## metadata(0):
+## assays(1): counts
+## rownames(46604): ENSMUSG00000102693 ENSMUSG00000064842 ... ENSMUSG00000095742 CBFB-MYH11-mcherry
+## rowData names(1): Length
+## colnames(192): SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 ...
+##   SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1
+## colData names(21): Source Name cell line ... altexps_SIRV_percent total
+## reducedDimNames(0):
+## mainExpName: endogenous
+## altExpNames(2): ERCC SIRV
+

Podemos observar la informacion de este data frame usando colData:

+
# observar la informacion contenida en el dataframe
+colData(sce.416b)
+
## DataFrame with 192 rows and 21 columns
+##                                                  Source Name   cell line           cell type single cell well quality
+##                                                  <character> <character>         <character>              <character>
+## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1  SLX-9555.N701_S502.C..        416B embryonic stem cell                       OK
+## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1  SLX-9555.N701_S503.C..        416B embryonic stem cell                       OK
+## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1  SLX-9555.N701_S504.C..        416B embryonic stem cell                       OK
+## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1  SLX-9555.N701_S505.C..        416B embryonic stem cell                       OK
+## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1  SLX-9555.N701_S506.C..        416B embryonic stem cell                       OK
+## ...                                                      ...         ...                 ...                      ...
+## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S505...        416B embryonic stem cell                       OK
+## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S506...        416B embryonic stem cell                       OK
+## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S507...        416B embryonic stem cell                       OK
+## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S508...        416B embryonic stem cell                       OK
+## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S517...        416B embryonic stem cell                       OK
+##                                                     genotype              phenotype      strain spike-in addition
+##                                                  <character>            <character> <character>       <character>
+## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1  Doxycycline-inducibl..    wild type phenotype    B6D2F1-J         ERCC+SIRV
+## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1  Doxycycline-inducibl..    wild type phenotype    B6D2F1-J         ERCC+SIRV
+## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1  Doxycycline-inducibl..    wild type phenotype    B6D2F1-J         ERCC+SIRV
+## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1  Doxycycline-inducibl.. induced CBFB-MYH11 o..    B6D2F1-J         ERCC+SIRV
+## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1  Doxycycline-inducibl.. induced CBFB-MYH11 o..    B6D2F1-J         ERCC+SIRV
+## ...                                                      ...                    ...         ...               ...
+## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o..    B6D2F1-J          Premixed
+## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o..    B6D2F1-J          Premixed
+## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o..    B6D2F1-J          Premixed
+## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o..    B6D2F1-J          Premixed
+## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl..    wild type phenotype    B6D2F1-J          Premixed
+##                                          block       sum  detected subsets_Mito_sum subsets_Mito_detected
+##                                       <factor> <numeric> <numeric>        <numeric>             <numeric>
+## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1  20160113    865936      7618            78790                    20
+## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1  20160113   1076277      7521            98613                    20
+## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1  20160113   1180138      8306           100341                    19
+## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1  20160113   1342593      8143           104882                    20
+## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1  20160113   1668311      7154           129559                    22
+## ...                                        ...       ...       ...              ...                   ...
+## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 20160325    776622      8174            48126                    20
+## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 20160325   1299950      8956           112225                    25
+## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 20160325   1800696      9530           135693                    23
+## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 20160325     46731      6649             3505                    16
+## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 20160325   1866692     10964           150375                    29
+##                                       subsets_Mito_percent altexps_ERCC_sum altexps_ERCC_detected altexps_ERCC_percent
+##                                                  <numeric>        <numeric>             <numeric>            <numeric>
+## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1               9.09882            65278                    39              6.80658
+## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1               9.16242            74748                    40              6.28030
+## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1               8.50248            60878                    42              4.78949
+## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1               7.81190            60073                    42              4.18567
+## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1               7.76588           136810                    44              7.28887
+## ...                                                    ...              ...                   ...                  ...
+## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1              6.19684            61575                    39              7.17620
+## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1              8.63302            94982                    41              6.65764
+## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1              7.53559           113707                    40              5.81467
+## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1              7.50037             7580                    44             13.48898
+## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1              8.05569            48664                    39              2.51930
+##                                       altexps_SIRV_sum altexps_SIRV_detected altexps_SIRV_percent     total
+##                                              <numeric>             <numeric>            <numeric> <numeric>
+## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1             27828                     7              2.90165    959042
+## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1             39173                     7              3.29130   1190198
+## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1             30058                     7              2.36477   1271074
+## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1             32542                     7              2.26741   1435208
+## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1             71850                     7              3.82798   1876971
+## ...                                                ...                   ...                  ...       ...
+## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1            19848                     7             2.313165    858045
+## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1            31729                     7             2.224004   1426661
+## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1            41116                     7             2.102562   1955519
+## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1             1883                     7             3.350892     56194
+## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1            16289                     7             0.843271   1931645
+
# Ver el nombre de las columnas
+colnames(colData(sce.416b))
+
##  [1] "Source Name"              "cell line"                "cell type"                "single cell well quality"
+##  [5] "genotype"                 "phenotype"                "strain"                   "spike-in addition"       
+##  [9] "block"                    "sum"                      "detected"                 "subsets_Mito_sum"        
+## [13] "subsets_Mito_detected"    "subsets_Mito_percent"     "altexps_ERCC_sum"         "altexps_ERCC_detected"   
+## [17] "altexps_ERCC_percent"     "altexps_SIRV_sum"         "altexps_SIRV_detected"    "altexps_SIRV_percent"    
+## [21] "total"
+
+

2.12.1 Preguntas sobre los datos

+
    +
  • ¿Cuántas células detectadas se encuentran en el dataframe sce.416b?
    • +
  • ¿Cuántos genes fueron analizados con almenos una cuenta?
    • +
+
+
+
+

2.13 2.9.4 Visualización de los datos crudos

+

Genes detectados en cada uno de los bloques de secuenciación.

+
plotColData(sce.416b, x = "block", y = "detected")
+

+

Genes detectados por cada tratamiento en cada bloque de secuenciación.

+
plotColData(sce.416b,
+    x = "block",
+    y = "detected",
+    other_fields = "phenotype"
+) +
+    scale_y_log10() +  # Cambiar la escala en Y a logaritmo
+    facet_wrap(~phenotype) + # Dividir tratamiento
+    labs(x = "Bloques de secuenciación", y="Genes detectados \n(log)", title = "Genes detectados") # Etiquetas en X, Y y titulo
+

+
+
+

2.14 2.9.5 Filtro A: Fixed thresholds

+

Para el filtrado y eliminación de las células de baja calidad emplearemos las variables sum, detected, altexps_ERCC_percent y +subsets_Mito_percent.

+
# --- Fixed thresholds ---
+# Valores de corte fijos y estrictos
+qc.lib <- sce.416b$sum < 100000 # menos de 100 mil cuentas (lecturas)
+qc.nexprs <- sce.416b$detected < 5000 # menos de 5 mil genes
+qc.spike <- sce.416b$altexps_ERCC_percent > 10 # 10 % de las cuentas alineando a ERCC
+qc.mito <- sce.416b$subsets_Mito_percent > 10 # 10 % alineando al genoma mitocondrial
+discard <- qc.lib | qc.nexprs | qc.spike | qc.mito # si falla alguno de estos eliminarlo
+
+# secuencias control = (ERCC spike-in control transcripts)
+
+# Resumen del número de células
+# Número de células eliminadas por cada filtro
+DataFrame(
+    LibSize = sum(qc.lib),
+    NExprs = sum(qc.nexprs),
+    SpikeProp = sum(qc.spike),
+    MitoProp = sum(qc.mito),
+    Total = sum(discard)
+)
+
## DataFrame with 1 row and 5 columns
+##     LibSize    NExprs SpikeProp  MitoProp     Total
+##   <integer> <integer> <integer> <integer> <integer>
+## 1         3         0        19        14        33
+
+
+

2.15 2.9.5 Filtro B: Adaptative thresholds

+

Valores de cortes adaptados al comportamiento de nuestros datos.

+
# --- Adaptative thresholds ---
+## Usando isOutlier() para determinar los valores de corte
+qc.lib2 <- isOutlier(sce.416b$sum, log = TRUE, type = "lower")
+qc.nexprs2 <- isOutlier(sce.416b$detected,
+    log = TRUE,
+    type = "lower"
+)
+qc.spike2 <- isOutlier(sce.416b$altexps_ERCC_percent,
+    type = "higher"
+)
+qc.mito2 <- isOutlier(sce.416b$subsets_Mito_percent,
+    type = "higher"
+)
+discard2 <- qc.lib2 | qc.nexprs2 | qc.spike2 | qc.mito2
+
+# Extraemos los límites de valores (thresholds)
+attr(qc.lib2, "thresholds")
+
##    lower   higher 
+## 434082.9      Inf
+
##    lower   higher 
+## 434082.9      Inf
+attr(qc.nexprs2, "thresholds")
+
##    lower   higher 
+## 5231.468      Inf
+
##    lower   higher 
+## 5231.468      Inf
+# Obtenemos un resumen del número de células
+# eliminadas por cada filtro
+DataFrame(
+    LibSize = sum(qc.lib2),
+    NExprs = sum(qc.nexprs2),
+    SpikeProp = sum(qc.spike2),
+    MitoProp = sum(qc.mito2),
+    Total = sum(discard2)
+)
+
## DataFrame with 1 row and 5 columns
+##     LibSize    NExprs SpikeProp  MitoProp     Total
+##   <integer> <integer> <integer> <integer> <integer>
+## 1         4         0         1         2         6
+
+

2.15.1 Preguntas por resolver

+
    +
  • ¿Cuántos células se descartan con cada filtro?
    • +
  • ¿Cuántas células se comparten entre ambos filtros?
    • +
  • ¿Existen células que el filtro adaptativo excluyera y que no lo hiciera el filtro estricto?
    • +
+
addmargins(table(discard, discard2))
+
##        discard2
+## discard FALSE TRUE Sum
+##   FALSE   159    0 159
+##   TRUE     27    6  33
+##   Sum     186    6 192
+
+
+
+

2.16 2.10 ¿Cómo funciona isOutlier()?

+

Supongamos que la mayor parte del conjunto de datos está formado por células de alta calidad 1

+
    +
  • (Opcional: log-transformar la métrica QC) 1.
    • +
  • Calcular la mediana de la métrica QC
    • +
  • Calcular la desviación absoluta de la mediana (MAD2) de la QC
    • +
  • Identifique los valores atípicos como aquellas celdas con una métrica QC a más de 3 MAD3 de la mediana en la dirección “problemática”. +
      +
    • Puede controlar cuántas MAD son aceptables
      • +
    • Puede decidir qué dirección es problemática
      • +
    • +
+

QC = Quality Control +1 But we’ll relax that assumption in a few moments +2 MAD is similar to standard deviation +3 Loosely, 3 MADs will retain 99% of non-outliers values that follow a Normal distribution.

+

Figura explicativa, Diapositiva 24.

+
+
+

2.17 2.11 Consideran el Batch

+
## Determino el bloque (batch) de muestras
+batch <- paste0(sce.416b$phenotype, "-", sce.416b$block)
+
+## Versión de isOutlier() que toma en cuenta los bloques de muestras
+qc.lib3 <- isOutlier(sce.416b$sum,
+    log = TRUE,
+    type = "lower",
+    batch = batch
+)
+qc.nexprs3 <- isOutlier(sce.416b$detected,
+    log = TRUE,
+    type = "lower",
+    batch = batch
+)
+
+qc.spike3 <- isOutlier(sce.416b$altexps_ERCC_percent,
+    type = "higher",
+    batch = batch
+)
+qc.mito3 <- isOutlier(sce.416b$subsets_Mito_percent,
+    type = "higher",
+    batch = batch
+)
+discard3 <- qc.lib3 | qc.nexprs3 | qc.spike3 | qc.mito3
+
+# Extraemos los límites de valores (thresholds)
+attr(qc.lib3, "thresholds")
+
##        induced CBFB-MYH11 oncogene expression-20160113 induced CBFB-MYH11 oncogene expression-20160325
+## lower                                         461073.1                                        399133.7
+## higher                                             Inf                                             Inf
+##        wild type phenotype-20160113 wild type phenotype-20160325
+## lower                      599794.9                     370316.5
+## higher                          Inf                          Inf
+
# Obtenemos un resumen del número de células
+# eliminadas por cada filtro
+DataFrame(
+    LibSize = sum(qc.lib3),
+    NExprs = sum(qc.nexprs3),
+    SpikeProp = sum(qc.spike3),
+    MitoProp = sum(qc.mito3),
+    Total = sum(discard3)
+)
+
## DataFrame with 1 row and 5 columns
+##     LibSize    NExprs SpikeProp  MitoProp     Total
+##   <integer> <integer> <integer> <integer> <integer>
+## 1         5         4         6         2         9
+
+
+

2.18 2.12 Visualizacion grafica de las celulas de buena calidad

+

Usaremos el filtro estricto y visualizaremos la distribucion de los datos.

+
# Reducir el nombre en los fenotipos /  tratamientos
+sce.416b_edited <- sce.416b
+  
+sce.416b_edited$phenotype <- ifelse(grepl("induced", sce.416b_edited$phenotype),
+    "induced", "wild type")
+# Verificar
+ unique(sce.416b_edited$phenotype)
+
## [1] "wild type" "induced"
+
 # Agregar columna de genes descartados
+sce.416b_edited$discard <- discard
+
+# Visualizacion grafica
+plotColData(sce.416b_edited, x="block", y="sum", colour_by="discard",
+        other_fields="phenotype") + facet_wrap(~phenotype) +
+      labs(x = "Bloques de secuenciacion", y="Cuentas totales", title = "Numero de cuentas") # Etiquetas en X, Y y titulo
+

+Visualizacion de todas las variables en una sola grafica.

+
# Visualizacion grafica
+gridExtra::grid.arrange(
+    plotColData(sce.416b_edited, x="block", y="sum", colour_by="discard",
+        other_fields="phenotype") + facet_wrap(~phenotype) + 
+        scale_y_log10() + labs(x = "Bloques de secuenciacion", y="Cuentas totales", title = "Numero de cuentas"), # Etiquetas en X, Y y titulo
+    plotColData(sce.416b_edited, x="block", y="detected", colour_by="discard", 
+        other_fields="phenotype") + facet_wrap(~phenotype) + 
+        scale_y_log10() + labs(x = "Bloques de secuenciacion", y="Genes expresados", title = "Numero de genes /n(log)"), # Etiquetas en X, Y y titulo
+    plotColData(sce.416b_edited, x="block", y="subsets_Mito_percent", 
+        colour_by="discard", other_fields="phenotype") + 
+        facet_wrap(~phenotype) + labs(x = "Bloques de secuenciacion", y="Porcentaje de genes mitocondriales /n(%)", title = "Contenido mitocondrial"), # Etiquetas en X, Y y titulo
+    plotColData(sce.416b_edited, x="block", y="altexps_ERCC_percent", 
+        colour_by="discard", other_fields="phenotype") + 
+        facet_wrap(~phenotype) + labs(x = "Bloques de secuenciacion", y="Porcentaje de ERCC /n(%)", title = "Contenido de ERCC"), # Etiquetas en X, Y y titulo,
+    ncol=1
+)
+

+

Otra grafica de visualizacion grafica es:

+
plotColData(
+    sce.416b_edited,
+    x = "sum",
+    y = "subsets_Mito_percent",
+    colour_by = "discard",
+    other_fields = c("block", "phenotype")
+) +
+    facet_grid(block ~ phenotype)
+

+
+
+

2.19 2.13 Identificando droplets vacíos con datos de PBMC

+
+
+

2.20 2.13.1 Conceptos basicos

+

+Descripción gráfica la tecnología Next GEM de 10x Genomics. Fuente: 10x Genomics.

+

+

Opciones algorítmicas para detecar los droplets vacíos. Fuente: Lun et al, Genome Biology, 2019.

+
+
+

2.21 2.13.2 Informacion de los datos

+

+

El dataset provenie de celulas humanas, senalando un total de 4,340 celulas con buena calidad. Para mas informacion consulta la pagina web en 10Xgenomics.

+

A continuacion te presento el reporte de este dataset.

+

+

Captura del reporte de secuenciacion del dataset.

+

10Xgenomics realiza un alineamiento genomico con STAR y emplea CellRanger para realizar la limpieza y cuantificacion de los datos. Encontrado la informacion dividia en dos carpetas importantes:

+
    +
  1. Gene/cell matrix (raw): Contiene toda la informacion posterios al alineamiento, sin limpiar. Contiene toda la informacion, contemplando la presencia de doplets vacios.
    2. +
  2. Gene/cell matrix (filtered): Contiene los datos filtrados por CellRanger.
    3. +
+

Dejo a tu consideracion la posibilidad de emplear alguno de estos archivos. Ambas carpetas contienen 3 archivos importantes para el analisis de los datos:

+
    +
  • barcode.tsv = Secuencia que define a cada celula por identificadores de cada celula.
    • +
  • feature.tsv = genes los identfiicadores, se les mio expresion
    • +
  • matrix.mtx = Union entre las secuencias y genes.
    • +
+

+## 2.13.3 Importar datos en R

+

Almacenaremos la informacion de 10Xgenomics en la memoria Cache de la computadora y posteriormente lo almacenaremos en una variable.

+
# Datos crudos, sin procesar
+bfc <- BiocFileCache()
+raw.path <- bfcrpath(bfc, file.path(
+    "http://cf.10xgenomics.com/samples",
+    "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz"
+    
+))
+untar(raw.path, exdir = file.path(tempdir(), "pbmc4k"))
+
# Archivos contenidos en Temporales
+test_dir <- tempdir()
+test_dir <- paste0(test_dir, "/pbmc4k/raw_gene_bc_matrices/GRCh38")
+list.files(test_dir) # Encontraremos 3 tipos de archivos: barcodes.tsv, genes.tsv y matrix.mtx
+
## [1] "barcodes.tsv" "genes.tsv"    "matrix.mtx"
+
# Cargar datos
+fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38")
+sce.pbmc <- read10xCounts(fname, col.names = TRUE) # Cargar datos de 10Xgenomics de CellRanger
+sce.pbmc
+
## class: SingleCellExperiment 
+## dim: 33694 737280 
+## metadata(1): Samples
+## assays(1): counts
+## rownames(33694): ENSG00000243485 ENSG00000237613 ... ENSG00000277475 ENSG00000268674
+## rowData names(2): ID Symbol
+## colnames(737280): AAACCTGAGAAACCAT-1 AAACCTGAGAAACCGC-1 ... TTTGTCATCTTTAGTC-1 TTTGTCATCTTTCCTC-1
+## colData names(2): Sample Barcode
+## reducedDimNames(0):
+## mainExpName: NULL
+## altExpNames(0):
+

Contiene 737280 droplets, aun sin filtrar y Evaluando un total de 33,694 genes en este dataset.

+

Si quisieras descargar estos mismos datos pero filtrados, te dejo la ruta:

+
# Datos filtrados, sin celulas muertas, sin un alto contenido mitocondrial, sin droplets vacios o con multiples celulas
+bfc <- BiocFileCache()
+raw.path <- bfcrpath(bfc, file.path(
+    "http://cf.10xgenomics.com/samples",
+    "cell-exp/2.1.0/pbmc4k/pbmc4k_filtered_gene_bc_matrices.tar.gz"
+    
+))
+untar(raw.path, exdir = file.path(tempdir(), "pbmc4k"))
+
+
+

2.22 2.13.4 Visualizacion de droplets vacios

+
bcrank <- barcodeRanks(counts(sce.pbmc))
+bcrank
+
## DataFrame with 737280 rows and 3 columns
+##                         rank     total    fitted
+##                    <numeric> <integer> <numeric>
+## AAACCTGAGAAACCAT-1    219086         1        NA
+## AAACCTGAGAAACCGC-1    504862         0        NA
+## AAACCTGAGAAACCTA-1    219086         1        NA
+## AAACCTGAGAAACGAG-1    504862         0        NA
+## AAACCTGAGAAACGCC-1    219086         1        NA
+## ...                      ...       ...       ...
+## TTTGTCATCTTTACAC-1    150232         2        NA
+## TTTGTCATCTTTACGT-1     26415        33        NA
+## TTTGTCATCTTTAGGG-1    504862         0        NA
+## TTTGTCATCTTTAGTC-1    504862         0        NA
+## TTTGTCATCTTTCCTC-1    219086         1        NA
+
# Mostremos solo los puntos únicos para acelerar
+# el proceso de hacer esta gráfica
+uniq <- !duplicated(bcrank$rank)
+plot(
+    bcrank$rank[uniq],
+    bcrank$total[uniq],
+    log = "xy",
+    xlab = "Rank",
+    ylab = "Total UMI count",
+    cex.lab = 1.2
+)
+
## Warning in xy.coords(x, y, xlabel, ylabel, log): 1 y value <= 0 omitted from logarithmic plot
+
# Agregarle los puntos de corte
+abline(
+    h = metadata(bcrank)$inflection,
+    col = "darkgreen",
+    lty = 2
+)
+abline(
+    h = metadata(bcrank)$knee,
+    col = "dodgerblue",
+    lty = 2
+)
+legend(
+    "bottomleft",
+    legend = c("Inflection", "Knee"),
+    col = c("darkgreen", "dodgerblue"),
+    lty = 2,
+    cex = 1.2
+)
+

+UMI = Secuencia unica de cada union en la bead (unique molecular identifiers).

+

Encontremos los droplets vacíos usando emptyDrops(). Los siguientes pasos demoran un tiempo.

+
## Usemos DropletUtils para encontrar los droplets
+set.seed(100)
+e.out <- emptyDrops(counts(sce.pbmc))
+
+# Revisa ?emptyDrops para una explicación de porque hay valores NA
+summary(e.out$FDR <= 0.001)
+
##    Mode   FALSE    TRUE    NA's 
+## logical    1006    4283  731991
+
set.seed(100)
+limit <- 100
+all.out <-
+    emptyDrops(counts(sce.pbmc), lower = limit, test.ambient = TRUE)
+
+# Idealmente, este histograma debería verse uniforme.
+# Picos grandes cerca de cero indican que los _barcodes_
+# con un número total de cuentas menor a "lower" no son
+# de origen ambiental.
+hist(all.out$PValue[all.out$Total <= limit &
+    all.out$Total > 0],
+xlab = "P-value",
+main = "",
+col = "grey80"
+)
+

+
+
+

2.23 2.13.5 Anotacion de genes y eliminacion de doples vacios

+
# Anotación de los genes
+rownames(sce.pbmc) <- uniquifyFeatureNames(
+    rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol
+)
+
+location <- mapIds(EnsDb.Hsapiens.v86,
+    keys = rowData(sce.pbmc)$ID,
+    column = "SEQNAME", keytype = "GENEID"
+)
+
## Warning: Unable to map 144 of 33694 requested IDs.
+
# Detección de _droplets_ con células
+set.seed(100)
+sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)]
+
+
+

2.24 2.13.6 Control de calidad

+
# Obtener las estadisticas en un archivo aparte
+stats <- perCellQCMetrics(sce.pbmc,
+    subsets = list(Mito = which(location == "MT"))
+)
+high.mito <- isOutlier(stats$subsets_Mito_percent,
+    type = "higher"
+)
+
+# Eliminar secuencias con alto contenido de genes mitocondriales
+sce.pbmc <- sce.pbmc[, !high.mito]
+
+
+

2.25 2.14 Visualizacion de los datos con ISEE

+ +
+
+

2.26 2.15 Detalles de la sesión de R

+
## Información de la sesión de R
+Sys.time()
+
## [1] "2023-07-31 15:42:42 EDT"
+
proc.time()
+
##    user  system elapsed 
+## 351.016  14.223 761.248
+
options(width = 120)
+sessioninfo::session_info()
+
## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
+##  setting  value
+##  version  R version 4.3.1 (2023-06-16)
+##  os       macOS Ventura 13.4.1
+##  system   aarch64, darwin20
+##  ui       RStudio
+##  language (EN)
+##  collate  en_US.UTF-8
+##  ctype    en_US.UTF-8
+##  tz       America/New_York
+##  date     2023-07-31
+##  rstudio  2023.06.0+421 Mountain Hydrangea (desktop)
+##  pandoc   3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown)
+## 
+## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
+##  package                * version   date (UTC) lib source
+##  AnnotationDbi          * 1.62.2    2023-07-02 [1] Bioconductor
+##  AnnotationFilter       * 1.24.0    2023-05-08 [1] Bioconductor
+##  AnnotationHub          * 3.8.0     2023-05-08 [1] Bioconductor
+##  beachmat                 2.16.0    2023-05-08 [1] Bioconductor
+##  beeswarm                 0.4.0     2021-06-01 [1] CRAN (R 4.3.0)
+##  Biobase                * 2.60.0    2023-05-08 [1] Bioconductor
+##  BiocFileCache          * 2.8.0     2023-05-08 [1] Bioconductor
+##  BiocGenerics           * 0.46.0    2023-06-04 [1] Bioconductor
+##  BiocIO                   1.10.0    2023-05-08 [1] Bioconductor
+##  BiocManager              1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0)
+##  BiocNeighbors            1.18.0    2023-05-08 [1] Bioconductor
+##  BiocParallel             1.34.2    2023-05-28 [1] Bioconductor
+##  BiocSingular             1.16.0    2023-05-08 [1] Bioconductor
+##  BiocVersion              3.17.1    2022-12-20 [1] Bioconductor
+##  biomaRt                  2.56.1    2023-06-11 [1] Bioconductor
+##  Biostrings               2.68.1    2023-05-21 [1] Bioconductor
+##  bit                      4.0.5     2022-11-15 [1] CRAN (R 4.3.0)
+##  bit64                    4.0.5     2020-08-30 [1] CRAN (R 4.3.0)
+##  bitops                   1.0-7     2021-04-24 [1] CRAN (R 4.3.0)
+##  blob                     1.2.4     2023-03-17 [1] CRAN (R 4.3.0)
+##  bluster                  1.10.0    2023-05-08 [1] Bioconductor
+##  bookdown                 0.34      2023-05-09 [1] CRAN (R 4.3.0)
+##  bslib                    0.5.0     2023-06-09 [1] CRAN (R 4.3.0)
+##  cachem                   1.0.8     2023-05-01 [1] CRAN (R 4.3.0)
+##  cli                      3.6.1     2023-03-23 [1] CRAN (R 4.3.0)
+##  cluster                  2.1.4     2022-08-22 [1] CRAN (R 4.3.1)
+##  codetools                0.2-19    2023-02-01 [1] CRAN (R 4.3.1)
+##  colorspace               2.1-0     2023-01-23 [1] CRAN (R 4.3.0)
+##  cowplot                  1.1.1     2020-12-30 [1] CRAN (R 4.3.0)
+##  crayon                   1.5.2     2022-09-29 [1] CRAN (R 4.3.0)
+##  curl                     5.0.1     2023-06-07 [1] CRAN (R 4.3.0)
+##  DBI                      1.1.3     2022-06-18 [1] CRAN (R 4.3.0)
+##  dbplyr                 * 2.3.3     2023-07-07 [1] CRAN (R 4.3.0)
+##  DelayedArray             0.26.6    2023-07-02 [1] Bioconductor
+##  DelayedMatrixStats       1.22.0    2023-05-08 [1] Bioconductor
+##  digest                   0.6.33    2023-07-07 [1] CRAN (R 4.3.0)
+##  dplyr                  * 1.1.2     2023-04-20 [1] CRAN (R 4.3.0)
+##  dqrng                    0.3.0     2021-05-01 [1] CRAN (R 4.3.0)
+##  DropletUtils           * 1.20.0    2023-05-08 [1] Bioconductor
+##  edgeR                    3.42.4    2023-06-04 [1] Bioconductor
+##  ellipsis                 0.3.2     2021-04-29 [1] CRAN (R 4.3.0)
+##  EnsDb.Hsapiens.v86     * 2.99.0    2023-07-29 [1] Bioconductor
+##  ensembldb              * 2.24.0    2023-05-08 [1] Bioconductor
+##  evaluate                 0.21      2023-05-05 [1] CRAN (R 4.3.0)
+##  ExperimentHub            2.8.1     2023-07-16 [1] Bioconductor
+##  fansi                    1.0.4     2023-01-22 [1] CRAN (R 4.3.0)
+##  farver                   2.1.1     2022-07-06 [1] CRAN (R 4.3.0)
+##  fastmap                  1.1.1     2023-02-24 [1] CRAN (R 4.3.0)
+##  filelock                 1.0.2     2018-10-05 [1] CRAN (R 4.3.0)
+##  generics                 0.1.3     2022-07-05 [1] CRAN (R 4.3.0)
+##  GenomeInfoDb           * 1.36.1    2023-07-02 [1] Bioconductor
+##  GenomeInfoDbData         1.2.10    2023-06-08 [1] Bioconductor
+##  GenomicAlignments        1.36.0    2023-05-08 [1] Bioconductor
+##  GenomicFeatures        * 1.52.1    2023-07-02 [1] Bioconductor
+##  GenomicRanges          * 1.52.0    2023-05-08 [1] Bioconductor
+##  ggbeeswarm               0.7.2     2023-04-29 [1] CRAN (R 4.3.0)
+##  ggplot2                * 3.4.2     2023-04-03 [1] CRAN (R 4.3.0)
+##  ggrepel                  0.9.3     2023-02-03 [1] CRAN (R 4.3.0)
+##  glue                     1.6.2     2022-02-24 [1] CRAN (R 4.3.0)
+##  gridExtra                2.3       2017-09-09 [1] CRAN (R 4.3.0)
+##  gtable                   0.3.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  HDF5Array                1.28.1    2023-05-08 [1] Bioconductor
+##  here                     1.0.1     2020-12-13 [1] CRAN (R 4.3.0)
+##  highr                    0.10      2022-12-22 [1] CRAN (R 4.3.0)
+##  hms                      1.1.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  htmltools                0.5.5     2023-03-23 [1] CRAN (R 4.3.0)
+##  httpuv                   1.6.11    2023-05-11 [1] CRAN (R 4.3.0)
+##  httr                     1.4.6     2023-05-08 [1] CRAN (R 4.3.0)
+##  igraph                   1.5.0.1   2023-07-23 [1] CRAN (R 4.3.0)
+##  interactiveDisplayBase   1.38.0    2023-05-08 [1] Bioconductor
+##  IRanges                * 2.34.1    2023-07-02 [1] Bioconductor
+##  irlba                    2.3.5.1   2022-10-03 [1] CRAN (R 4.3.0)
+##  jquerylib                0.1.4     2021-04-26 [1] CRAN (R 4.3.0)
+##  jsonlite                 1.8.7     2023-06-29 [1] CRAN (R 4.3.0)
+##  KEGGREST                 1.40.0    2023-05-08 [1] Bioconductor
+##  knitr                    1.43      2023-05-25 [1] CRAN (R 4.3.0)
+##  labeling                 0.4.2     2020-10-20 [1] CRAN (R 4.3.0)
+##  later                    1.3.1     2023-05-02 [1] CRAN (R 4.3.0)
+##  lattice                  0.21-8    2023-04-05 [1] CRAN (R 4.3.1)
+##  lazyeval                 0.2.2     2019-03-15 [1] CRAN (R 4.3.0)
+##  lifecycle                1.0.3     2022-10-07 [1] CRAN (R 4.3.0)
+##  limma                    3.56.2    2023-06-04 [1] Bioconductor
+##  locfit                   1.5-9.8   2023-06-11 [1] CRAN (R 4.3.0)
+##  magrittr                 2.0.3     2022-03-30 [1] CRAN (R 4.3.0)
+##  Matrix                 * 1.6-0     2023-07-08 [1] CRAN (R 4.3.0)
+##  MatrixGenerics         * 1.12.2    2023-07-02 [1] Bioconductor
+##  matrixStats            * 1.0.0     2023-06-02 [1] CRAN (R 4.3.0)
+##  memoise                  2.0.1     2021-11-26 [1] CRAN (R 4.3.0)
+##  metapod                  1.8.0     2023-04-25 [1] Bioconductor
+##  mime                     0.12      2021-09-28 [1] CRAN (R 4.3.0)
+##  munsell                  0.5.0     2018-06-12 [1] CRAN (R 4.3.0)
+##  pillar                   1.9.0     2023-03-22 [1] CRAN (R 4.3.0)
+##  pkgconfig                2.0.3     2019-09-22 [1] CRAN (R 4.3.0)
+##  png                      0.1-8     2022-11-29 [1] CRAN (R 4.3.0)
+##  prettyunits              1.1.1     2020-01-24 [1] CRAN (R 4.3.0)
+##  progress                 1.2.2     2019-05-16 [1] CRAN (R 4.3.0)
+##  promises                 1.2.0.1   2021-02-11 [1] CRAN (R 4.3.0)
+##  ProtGenerics             1.32.0    2023-05-08 [1] Bioconductor
+##  purrr                    1.0.1     2023-01-10 [1] CRAN (R 4.3.0)
+##  R.methodsS3              1.8.2     2022-06-13 [1] CRAN (R 4.3.0)
+##  R.oo                     1.25.0    2022-06-12 [1] CRAN (R 4.3.0)
+##  R.utils                  2.12.2    2022-11-11 [1] CRAN (R 4.3.0)
+##  R6                       2.5.1     2021-08-19 [1] CRAN (R 4.3.0)
+##  rappdirs                 0.3.3     2021-01-31 [1] CRAN (R 4.3.0)
+##  Rcpp                     1.0.11    2023-07-06 [1] CRAN (R 4.3.0)
+##  RCurl                    1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0)
+##  restfulr                 0.0.15    2022-06-16 [1] CRAN (R 4.3.0)
+##  rhdf5                    2.44.0    2023-05-08 [1] Bioconductor
+##  rhdf5filters             1.12.1    2023-05-08 [1] Bioconductor
+##  Rhdf5lib                 1.22.0    2023-05-08 [1] Bioconductor
+##  rjson                    0.2.21    2022-01-09 [1] CRAN (R 4.3.0)
+##  rlang                    1.1.1     2023-04-28 [1] CRAN (R 4.3.0)
+##  rmarkdown                2.23      2023-07-01 [1] CRAN (R 4.3.0)
+##  rprojroot                2.0.3     2022-04-02 [1] CRAN (R 4.3.0)
+##  Rsamtools                2.16.0    2023-06-04 [1] Bioconductor
+##  RSQLite                  2.3.1     2023-04-03 [1] CRAN (R 4.3.0)
+##  rstudioapi               0.15.0    2023-07-07 [1] CRAN (R 4.3.0)
+##  rsvd                     1.0.5     2021-04-16 [1] CRAN (R 4.3.0)
+##  rtracklayer              1.60.0    2023-05-08 [1] Bioconductor
+##  S4Arrays                 1.0.4     2023-05-14 [1] Bioconductor
+##  S4Vectors              * 0.38.1    2023-05-08 [1] Bioconductor
+##  sass                     0.4.7     2023-07-15 [1] CRAN (R 4.3.0)
+##  ScaledMatrix             1.8.1     2023-05-08 [1] Bioconductor
+##  scales                   1.2.1     2022-08-20 [1] CRAN (R 4.3.0)
+##  scater                 * 1.28.0    2023-04-25 [1] Bioconductor
+##  scran                  * 1.28.2    2023-07-23 [1] Bioconductor
+##  scRNAseq               * 2.14.0    2023-04-27 [1] Bioconductor
+##  scuttle                * 1.9.4     2023-01-23 [1] Bioconductor
+##  sessioninfo              1.2.2     2021-12-06 [1] CRAN (R 4.3.0)
+##  shiny                    1.7.4.1   2023-07-06 [1] CRAN (R 4.3.0)
+##  SingleCellExperiment   * 1.22.0    2023-05-08 [1] Bioconductor
+##  sparseMatrixStats        1.12.2    2023-07-02 [1] Bioconductor
+##  statmod                  1.5.0     2023-01-06 [1] CRAN (R 4.3.0)
+##  stringi                  1.7.12    2023-01-11 [1] CRAN (R 4.3.0)
+##  stringr                  1.5.0     2022-12-02 [1] CRAN (R 4.3.0)
+##  SummarizedExperiment   * 1.30.2    2023-06-06 [1] Bioconductor
+##  tibble                   3.2.1     2023-03-20 [1] CRAN (R 4.3.0)
+##  tidyselect               1.2.0     2022-10-10 [1] CRAN (R 4.3.0)
+##  utf8                     1.2.3     2023-01-31 [1] CRAN (R 4.3.0)
+##  vctrs                    0.6.3     2023-06-14 [1] CRAN (R 4.3.0)
+##  vipor                    0.4.5     2017-03-22 [1] CRAN (R 4.3.0)
+##  viridis                  0.6.4     2023-07-22 [1] CRAN (R 4.3.0)
+##  viridisLite              0.4.2     2023-05-02 [1] CRAN (R 4.3.0)
+##  withr                    2.5.0     2022-03-03 [1] CRAN (R 4.3.0)
+##  xfun                     0.39      2023-04-20 [1] CRAN (R 4.3.0)
+##  XML                      3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0)
+##  xml2                     1.3.5     2023-07-06 [1] CRAN (R 4.3.0)
+##  xtable                   1.8-4     2019-04-21 [1] CRAN (R 4.3.0)
+##  XVector                  0.40.0    2023-05-08 [1] Bioconductor
+##  yaml                     2.3.7     2023-01-23 [1] CRAN (R 4.3.0)
+##  zlibbioc                 1.46.0    2023-05-08 [1] Bioconductor
+## 
+##  [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library
+## 
+## ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/control-de-versiones-con-github-y-rstudio.html b/docs/control-de-versiones-con-github-y-rstudio.html new file mode 100644 index 0000000..c5a84b2 --- /dev/null +++ b/docs/control-de-versiones-con-github-y-rstudio.html @@ -0,0 +1,869 @@ + + + + + + + 10 Control de versiones con GitHub y RStudio | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

10 Control de versiones con GitHub y RStudio

+

Dra. Alejandra Medina Rivera

+

09 de agosto de 2023

+ +
    +
  • Este documento se basa en “Happy Git with R” de Jenny Bryan, los STAT 545 TAs, Jim Hester
    • +
+

https://happygitwithr.com

+
+

10.1 Diapositivas

+

+
+
+

10.2 ¿Por qué hacer control de versiones de nuestros proyectos?

+
    +
  1. ✅ Los proyectos suelen cambiar y crecer.
    2. +
  2. 💾 Es díficil saber cuáles fueron todos los cambios a lo largo del tiempo (en especial tiempos largos, hazlo por tu yo del futuro!).
    3. +
  3. 🤔 Las colaboraciones se pueden complicar sin un buen control de versiones.
    4. +
  4. 🔐 Seguridad.
    5. +
+

+
+
+

10.3 Git

+
    +
  • Git es un sistema de control de versiones
    • +
  • Git funciona con GitHub, Bitbucket o GitLab
    • +
+

¿Por qué usar Git en vez de solo renombrar los archivos?

+

✅✅Por qué es mejor tener una filogenia del archivo.

+
+

Git es un sistema de control de versiones distribuido, gratuito y de código abierto, diseñado para manejar todo tipo de proyectos, desde los más pequeños hasta los más grandes, con rapidez y eficiencia.

+
+
+

Git es fácil de aprender y ocupa poco espacio con un rendimiento rapidísimo. Supera a las herramientas SCM como Subversion, CVS, Perforce y ClearCase con características como la ramificación local barata, las cómodas áreas de preparación y los múltiples flujos de trabajo.

+
+
+

10.3.1 Git vs controles de versión a mano

+

+

Con Git cada contribuidor tiene una copia del repositorio central, con todos los archivos y la historia de los cambios por los que han pasado.

+
+

Excuse me, do you have a moment to talk about version control?, Jennifer Bryan, 2017

+
+
+

⚠️ NO OLVIDES TENER INSTALADO Git, en caso de que aún no lo hayas instalado, lo puedes descargar en el siguiente enlace https://git-scm.com/downloads.

+

Para conocer la localización y la versión de Git que tienes en tu computadora, corre el siguiente comando en la terminal: which git y git --version

+
+
+
+
+

10.4 Recomendaciones para sus proyectos

+
    +
  • Dedicar un directorio
    • +
  • Es mejor organizarlo en un RStudio Project
    • +
  • Hacer un repositorio de Git
    • +
  • Trabajen como siempre, solo además de guardar, recuerden hacer commit
    • +
  • De vez en vez hagan push de sus cambios cuando los hayan verificado.
    • +
+
+
+

10.5 Proyectos colaborativos

+
    +
  • GitHub se parece más a un GoogleDoc que a un Word Document.
    • +
  • Es fácil que los colaboradores hagan cambios y también es fácil saber quién hizo que.
    • +
  • El owner del proyecto puede dar permisos a los diferentes colaboradores.
    • +
  • También existen organizaciones, esto puede ser útil para manejar los permisos de grupos grandes de colaboración.
    • +
+
+
+

10.6 GitHub

+

GitHub es una plataforma para guardar proyectos, hace uso de Git. Su principal utilidad es para generar código fuente de programas.

+
+

⚠️ NO OLVIDES TENER UNA CUENTA EN GITHUB, en caso de que aún no lo hayas hecho, puedes ir la página de GitHub y seleccionar join. +Es indispensable tu usuario para los ejercicios que siguen.

+
+

También existen otras plataformas como Bitbucked y GitLab, las cuales funcionan de manera similar a GitHub.

+
+
+

10.7 Manual de sobreviviencia con Git Y GitHub en RStudio (en caso de ser necesario)

+
    +
  • Por cualquier problema con la conexión entre RStudio y Git, siempre ten en cuenta la ubicación de dónde se instaló Git. +
      +
    • Puedes usar en la terminal which git (Mac y Linux)
      • +
    • O bien usar en la terminal where git (Windows)
      • +
    • +
  • Recuerda que la terminal (o línea de comandos ó consola ó shell ó bash) es un programa en tu computadora que funciona para correr otros programas. Desde RStudio puedes abrir la terminal, lo cual es muy conveniente si estás trabajando en un proyecto. Puedes abrir una terminal con: +
      +
    • Tools > Terminal (abre la terminal dentro del IDE de RStudio)
      • +
    • Tools > Shell (abre una terminal externa a RStudio)
      • +
    • +
+
+
+

10.8 Cómo clonar un repositorio y tener conección/permisos para modificarlo?

+
    +

  • Git puede comunicarse con un servidor remoto usando uno de dos protocolos, HTTPS o SSH, y cada protocolo usa credenciales diferentes.

    • +

  • La recomendación actual de GitHub es usar HTTPS porque es la manera más fácil de configurar y tiene operabilidad en multiples redes y plataformas.

    +
      +
    • Es menos probable que HTTPS sea bloqueado por un firewall.
      • +
    • Una conexión HTTPS permite que credential.helper almacene en caché su contraseña. (por tanto puedes configurar tu usuario y contraseña en tu equipo de uso)
      • +
    • Es más sencillo acceder a un repositorio desde cualquier lugar, ya que solo necesitas los detalles de tu cuenta (no se requieren claves SSH) para escribir en el repositorio.
      • +
    • +

  • Usualmente cuando inicies un proyecto colaborativo con GitHub inicializa el ropositorio con un README. Copia el HTTPS URL para clonar el repositorio en la terminal git clone https://github.com/TU-USUARIO/TU-REPOSITORIO.git.

    • +
+
+
+

10.9 Credenciales HTTPS en Cache

+

Para usar HTTPS debes crear un token de acceso personal, PAT (PERSONAL ACCESS TOKEN), esa será tu credencial para HTTPS. Es una alternativa al uso de contraseñas para la autenticación en GitHub.

+

Como precaución de seguridad, GitHub elimina automáticamente los tokens de acceso personales que no se han usado durante un año.

+

¿Cómo crear un token?

+
    +

  1. Ve a tu perfil de GitHub, dale click a la imagen de perfil (usualmente en la esquina superior derecha), y busca la opción de settings ó configuración según sea la configuración de idioma que tengas.

    2. +

  2. Da click a continuación en Developer settings ó Parámetros del desarrollador.

    3. +

  3. En la barra lateral izquierda da click en Tokens de acceso personal.

    4. +

  4. Haz click en Generar un nuevo token.

    5. +

  5. Asígna un nombre descriptivo a tu token.

    6. +

  6. Selecciona los alcances o permisos que deseas otorgarle a este token. Para usar tu token para acceder a repositorios desde la línea de comando, selecciona repo. (Recomendados: repo, user, workflow )

    7. +

  7. Finalmente haz click en generar token.

    8. +

  8. Listo, copia y pega tu token en el lugar dónde siempre lo puedas volver a copiar, ya que por razones de seguridad, una vez salgas de la página no podrás volver a ver el token.

    9. +
+
    +
  • Nota: Preserva tus tokens de la misma manera que tus contraseñas y no se las reveles a nadie.
    • +
+

Una vez que tengas un token, puedes ingresarlo en lugar de tu contraseña cuando realices operaciones de Git a través de HTTPS.

+

El punto final es que una vez configurada una PAT, varios paquetes de R, incluidos usethis y gh, podrán trabajar con la API de GitHub en su nombre, de forma automática. Por lo tanto, una PAT configurada correctamente significa que todo esto funcionará a la perfección:

+
- Operaciones HTTPS remotas a través de la línea de comando Git y, por lo tanto, a través de RStudio
+- Operaciones HTTPS remotas a través del paquete gert R y, por lo tanto, usethis
+- Operaciones de la API de GitHub a través del paquete gh R y, por lo tanto, usethis
+

Probar el repositorio Clonado

+

Después de hacer clone +Usa estos comandos para verificar tu repositorio y revisar desde dónde se está sincorinzando.

+
cd myrepo
+ls -la
+head README.md
+git remote show origin
+

Probemos haciendo un cambio en el README

+
echo "Something I want to add to the README in my local computer" >> README.md
+git status
+
    +

  • Qué pasó?

    • +

  • Ahora tenemos que decirle a git que queremos seguir los cambios de ese archivo

    • +

  • Vamos a commit los cambios y luego a subir (push) los mismos a GitHub

    • +
+
git add README.md
+git commit -m "A commit from my local computer"
+git push
+

Recuerda tu TOKEN!!

+

¿Cómo crear un token desde R?

+

Puedes ir directamente a la página de GitHub a la parte para generar tu token de acceso personal mediante la siguiente función:

+
usethis::create_github_token()
+

Y con las opciones que se mencionaban anteriormente puedes configurar y crear tu PAT.

+

Si lo que quieres es especificar tu PAT en RStudio, las siguientes funciones te serán útiles:

+
library(gitcreds)
+
+gitcreds_set()
+
library(credentials)
+
+set_github_pat()
+

Para eliminar credenciales utiliza la función credentials::git_credential_forget()

+
+

10.9.1 Actividad

+

Ejecuta los códigos y genera tu PAT, recuerda no perderlo!

+
+
+
+

10.10 Conectando RStudio con Git y Github.

+

+
+

Para lo que sigue a continuación, deberías tener esto:

+
    +
  1. Tener una cuenta en GitHub
    2. +
  2. R y RStudio actualizados
    3. +
  3. Git instalado
    4. +
  4. Saber que desde la terminal puedes hacer push y pull
    5. +
+
+
+
+

10.11 GitHub primero, RStudio después…

+
    +
  1. Crea un repositorio en GitHub: mi_repositorio > Public > YES initialize this repository with a README > clicken el gran botón verde “Create repository”
    2. +
  2. En RStudio crea un nuevo proyecto: File > New Project > Version Control > Git. Ahi pega el URL del repositorio https://github.com/mi_usuario/mi_repositorio.git. Da click en Create Project.
    3. +
+

Esto nos generará los siguientes elementos:

+
    +
  • Un directorio nuevo
    • +
  • Un repositorio Git enlazado a al repositorio de GitHub
    • +
  • Un proyecto en RStudio
    • +
+

Con este procedimiento ya no es necesario preocuparse por configurar controles remotos Git +y rastrear ramas en la línea de comandos.

+
+

10.11.1 Actividad

+
+
    +
  • Genera un repositorio con el nombre que desees. Y conéctalo a RStudio. Cerciorate de que el archivo README se encuentre en tu nueva carpeta.
    • +
  • Usa la función usethis::use_r("titulo_de_un_script") y observa lo que sucede.
    • +
+
+

PAUSA

+

¿Cómo comento y doy push/pull desde RStudio?

+
+
+

10.11.2 Comentar, pull y push

+

+

Con la flecha azul podemos hacer pull (RECUERDA HACERLO ANTES DE HACER UN PUSH), y con la flecha verde un push. Para poder comentar y hacer push debemos marcar con una flechita mediante un click en las pequeñas cajas blancas de la columna Staged, damoc click en commit lo cual no abre la siguiente ventana.

+

+

Volvemos a dar click en commit, y finalizamos con push (flecha verde).

+
+
+
+

10.12 Rmarkdown en GitHub

+
    +
  • Creemos un Rmakrdown y subámoslo a GitHub
    • +
  • Ahora hay que agregarlo al repositorio (add), stage and commit.
    • +
  • Subieron el hmlt? Qué tal se ve?
    • +
  • No se ve como queremos, verdad? Para eso necesitamos recuperar el .md. El .md es un resultado intermedio de crear el html desde Rmd.
    • +
  • Tenemos que cambiar el header para esto
    • +
+
---
+title: "RmarkwondTest"
+output: 
+  html_document:
+    keep_md: true
+---
+
+

10.12.1 Actividad

+
+
    +
  • Usa el código dir.create("mis_imagenes") en la consola de tu sesión de RStudio (la que está vinculada a tu repositorio). Ejecuta el siguiente código quitando los #:
    • +
+
install.packages("MASS")
+library (MASS)
+data(MASS::cats)
+# pdf("mis_imagenes/cats_plot.pdf") 
+ggplot(cats, aes(x = Sex)) + 
+    geom_bar(fill = "orange", color = "black") + theme_classic() +
+    xlab("Sexo") + ylab("Número de Gatos") + ggtitle("Gatos")
+# dev.off()
+
    +
  • Comenta y da push a los cambios que realizaste en el repositorio.
    • +
+
+
+
+
+

10.13 RStudio primero y GitHub también

+

Usa uno de los proyectos que hayas generado en las sesiones anteriores, PERO, que no esté enlazado a GitHub. Ahora veremos como conectar un proyecto de R existente con GitHub. +Realiza los pasos que hicimos en GitHub primero, RStudio después pero asegurate de crear un repositorio con un nuevo nombre.

+

Y LISTO!! usa un simple ctrl + c, ó mv ó click derecho + copiar ó el método que prefieras para mover o copiar archivos. Copia los archivos de tu antigüo proyecto al proyecto nuevo. +Solo haz commit y push y listo, lo que tenía en tu antigüo proyecto ya está enlazado a GitHub.

+
+
+

10.14 Proyecto existente, GitHub al final

+

+

Supongamos que tenemos un proyecto de R existente en algún lugar de nuestra computadora.

+
+

NOTA: +Para generar proyecto de RStudio desde la consola puedes utilizar el siguiente código:

+
usethis::create_project()
+

O en RStudio con File > New Project > Existing Directory

+

Si su proyecto ya es un proyecto de RStudio, ejecútelo.

+
+

¿Ya es un repositorio de Git? La presencia del panel de Git debería alertarlo. Si es así, ha terminado.

+

Sino este es el primer camino a seguir:

+
    +
  • Con el páquete usethis usa la función usethis::use_git
    • +
  • En RStudio ve a Tools > Project Options > Git/SVN. Dentro de Version control system, selecciona Git. Y da click a “Yes” cuando aparezca “Confirm New Git Repository?”.
    • +
+

Si usaste RStudio o usethis, el proyecto debería reiniciarse en RStudio. Hazlo tu mismo si hizo git init. RStudio ahora debería tener un panel Git.

+
+

10.14.1 Breviario cultural con los PATs

+

Si usas el paquete usethis Y has configurado un token de acceso personal (PAT) de GitHub has esto en R:

+
usethis::use_github()
+

Esto creará un nuevo repositorio en GitHub, lo agregará como un control remoto, configurará una rama de seguimiento y lo abrirá en su navegador. Lea la ayuda de use_github() para conocer sus argumentos y consejos sobre cómo configurar una PAT. Esto es extremadamente útil para una variedad de flujos de trabajo que llaman a la API de GitHub. Considere configurar esto si usa usethis, devtools o gh con regularidad.

+
+

Volviendo al tema de Proyecto existente, GitHub al final.

+

Otra opción que se puede hacer para conectar un proyecto existen a GitHub es ir a hacer un repositorio a GitHub PERO ten en cuenta los siguientes cambios:

+
    +
  1. Elije un nombre de repositorio; probablemente debería coincidir con el nombre de su proyecto y directorio local.
    2. +
  2. NO inicialice este repositorio con un archivo README.
    3. +
+

Todo lo demás es igual a los pasos que hacíamos en GitHub primero, RStudio después…

+

Ahora ve a tu proyecto de RStudio, has clic en los “dos cuadros de color púrpura y un cuadrado blanco” en el panel de Git. Has clic en “Agregar control remoto”. Pegue la URL aquí y elija un nombre remoto, casi con certeza el origin. Ahora “ADD”.

+

+

Pasado esto deberiamos volver en el cuadro de diálogo “New Branch”. Ingresa “master” como el nombre de la rama y asegúrate de que la opción “Sync branch with remote” esté marcada. Haz clic en “Create”. En el siguiente cuadro de diálogo elije “overwrite”.

+

+

Ahora solo haz commit/pull/push y cérciorate que FUNCIONE!!

+
+
+
+

10.15 Git basics: commands

+
    +
  • Fetch Commits
    • +
+
git fetch
+
    +
  • Create and Switch to a branch
    • +
+
git branch [branch-name]
+git checkout [branch-name]
+
+
+

10.16 Merge conflics

+
    +
  • A veces, no tan a veces también, las cosas no salen bien a la primera
    • +
  • Merging (Fusionar) es una de esas cosas
    • +
  • Cuando bajamos un cambio o fusionamos branches esto puede pasar.
    • +
  • Primera regla: NO ENTRAR EN PANICO!!!
    • +
  • Revisen el status del repositorio. Qué archivo tiene conflicto?
    • +
+
+
+

10.17 Merge conflics

+
    +
  • Abran ese archivo y busquen los problemas de merge. Es fácil, se ven así:
    • +
+
<<<<<<< HEAD:index.html
+<div id="footer">contact : email.support@github.com</div>
+=======
+<div id="footer">
+ please contact us at support@github.com
+</div>
+>>>>>>> issue-5:index.html
+
    +
  • Editen esa sección, dejen una versión final.
    • +
  • Hagan commit y push
    • +
  • Si entran en pánico? Aborten la misión!
    • +
+
git merge --abort t
+
+
+

10.18 En resumen

+

¡QUE LA FUERZA TE ACOMPAÑE!

+
+ +
+
+ + +
+
+
+ + +
+ + + + + + + + + + + + + + + + diff --git "a/docs/creaci\303\263n-de-vi\303\261etas.html" "b/docs/creaci\303\263n-de-vi\303\261etas.html" new file mode 100644 index 0000000..dd8fefe --- /dev/null +++ "b/docs/creaci\303\263n-de-vi\303\261etas.html" @@ -0,0 +1,510 @@ + + + + + + + 15 Creación de viñetas | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

15 Creación de viñetas

+

Instructor

+

10 de agosto de 2023

+
+

15.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/dise\303\261o-de-pruebas.html" "b/docs/dise\303\261o-de-pruebas.html" new file mode 100644 index 0000000..0111af8 --- /dev/null +++ "b/docs/dise\303\261o-de-pruebas.html" @@ -0,0 +1,510 @@ + + + + + + + 14 Diseño de pruebas | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

14 Diseño de pruebas

+

Mirna Vázquez Rosas-Landa

+

10 de agosto de 2023

+
+

14.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/documentaci\303\263n-de-funciones..html" "b/docs/documentaci\303\263n-de-funciones..html" new file mode 100644 index 0000000..49fe554 --- /dev/null +++ "b/docs/documentaci\303\263n-de-funciones..html" @@ -0,0 +1,793 @@ + + + + + + + 13 Documentación de funciones. | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

13 Documentación de funciones.

+

Andrés Arredondo Cruz

+

09 de agosto de 2023

+ + +
+

13.3 ¿Que es la documentacion de una función y por qué es impotante?

+
    +

  1. 🙇️ Es la información complementaria que el desarrollador escribe sobre una +función y que se accede con ? seguido el nombre de una función actual de un +paquete p.ej. ?unafuncion.

    2. +

  2. 📁 La documentación se almacena como un archivo .Rd (“R documentation) en la +carpeta man/.

    3. +

  3. 🔎 La documentación usa una síntesis especial, que es distinta a la de r y +que esta ligeramente basada en LaTeX.

    4. +

  4. 📄 Se puede renderizar como html, pdf o texto sin formato según se necesite.

    5. +
+
+
+

13.4 Generacion de la documentacion con ayuda del paquete roxygen

+

En un paquete de r y en cualquier ecosistema de devtools no editamos un +documento .Rd manualmente. La documentación usa una síntesis parecida a LaTex +que puede ser fácil de estropear. Por ventaja existen paquetes como roxigen2. +Usar roxigen nos permite usar comentarios especiales sobre el inicio de la +función, esto nos da un par de ventajas:

+
    +
  1. ✅ La documentación y la función estarán en un mismo lugar, por lo que si +editas la función será mas fácil recordar actualizar la documentcion también.
    2. +
  2. 🎉 Puedes usar markdown en lugar de la síntesis especial para los archivos +.Rd
    3. +
+
+
+

13.5 Antes de empezar…✏️

+

Vamos a crear un función para nuestro paquete. Supongamos que para nuestro +paquete necesitamos una función que calcule la moda. Esta es una forma sencilla +de calcular la moda:

+
getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+
    +
  • unique(serievector): Crea un vector que contiene únicamente los valores únicos +de la serie de números serievector.
    • +
  • match(serievector, uniqv): Encuentra la posición de cada valor de serievector +en el vector único uniqv.
    • +
  • tabulate(match(serievector, uniqv)): Cuenta cuántas veces aparece cada valor en +la serie serievector.
    • +
  • which.max(tabulate(match(serievector, uniqv))): Encuentra el índice del valor +máximo en el vector de frecuencias.
    • +
  • uniqv[which.max(tabulate(match(serievector, uniqv)))]: Devuelve el valor +correspondiente al índice calculado, que es la moda.
    • +
+

Creamos un ejemplo para ver que funcione:

+
serie_numeros <- c(1, 2, 2, 2, 2, 3, 3, 4, 4, 4)
+resultado <- getmoda(serie_numeros)
+print(resultado)
+
## [1] 2
+

Bien ahora si podemos podemos empezar a usar el paquete de roxygen para documentar nuestra función.. comencemos.

+
+
+

13.6 Generacion de un bloque de documentacion con ayuda del paquete roxygen.

+

Podemos insertar un esqueleto de comentarios de roxygen para ver su síntesis. Colocamos el cursor en algún lugar de la definición de nuestra función y buscamos en la pestaña Código > Insertar Roxygen Skeleton.

+
#' Title
+#'
+#' @param serievector 
+#'
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Ahora ya tenemos un esqueleto de la documentación que nos da una ventaja para su creación. +Las líneas de comentarios de Roxygen siempre comienzan con #', el habitual para un comentario # mas un '

+

Veamos los comentarios de uno por uno:

+

Empezamos con el titulo. Se sugiere poner en el titulo las acciones principales que realiza la función en este caso por ejemplo podremos usar:

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @param serievector 
+#'
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Muy bien!. +El siguiente comentario que podemos ver es @param. Pero antes, vamos a añadir una pequeña descripción de la función y como usarla. Primero añadimos la pequeña descripción con @description:

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' @param serievector
+#'
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Ahora vamos a añadir el comentario @usage que nos indica como puedes mandar a llamar la función.

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' @usage getmoda(serievector)
+#' @param serievector
+#'
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Ahora si vamos a añadir una pequeña descripción de nuestros argumentos. Si tuviéramos mas de un parámetro en nuestra función podríamos llamar las veces que sea necesario el comentario de parámetro con @param, veamoslo.

+

Ahora añadimos una pequeña descripción a nuestro único parámetro que es serievector:

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' 
+#' @param serievector Es una serie de números en forma de  un vector simple de r.
+#'
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Después, podemos añadir un comentario de detalles de la función con @details. +Por ejemplo, si en nuestro ejemplo tuviéramos ciertos valores no numéricos en nuestro vector de entrada, por ejemplo letras, ¿nuestra función podría leerlas?, o si le diéramos un vector sin caracteres ¿que pasaría?, veamos:

+
serie_numeros <- c(0,2,2,"d", "d","d")
+resultado <- getmoda(serie_numeros)
+print(resultado)
+
## [1] "d"
+
serie_numeros <- c()
+resultado <- getmoda(serie_numeros)
+print(resultado)
+
## NULL
+

Entonces, esto es un ejemplo de lo que podríamos poner en el comentario +@details. Hagamoslo describiendo esto. En details podemos agregar detalles +un poco mas específicos que en la descripción de la función

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' 
+#' @param serievector Es una serie de números en forma de  un vector simple de r.
+#'
+#' @details si tu vector de entrada puede ser interpretado alternando números y 
+#' letras escritas entre comillas "". Si un vector esta vacío, dará como 
+#' resultado un NULL.
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Ya casi terminamos de llenar nuestra documentación, pero antes vamos a ver algunos +otros arrobas que pudieran ser importantes. +El @import e @importfrom importan funciones de otros paquetes en caso +de que las necesitemos, el primero importa todas las funciones del paquete que +que solicites, y el segundo importa solo algunas funciones especificas. +En nuestra función no necesitamos llamar funciones de otros paquetes puesto que +todas las que usamos están en r base. Pero imaginemos que tu función, por +ejemplo necesita leer un archivo .tsv con la función read_tsv del paquete +readr y después reconvertir la tabla resultante en un archivo con write.table +pero solo necesitas esa función del paquete utils, entonces haríamos:

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' 
+#' @param serievector Es una serie de números en forma de  un vector simple de r.
+#'
+#' @details si tu vector de entrada puede ser interpretado alternando números y 
+#' letras escritas entre comillas "". Si un vector esta vacío, dará como 
+#' resultado un NULL.
+#' @import readr
+#' @importFrom utils write.table
+#' @return
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Así podemos importar las funciones que necesitemos de otros paquetes y se +incluirán en la documentación y se cargaran automáticamente al cargar tu paquete.

+

:eyes::exclamation: Para un correcto funcionamiento de tu paquete y al estar los +paquetes necesarios incluidos en la documentación, no será necesario llamarlos +de la forma ``library(“apackage”)```.

+

Entonces llegamos a la sección @return. Esta descripción le servirá al +usuario del paquete para conocer cual sera el resultado de la función, que puede +ser un archivo, una tabla, un numero,etc. Entonces retomando la función que +usamos al inicio, vamos a escribir una descripción corta del resultado de la +función getmoda().

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' 
+#' @param serievector Es una serie de números en forma de  un vector simple de r.
+#'
+#' @details si tu vector de entrada puede ser interpretado alternando números y 
+#' letras escritas entre comillas "". Si un vector esta vacío, dará como 
+#' resultado un NULL.
+#' @return El carácter con mas frecuencia de el vector de entrada.
+#' @export
+#'
+#' @examples
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Por ultimo tenemos @export que es el encargado de renderizar la documentación +para que pueda aparecer en la ventana de Ayuda (abajo a la derecha). esta opción la dejamos para funciones principales que el usuario va a utilizar, aunque puede que existan alguna funciones internas que no queremos que el usuario vea. En ese caso vamos a usar +@noRd en lugar de este.

+

Antes de terminar podemos incluir ejemplos de como funciona nuestra función para +un mejor entendimiento, pongamos los que ya realizamos:

+
#' @title Encontrar la Moda de una Serie de Números
+#'
+#' @description Esta función lee una serie de números en forma de vector y
+#' encuentra el elemento que mas se repite, es decir la moda.
+#' 
+#' @param serievector Es una serie de números en forma de  un vector simple de r.
+#'
+#' @details si tu vector de entrada puede ser interpretado alternando números y 
+#' letras escritas entre comillas "". Si un vector esta vacío, dará como 
+#' resultado un NULL.
+#' @return El carácter con mas frecuencia de el vector de entrada.
+#' @export
+#'
+#' @examples
+#' serie_números <- c(1, 2, 2, 2, 2, 3, 3, 4, 4, 4)
+#' resultado <- getmoda(serie_números)
+#' print(resultado)
+
+getmoda <- function(serievector) {
+  uniqv <- unique(serievector)
+  uniqv[which.max(tabulate(match(serievector, uniqv)))]
+}
+

Ahora si, una vez teniendo listo el bloque de comentarios para la documentación, vamos a ejecutar devtools::load_all() para cargar nuestras funciones y hecho esto, ejecutamos +devtools::document() o presionamos Ctrl/Cmd + Shift + D para convertir los comentarios en archivo .Rd y poder renderizarlo.

+

💯 Listo, tenemos nuestra documentación para una función. Así se verá cuando el paquete esté terminado.

+
+
+

13.7 Otros campos de la documentacion.

+
    +

  • @seealso para indicar funciones relacionadas y facilitar la búsqueda de funciones.

    • +

  • @references añade algunas referencias.

    • +

  • @author para especificar el autor de la función.

    • +
+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/estructura-e-importe-de-datos.html b/docs/estructura-e-importe-de-datos.html new file mode 100644 index 0000000..c282a3e --- /dev/null +++ b/docs/estructura-e-importe-de-datos.html @@ -0,0 +1,510 @@ + + + + + + + 1 Estructura e importe de datos | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

1 Estructura e importe de datos

+

Instructor:

+

07 de agosto de 2023

+
+

1.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/genes-marcadores.html b/docs/genes-marcadores.html new file mode 100644 index 0000000..bcf9fd7 --- /dev/null +++ b/docs/genes-marcadores.html @@ -0,0 +1,510 @@ + + + + + + + 7 Genes marcadores | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

7 Genes marcadores

+

Yalbi Balderas

+

08 de agosto de 2023

+
+

7.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/index.html b/docs/index.html new file mode 100644 index 0000000..5cd2ef4 --- /dev/null +++ b/docs/index.html @@ -0,0 +1,600 @@ + + + + + + + 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+ +
+

Bienvenida

+

+

Les damos la bienvenida al Workshop Creando paquetes de R/Bioconductor para análisis transcriptómicos de célula única!

+

+

En los últimos años, la generación de datos transcriptómicos de célula única ha cobrado gran relevancia en la investigación biomédica; sin embargo, las herramientas necesarias para su análisis continúan en desarrollo.

+

En este taller haremos un repaso a las herramientas estadísticas existentes para analizar datos transcriptómicos de célula única usando Bioconductor, cómo documentar tu análisis y revisaremos algunas herramientas para la interpretación de resultados.

+

A la par, aprenderás cuáles son los pasos cruciales para desarrollar un paquete de R y algunas buenas prácticas para la generación de código. Con la integración de estas herramientas, tendrás la oportunidad de crear tu primer paquete y contribuir a la comunidad de desarrolladores.

+
+

0.1 Instructores

+ +
+ +
+

0.3 Ayudantes

+
    +
  • Dra. Evelia Coss
    • +
  • M.C. José Antonio Ovando
    • +
  • M.C. Andrés Arredondo Cruz
    • +
  • M.C. Diego Ramírez
    • +
  • M.C. Luis Alberto Meza
    • +
+
+
+

0.4 Temario

+

Consulta el calendario de este curso en: https://bit.ly/calendarcdsb2023

+
    +
  • Día 1: Flujo de análisis de datos transcriptómicos de célula única Parte I +
      +
    • Presentación de la CDSB.
      • +
    • Estructura e importe de datos.
      • +
    • Control de calidad.
      • +
    • Normalización.
      • +
    • +
  • Día 2: Flujo de análisis de datos transcriptómicos de célula única Parte II +
      +
    • Selección de genes altamente variables.
      • +
    • Reducción de dimensiones.
      • +
    • Clustering.
      • +
    • Genes marcadores.
      • +
    • Anotación de tipos celulares.
      • +
    • +
  • Día 3: Creación de paquetes de R/Bioconductor Parte I +
      +
    • Nuevas funcionalidades de RStudio, Quarto.
      • +
    • Control de versiones con GitHub y RStudio.
      • +
    • Solución de problemas con las versiones de paquetes de Rstudio.
      • +
    • Infraestructura de un paquete de R/Bioconductor.
      • +
    • Plática: Convirtiendo tu flujo de análisis en un paquete de R/Bioconductor.
      • +
    • Documentación de funciones.
      • +
    • Sesión social: Conociendo a la comunidad.
      • +
    • +
  • Día 4: Creación de paquetes de R/Bioconductor Parte II +
      +
    • Diseño de pruebas.
      • +
    • Creación de viñetas.
      • +
    • Compilación e instalación de paquetes.
      • +
    • Proyectos colaborativos Parte I.
      • +
    • +
  • Día 5: Proyectos colaborativos +
      +
    • Proyectos colaborativos Parte II.
      • +
    • Presentación de proyectos.
      • +
    • Clausura.
      • +
    • +
+
+
+

0.5 Patrocinadores

+

Agradecemos a nuestros patrocinadores:

+

+

+
+
+

0.6 Licencia

+

Este material posee una licencia tipo Creative Commons Attribution-ShareAlike 4.0 International License.

+

Para conocer más sobre esta licencia, visite http://creativecommons.org/licenses/by-sa/4.0/

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/keynote-convirtiendo-tu-flujo-de-an\303\241lisis-en-un-paquete-de-rbioconductor..html" "b/docs/keynote-convirtiendo-tu-flujo-de-an\303\241lisis-en-un-paquete-de-rbioconductor..html" new file mode 100644 index 0000000..c660039 --- /dev/null +++ "b/docs/keynote-convirtiendo-tu-flujo-de-an\303\241lisis-en-un-paquete-de-rbioconductor..html" @@ -0,0 +1,511 @@ + + + + + + + 12 Keynote: Convirtiendo tu flujo de análisis en un paquete de R/Bioconductor. | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

12 Keynote: Convirtiendo tu flujo de análisis en un paquete de R/Bioconductor.

+

Dr. Leonardo Collado Torres

+

02 de agosto de 2022

+
+

12.1 Diapositivas

+

+

Puedes encontrar las diapositivas aquí.

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/normalizaci\303\263n-de-datos.html" "b/docs/normalizaci\303\263n-de-datos.html" new file mode 100644 index 0000000..5966b52 --- /dev/null +++ "b/docs/normalizaci\303\263n-de-datos.html" @@ -0,0 +1,932 @@ + + + + + + + 3 Normalización de datos | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

3 Normalización de datos

+

Instructora: Dra Laura Lucila Gómez Romero

+
+

3.1 Material

+
    +

  • Diapositivas de Peter Hickey: Ve las diapositivas aquí

    • +

  • Capítulo de OSCA: Ve el capítulo del libro OSCA aquí

    • +
+
+
+

3.2 Motivación

+

Al igual que con otras tecnologías, single-cell RNA-seq (scRNA-seq) puede presentar diferencias sistemáticas en la cobertura de las librerías de scRAN-seq.

+

Típicamente se debe a diferencias técnicas en procesos como la captura de cDNA, la eficiencia de la amplificación por PCR.

+

La normalización tiene como objetivo remover estas diferencias sistemáticas para que no interfieran cuando comparamos los perfiles de expresión entre células.

+

Al normalizar los datos, las diferencias observadas entre poblaciones celulares o condiciones son debido a la biología y no por factores técnicos.

+

La normalización es diferente a la corrección por lote . El proceso de normalización se lleva a cabo sin importar la estructura de los lotes y sólo considera sesgos técnicos, los cuales tienden a afectar los genes en una manera medianamente similar, por ejemplo: la eficiencia de la amplificación por PCR debido al contenido de GC o la longitud del gene.

+
    +
  • ¿Qué es correción por lote (batch effect correction)? Da un ejemplo.
    • +
+

“Large single-cell RNA sequencing (scRNA-seq) projects usually need to generate data across multiple batches due to logistical constraints. However, the processing of different batches is often subject to uncontrollable differences, e.g., changes in operator, differences in reagent quality. This results in systematic differences in the observed expression in cells from different batches, which we refer to as “batch effects”. Batch effects are problematic as they can be major drivers of heterogeneity in the data, masking the relevant biological differences and complicating interpretation of the results” -OSCA

+
    +
  • ¿Cuáles son las diferencias entre correción por lote y normalización?
    • +
+

“Normalization occurs regardless of the batch structure and only considers technical biases, while batch correction - as the name suggests - only occurs across batches and must consider both technical biases and biological differences. Technical biases tend to affect genes in a similar manner, or at least in a manner related to their biophysical properties (e.g., length, GC content), while biological differences between batches can be highly unpredictable” -OSCA

+
+
+

3.3 Datos

+

Usaremos el dataset de Zeisel.

+
    +

  • Tipos celulares en cerebro de ratón (oligodendrocitos, microglias, neuronas, etc.)

    • +

  • Procesado con STRT-seq (similar a CEL-seq), un sistema de microfluido.

    • +

  • 3005 células y 18441 genes.

    • +

  • Contiene UMIs.

    • +
+
library("scRNAseq")
+sce.zeisel <- ZeiselBrainData(ensembl = TRUE)
+sce.zeisel
+
## class: SingleCellExperiment 
+## dim: 18441 3005 
+## metadata(0):
+## assays(1): counts
+## rownames(18441): ENSMUSG00000029669 ENSMUSG00000046982 ... ENSMUSG00000064337 ENSMUSG00000065947
+## rowData names(2): featureType originalName
+## colnames(3005): 1772071015_C02 1772071017_G12 ... 1772066098_A12 1772058148_F03
+## colData names(10): tissue group # ... level1class level2class
+## reducedDimNames(0):
+## mainExpName: endogenous
+## altExpNames(2): ERCC repeat
+
+

3.3.1 Primero se debe hacer el control de calidad

+

Eliminando células de baja calidad:

+
    +

  • Outliers bajos para log(cuenta total)

    • +

  • Outliers bajos para log(número de features detectados)

    • +

  • Outliers altos para el porcentaje de cuentas de conjuntos de genes especificados (mitocondriales, transcritos spike-in)

    • +
+
+
+
+

3.4 Normalización por escalamiento (scaling normalization)

+

La normalización por escalamiento es la estrategia más simple y usada.

+

Suposición: Cualquier sesgo específico en cada célula afecta a todos los genes de igual manera a través de escalar por el promedio esperado de cuentas para dicha célula.

+

Se realiza de la siguiente manera:

+
    +

  1. Estima un “size factor” para cada célula.

    2. +

  2. Este factor representa el sesgo relativo en esa célula.

    3. +

  3. Divide las cuentas de los genes de cada célula entre su correspondiente “size factor”.

    4. +
+

\[ CuentasNormalizadas = Cuentas / Size factor\]

+

Los valores de expresión normalizados pueden ser usados por análisis posteriores como clustering o reducción de dimensiones.

+
+

3.4.1 Normalizacion por tamaño de biblioteca (Library Size normalization)

+

Tamaño de biblioteca (Library Size): La suma total de las cuentas a tráves de todos los genes en una célula. Asumimos que este valor escala con cualquier sesgo específico en cada célula.

+

\[Library Size_{cell} = \sum_{n=1}^{j} gene\] +Donde \(j\) es el número total de genes y \(gene\) es el número de cuentas por gen en la célula \(cell\).

+

+

Para escalar los datos ocuparemos un factor de escalamiento llamado Library Size factor. Este valor se calcula a partir de escalar el tamaño de la biblioteca, tal que el promedio de los Library Size factor en todas las células sea igual a 1.

+

\[ mean(Library Size factor) = 1 \]

+

Lo que nos permite que los valores normalizados están en la misma escala y pueden ser útiles para la interpretación.

+

+
# Estimar factores de normalización
+lib.sf.zeisel <- librarySizeFactors(sce.zeisel)
+# Examina la distribución de los tamaños de librerías
+# que acabamos de estimar
+summary(lib.sf.zeisel)
+
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
+##  0.1754  0.5682  0.8669  1.0000  1.2758  4.0651
+
hist(log10(lib.sf.zeisel), xlab = "Log10[Library Size factor]", col = "grey80")
+

+

¿A qué crees que se deba la variación en los factores de escalamiento?

+
## Calculando el tamaño de las librerias
+ls.zeisel <- colSums(counts(sce.zeisel))
+plot(ls.zeisel, lib.sf.zeisel, log="xy",
+  xlab="Library size", ylab="Size factor")
+

+
+
+

3.4.2 Puntos finales

+
    +

  • La normalización por tamaño de biblioteca asume que no hay un sesgo de composición, es decir, si existe un grupo de genes cuya expresión aumenta entonces debe existir otro grupo de genes para los que la expresión disminuye en la misma magnitud, esto generalmente no es verdad para los experimentos de scRNA-seq.

    • +

  • Para algunos análisis exploratorios, la precisión de la normalización no es un punto mayor a considerar. La normalizacion por tamaño de biblioteca suele ser suficiente en algunas ocasiones donde se busca identificar clusters y los marcadores de los clusters, dado que el sesgo por composición normalmente no afecta la separación de los clusters, sólo la magnitud.

    • +

  • Sin embargo, esta falta de precisión podría afectar cuando se busca obtener estimaciones y estadísticas a nivel de genes individuales.

    • +
+
+
+
+

3.5 Normalización por deconvolución (deconvolution)

+

El problema causado por el sesgo de composición y cómo eliminarlo ha sido estudiado en bulk RNA-seq por métodos como DESeq2::estimateSizeFactorsFromMatrix() y edgeR::calcNormFactors(). En ambos casos, se asume que la mayoría de genes no estarán diferencialmente expresados entre las muestras (en nuestro caso células) y cualquier diferencia entre los genes no diferencialmente expresados representa un sesgo el cual se remueve utilzando el factor de normalización calculado.

+

Sin embargo, en single-cell RNA-seq se tienen muchas cuentas bajas y ceros debido a limitaciones en la tecnología, las cuales no necesariamente indican ausencia de expresión. Para este fenómento no están preparados los métodos utilizados en bulk RNA-seq.

+

La normalización por deconvolución (o normalización scran):

+
    +
  • Junta las cuentas de varias células (pool) para incrementar el tamaño de las cuentas, reduciendo ceros y cuentas bajas.
    • +
  • Aplica los métodos de normalización que corrigen el sesgo de composición.
    • +
  • Repiten esto para conjuntos sobrelapantes de células para obtener size factors en pool.
    • +
  • Deconvoluciona estos size factors en pool para obtener size factors para cada célula.
    • +
+
# Normalización por deconvolución (deconvolution)
+library("scran")
+# Pre-clustering (establece una semilla para obtener resultados reproducibles)
+set.seed(100)
+clust.zeisel <- quickCluster(sce.zeisel)
+
+# Calcula factores de tamaño para la deconvolución (deconvolution)
+deconv.sf.zeisel <-
+    calculateSumFactors(sce.zeisel, clusters = clust.zeisel, min.mean = 0.1)
+

El pre-clustering mejora la estimación de los size factors al normalizar células similares juntas.

+
# Examina la distribución de los factores de tamaño
+summary(deconv.sf.zeisel)
+
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
+##  0.1282  0.4859  0.8248  1.0000  1.3194  4.6521
+
hist(log10(deconv.sf.zeisel),
+    xlab = "Log10[Deconvolution size factor]",
+    col = "grey80"
+)
+

+
plot(lib.sf.zeisel,
+    deconv.sf.zeisel,
+    xlab = "Library size factor",
+    ylab = "Deconvolution size factor",
+    log = "xy",
+    pch = 16, 
+    col=as.integer(factor(sce.zeisel$level1class))
+)
+abline(a = 0, b = 1, col = "red")
+

+
+

3.5.1 Puntos finales

+

La normalización por deconvolución (deconvolution) mejora los resultados para análisis posteriores de una manera más precisa que los métodos para bulk RNA-seq.

+

El método scran::calculateSumFactors algunas veces calcula factores negativos o ceros lo cual altera la matriz de expresión normalizada. ¡Checa los factores que calculas! Si obtienes factores negativos intenta variar el número de clusters.

+
summary(deconv.sf.zeisel)
+
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
+##  0.1282  0.4859  0.8248  1.0000  1.3194  4.6521
+
+
+
+

3.6 Transformación logarítmica

+

Una vez calculados los factores de normalización con computeSumFactors(), podemos calcular las cuentas en escala logarítmica usando logNormCounts(). ¿Qué es lo que hace esta función?

+
    +
  • Divide las cuentas de cada gene por el size factor correspondiente para esa célula (estos serían los valores normalizados) y entonces le aplica una transformción logarítmica a estos valores normalizados.
    • +
  • Típicamente agrega una pseudo-cuenta de 1 para evitar calcular log(0).
    • +
  • Estas cuentas en escala log se conocen como: valores de expresión normalizados en escala logarítmica (log-transformed normalized expression values).
    • +
+
sce.zeisel
+
## class: SingleCellExperiment 
+## dim: 18441 2815 
+## metadata(0):
+## assays(1): counts
+## rownames(18441): ENSMUSG00000029669 ENSMUSG00000046982 ... ENSMUSG00000064337 ENSMUSG00000065947
+## rowData names(2): featureType originalName
+## colnames(2815): 1772071015_C02 1772071017_G12 ... 1772063068_D01 1772066098_A12
+## colData names(10): tissue group # ... level1class level2class
+## reducedDimNames(0):
+## mainExpName: endogenous
+## altExpNames(2): ERCC repeat
+
# Normalization
+# Esto agrega el "sizeFactor" como parte del objeto
+# set.seed(100)
+# clust.zeisel <- quickCluster(sce.zeisel)
+sce.zeisel <- computeSumFactors(sce.zeisel, cluster=clust.zeisel, min.mean=0.1)
+
+sce.zeisel
+
## class: SingleCellExperiment 
+## dim: 18441 2815 
+## metadata(0):
+## assays(1): counts
+## rownames(18441): ENSMUSG00000029669 ENSMUSG00000046982 ... ENSMUSG00000064337 ENSMUSG00000065947
+## rowData names(2): featureType originalName
+## colnames(2815): 1772071015_C02 1772071017_G12 ... 1772063068_D01 1772066098_A12
+## colData names(11): tissue group # ... level2class sizeFactor
+## reducedDimNames(0):
+## mainExpName: endogenous
+## altExpNames(2): ERCC repeat
+
# Log transformation
+sce.zeisel <- scater::logNormCounts(sce.zeisel)
+assayNames(sce.zeisel)
+
## [1] "counts"    "logcounts"
+
+

3.6.1 Motivación, ¿Por qué hacemos esta transformación?

+

¿Qué gen es más interesante?

+
    +

  • Gen X: el promedio de expresión en el tipo celular A: 50 y B: 10

    • +

  • Gen Y: el promedio de expresión en el tipo celular A: 1100 y B: 1000

    • +
+
50 - 10
+
## [1] 40
+
1100 - 1000
+
## [1] 100
+
log(50) - log(10)
+
## [1] 1.609438
+
log(1100) - log(1000)
+
## [1] 0.09531018
+

Exacto, Gen X

+
+
+

3.6.2 Lluvia de ideas

+
    +

  • ¿Qué pasa cuando hacemos la transformación logarítmica?

    • +

  • ¿Qué es una pseudo-cuenta? ¿Por qué se usa?

    • +

  • ¿Qué valor de pseudo-cuenta usa logNormCounts()?

    • +
+
+
+
+

3.7 Otras normalizaciones

+

Te invitamos a leer más sobre otras formas de normalizar, para empezar puedes consultar el siguiente curso del Sanger Institute.

+

Si estas interesad@ en diferencias en el contenido total de RNA en cada célula, checa la normalización por spike-ins. La cual asume que los spike-ins fueron añadidos en un nivel constante en cada célula.

+

Si tienes resultados donde el library size está asociado a tus datos a pesar de haber normalizado, checa la opción de downsample=TRUE dentro de la función de logNormCounts().

+

Si te gustaría tener factores de normalización específicos para cada gen que tomen en cuenta la varianza, checa las funciones varianceStabilizingTransformation() de DESeq2 o sctransform de Seurat.

+
+
+

3.8 Dónde estamos

+
+

+ +

+
+
+
+

3.9 Adicionales

+

[1] 2018 BioInfoSummer Workshop

+

[2] HBC training

+
+
+

3.10 Agradecimientos

+

Este curso está basado en el libro Orchestrating Single Cell Analysis with Bioconductor de Aaron Lun, Robert Amezquita, Stephanie Hicks y Raphael Gottardo, además del curso de scRNA-seq para WEHI creado por Peter Hickey.

+

Y en el material de la comunidadbioinfo/cdsb2020 con el permiso de Leonardo Collado-Torres.

+
+
+

3.11 Detalles de la sesión de R

+
## Información de la sesión de R
+Sys.time()
+
## [1] "2023-07-31 15:43:10 EDT"
+
proc.time()
+
##    user  system elapsed 
+## 376.387  15.493 789.255
+
options(width = 120)
+sessioninfo::session_info()
+
## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
+##  setting  value
+##  version  R version 4.3.1 (2023-06-16)
+##  os       macOS Ventura 13.4.1
+##  system   aarch64, darwin20
+##  ui       RStudio
+##  language (EN)
+##  collate  en_US.UTF-8
+##  ctype    en_US.UTF-8
+##  tz       America/New_York
+##  date     2023-07-31
+##  rstudio  2023.06.0+421 Mountain Hydrangea (desktop)
+##  pandoc   3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown)
+## 
+## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
+##  package                * version   date (UTC) lib source
+##  AnnotationDbi          * 1.62.2    2023-07-02 [1] Bioconductor
+##  AnnotationFilter       * 1.24.0    2023-05-08 [1] Bioconductor
+##  AnnotationHub          * 3.8.0     2023-05-08 [1] Bioconductor
+##  beachmat                 2.16.0    2023-05-08 [1] Bioconductor
+##  beeswarm                 0.4.0     2021-06-01 [1] CRAN (R 4.3.0)
+##  Biobase                * 2.60.0    2023-05-08 [1] Bioconductor
+##  BiocFileCache          * 2.8.0     2023-05-08 [1] Bioconductor
+##  BiocGenerics           * 0.46.0    2023-06-04 [1] Bioconductor
+##  BiocIO                   1.10.0    2023-05-08 [1] Bioconductor
+##  BiocManager              1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0)
+##  BiocNeighbors            1.18.0    2023-05-08 [1] Bioconductor
+##  BiocParallel             1.34.2    2023-05-28 [1] Bioconductor
+##  BiocSingular             1.16.0    2023-05-08 [1] Bioconductor
+##  BiocVersion              3.17.1    2022-12-20 [1] Bioconductor
+##  biomaRt                  2.56.1    2023-06-11 [1] Bioconductor
+##  Biostrings               2.68.1    2023-05-21 [1] Bioconductor
+##  bit                      4.0.5     2022-11-15 [1] CRAN (R 4.3.0)
+##  bit64                    4.0.5     2020-08-30 [1] CRAN (R 4.3.0)
+##  bitops                   1.0-7     2021-04-24 [1] CRAN (R 4.3.0)
+##  blob                     1.2.4     2023-03-17 [1] CRAN (R 4.3.0)
+##  bluster                  1.10.0    2023-05-08 [1] Bioconductor
+##  bookdown                 0.34      2023-05-09 [1] CRAN (R 4.3.0)
+##  bslib                    0.5.0     2023-06-09 [1] CRAN (R 4.3.0)
+##  cachem                   1.0.8     2023-05-01 [1] CRAN (R 4.3.0)
+##  cli                      3.6.1     2023-03-23 [1] CRAN (R 4.3.0)
+##  cluster                  2.1.4     2022-08-22 [1] CRAN (R 4.3.1)
+##  codetools                0.2-19    2023-02-01 [1] CRAN (R 4.3.1)
+##  colorspace               2.1-0     2023-01-23 [1] CRAN (R 4.3.0)
+##  cowplot                  1.1.1     2020-12-30 [1] CRAN (R 4.3.0)
+##  crayon                   1.5.2     2022-09-29 [1] CRAN (R 4.3.0)
+##  curl                     5.0.1     2023-06-07 [1] CRAN (R 4.3.0)
+##  DBI                      1.1.3     2022-06-18 [1] CRAN (R 4.3.0)
+##  dbplyr                 * 2.3.3     2023-07-07 [1] CRAN (R 4.3.0)
+##  DelayedArray             0.26.6    2023-07-02 [1] Bioconductor
+##  DelayedMatrixStats       1.22.0    2023-05-08 [1] Bioconductor
+##  digest                   0.6.33    2023-07-07 [1] CRAN (R 4.3.0)
+##  dplyr                  * 1.1.2     2023-04-20 [1] CRAN (R 4.3.0)
+##  dqrng                    0.3.0     2021-05-01 [1] CRAN (R 4.3.0)
+##  DropletUtils           * 1.20.0    2023-05-08 [1] Bioconductor
+##  edgeR                    3.42.4    2023-06-04 [1] Bioconductor
+##  ellipsis                 0.3.2     2021-04-29 [1] CRAN (R 4.3.0)
+##  EnsDb.Hsapiens.v86     * 2.99.0    2023-07-29 [1] Bioconductor
+##  ensembldb              * 2.24.0    2023-05-08 [1] Bioconductor
+##  evaluate                 0.21      2023-05-05 [1] CRAN (R 4.3.0)
+##  ExperimentHub            2.8.1     2023-07-16 [1] Bioconductor
+##  fansi                    1.0.4     2023-01-22 [1] CRAN (R 4.3.0)
+##  farver                   2.1.1     2022-07-06 [1] CRAN (R 4.3.0)
+##  fastmap                  1.1.1     2023-02-24 [1] CRAN (R 4.3.0)
+##  filelock                 1.0.2     2018-10-05 [1] CRAN (R 4.3.0)
+##  generics                 0.1.3     2022-07-05 [1] CRAN (R 4.3.0)
+##  GenomeInfoDb           * 1.36.1    2023-07-02 [1] Bioconductor
+##  GenomeInfoDbData         1.2.10    2023-06-08 [1] Bioconductor
+##  GenomicAlignments        1.36.0    2023-05-08 [1] Bioconductor
+##  GenomicFeatures        * 1.52.1    2023-07-02 [1] Bioconductor
+##  GenomicRanges          * 1.52.0    2023-05-08 [1] Bioconductor
+##  ggbeeswarm               0.7.2     2023-04-29 [1] CRAN (R 4.3.0)
+##  ggplot2                * 3.4.2     2023-04-03 [1] CRAN (R 4.3.0)
+##  ggrepel                  0.9.3     2023-02-03 [1] CRAN (R 4.3.0)
+##  glue                     1.6.2     2022-02-24 [1] CRAN (R 4.3.0)
+##  gridExtra                2.3       2017-09-09 [1] CRAN (R 4.3.0)
+##  gtable                   0.3.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  HDF5Array                1.28.1    2023-05-08 [1] Bioconductor
+##  here                     1.0.1     2020-12-13 [1] CRAN (R 4.3.0)
+##  highr                    0.10      2022-12-22 [1] CRAN (R 4.3.0)
+##  hms                      1.1.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  htmltools                0.5.5     2023-03-23 [1] CRAN (R 4.3.0)
+##  httpuv                   1.6.11    2023-05-11 [1] CRAN (R 4.3.0)
+##  httr                     1.4.6     2023-05-08 [1] CRAN (R 4.3.0)
+##  igraph                   1.5.0.1   2023-07-23 [1] CRAN (R 4.3.0)
+##  interactiveDisplayBase   1.38.0    2023-05-08 [1] Bioconductor
+##  IRanges                * 2.34.1    2023-07-02 [1] Bioconductor
+##  irlba                    2.3.5.1   2022-10-03 [1] CRAN (R 4.3.0)
+##  jquerylib                0.1.4     2021-04-26 [1] CRAN (R 4.3.0)
+##  jsonlite                 1.8.7     2023-06-29 [1] CRAN (R 4.3.0)
+##  KEGGREST                 1.40.0    2023-05-08 [1] Bioconductor
+##  knitr                    1.43      2023-05-25 [1] CRAN (R 4.3.0)
+##  labeling                 0.4.2     2020-10-20 [1] CRAN (R 4.3.0)
+##  later                    1.3.1     2023-05-02 [1] CRAN (R 4.3.0)
+##  lattice                  0.21-8    2023-04-05 [1] CRAN (R 4.3.1)
+##  lazyeval                 0.2.2     2019-03-15 [1] CRAN (R 4.3.0)
+##  lifecycle                1.0.3     2022-10-07 [1] CRAN (R 4.3.0)
+##  limma                    3.56.2    2023-06-04 [1] Bioconductor
+##  locfit                   1.5-9.8   2023-06-11 [1] CRAN (R 4.3.0)
+##  magrittr                 2.0.3     2022-03-30 [1] CRAN (R 4.3.0)
+##  Matrix                 * 1.6-0     2023-07-08 [1] CRAN (R 4.3.0)
+##  MatrixGenerics         * 1.12.2    2023-07-02 [1] Bioconductor
+##  matrixStats            * 1.0.0     2023-06-02 [1] CRAN (R 4.3.0)
+##  memoise                  2.0.1     2021-11-26 [1] CRAN (R 4.3.0)
+##  metapod                  1.8.0     2023-04-25 [1] Bioconductor
+##  mime                     0.12      2021-09-28 [1] CRAN (R 4.3.0)
+##  munsell                  0.5.0     2018-06-12 [1] CRAN (R 4.3.0)
+##  pillar                   1.9.0     2023-03-22 [1] CRAN (R 4.3.0)
+##  pkgconfig                2.0.3     2019-09-22 [1] CRAN (R 4.3.0)
+##  png                      0.1-8     2022-11-29 [1] CRAN (R 4.3.0)
+##  prettyunits              1.1.1     2020-01-24 [1] CRAN (R 4.3.0)
+##  progress                 1.2.2     2019-05-16 [1] CRAN (R 4.3.0)
+##  promises                 1.2.0.1   2021-02-11 [1] CRAN (R 4.3.0)
+##  ProtGenerics             1.32.0    2023-05-08 [1] Bioconductor
+##  purrr                    1.0.1     2023-01-10 [1] CRAN (R 4.3.0)
+##  R.methodsS3              1.8.2     2022-06-13 [1] CRAN (R 4.3.0)
+##  R.oo                     1.25.0    2022-06-12 [1] CRAN (R 4.3.0)
+##  R.utils                  2.12.2    2022-11-11 [1] CRAN (R 4.3.0)
+##  R6                       2.5.1     2021-08-19 [1] CRAN (R 4.3.0)
+##  rappdirs                 0.3.3     2021-01-31 [1] CRAN (R 4.3.0)
+##  Rcpp                     1.0.11    2023-07-06 [1] CRAN (R 4.3.0)
+##  RCurl                    1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0)
+##  restfulr                 0.0.15    2022-06-16 [1] CRAN (R 4.3.0)
+##  rhdf5                    2.44.0    2023-05-08 [1] Bioconductor
+##  rhdf5filters             1.12.1    2023-05-08 [1] Bioconductor
+##  Rhdf5lib                 1.22.0    2023-05-08 [1] Bioconductor
+##  rjson                    0.2.21    2022-01-09 [1] CRAN (R 4.3.0)
+##  rlang                    1.1.1     2023-04-28 [1] CRAN (R 4.3.0)
+##  rmarkdown                2.23      2023-07-01 [1] CRAN (R 4.3.0)
+##  rprojroot                2.0.3     2022-04-02 [1] CRAN (R 4.3.0)
+##  Rsamtools                2.16.0    2023-06-04 [1] Bioconductor
+##  RSQLite                  2.3.1     2023-04-03 [1] CRAN (R 4.3.0)
+##  rstudioapi               0.15.0    2023-07-07 [1] CRAN (R 4.3.0)
+##  rsvd                     1.0.5     2021-04-16 [1] CRAN (R 4.3.0)
+##  rtracklayer              1.60.0    2023-05-08 [1] Bioconductor
+##  S4Arrays                 1.0.4     2023-05-14 [1] Bioconductor
+##  S4Vectors              * 0.38.1    2023-05-08 [1] Bioconductor
+##  sass                     0.4.7     2023-07-15 [1] CRAN (R 4.3.0)
+##  ScaledMatrix             1.8.1     2023-05-08 [1] Bioconductor
+##  scales                   1.2.1     2022-08-20 [1] CRAN (R 4.3.0)
+##  scater                 * 1.28.0    2023-04-25 [1] Bioconductor
+##  scran                  * 1.28.2    2023-07-23 [1] Bioconductor
+##  scRNAseq               * 2.14.0    2023-04-27 [1] Bioconductor
+##  scuttle                * 1.9.4     2023-01-23 [1] Bioconductor
+##  sessioninfo              1.2.2     2021-12-06 [1] CRAN (R 4.3.0)
+##  shiny                    1.7.4.1   2023-07-06 [1] CRAN (R 4.3.0)
+##  SingleCellExperiment   * 1.22.0    2023-05-08 [1] Bioconductor
+##  sparseMatrixStats        1.12.2    2023-07-02 [1] Bioconductor
+##  statmod                  1.5.0     2023-01-06 [1] CRAN (R 4.3.0)
+##  stringi                  1.7.12    2023-01-11 [1] CRAN (R 4.3.0)
+##  stringr                  1.5.0     2022-12-02 [1] CRAN (R 4.3.0)
+##  SummarizedExperiment   * 1.30.2    2023-06-06 [1] Bioconductor
+##  tibble                   3.2.1     2023-03-20 [1] CRAN (R 4.3.0)
+##  tidyselect               1.2.0     2022-10-10 [1] CRAN (R 4.3.0)
+##  utf8                     1.2.3     2023-01-31 [1] CRAN (R 4.3.0)
+##  vctrs                    0.6.3     2023-06-14 [1] CRAN (R 4.3.0)
+##  vipor                    0.4.5     2017-03-22 [1] CRAN (R 4.3.0)
+##  viridis                  0.6.4     2023-07-22 [1] CRAN (R 4.3.0)
+##  viridisLite              0.4.2     2023-05-02 [1] CRAN (R 4.3.0)
+##  withr                    2.5.0     2022-03-03 [1] CRAN (R 4.3.0)
+##  xfun                     0.39      2023-04-20 [1] CRAN (R 4.3.0)
+##  XML                      3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0)
+##  xml2                     1.3.5     2023-07-06 [1] CRAN (R 4.3.0)
+##  xtable                   1.8-4     2019-04-21 [1] CRAN (R 4.3.0)
+##  XVector                  0.40.0    2023-05-08 [1] Bioconductor
+##  yaml                     2.3.7     2023-01-23 [1] CRAN (R 4.3.0)
+##  zlibbioc                 1.46.0    2023-05-08 [1] Bioconductor
+## 
+##  [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library
+## 
+## ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/nuevas-funcionalidades-de-rstudio-quarto..html b/docs/nuevas-funcionalidades-de-rstudio-quarto..html new file mode 100644 index 0000000..59d2277 --- /dev/null +++ b/docs/nuevas-funcionalidades-de-rstudio-quarto..html @@ -0,0 +1,510 @@ + + + + + + + 9 Nuevas funcionalidades de RStudio, Quarto. | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

9 Nuevas funcionalidades de RStudio, Quarto.

+

Erick Cuevas

+

09 de agosto de 2023

+
+

9.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/proyectos-colaborativos-1.html b/docs/proyectos-colaborativos-1.html new file mode 100644 index 0000000..42a57d8 --- /dev/null +++ b/docs/proyectos-colaborativos-1.html @@ -0,0 +1,517 @@ + + + + + + + 17 Proyectos colaborativos | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

17 Proyectos colaborativos

+
    +
  • Proyecto 1
    • +
  • Proyecto 2
    • +
  • Proyecto 3
    • +
  • Proyecto 4
    • +
+ +
+ + + + + + + +
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/proyectos-colaborativos.html b/docs/proyectos-colaborativos.html new file mode 100644 index 0000000..73369d6 --- /dev/null +++ b/docs/proyectos-colaborativos.html @@ -0,0 +1,328 @@ + + + + + + + 17 Proyectos colaborativos | Workshop CDSB 2023: Creando paquetes de R/Bioconductor para análisis transcriptómicos de célula única. + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

17 Proyectos colaborativos

+
    +
  • Proyecto 1
    • +
  • Proyecto 2
    • +
  • Proyecto 3
    • +
  • Proyecto 4
    • +
+ +
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + diff --git "a/docs/reducci\303\263n-de-dimensiones.html" "b/docs/reducci\303\263n-de-dimensiones.html" new file mode 100644 index 0000000..c5e4fd2 --- /dev/null +++ "b/docs/reducci\303\263n-de-dimensiones.html" @@ -0,0 +1,1120 @@ + + + + + + + 5 Reducción de dimensiones | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

5 Reducción de dimensiones

+

Instructora: Laura Gómez-Romero

+
+

5.1 Diapositivas de Peter Hickey

+

Contenido adaptado de: aquí

+
+
+

5.2 Motivación

+

El siguiente paso en el análisis de scRNA-seq usualmente consiste en identificar grupos de células “similares”.

+

Por ejemplo: un análisis de clustering busca identificar células con un perfil transcriptómico similar al calcular distancias entre ellas.

+

Si tuviéramos un dataset con dos genes podríamos hacer una gráfica de dos dimensiones para identificar clusters de células.

+
+

+ +

+
+

Pero… tenemos decenas de miles de genes : Reducción de dimensionalidad

+
+
+

5.3 Reducción de dimensionalidad

+

Es posible porque la expresión de diferentes genes estaría correlacionada si estos genes son afectados por el mismo proceso biológico.

+

Por lo tanto, no necesitamos almacenar información independiente para genes individuales. Podemos comprimir múltiples “features” (genes) en una única dimensión.

+

Ventajas:

+
    +
  • Reduce trabajo computacional en análisis posteriores.
    • +
  • Reduce el ruido al “promediar” mútiples genes obteniendo una representación más precisa de los patrones en los datos.
    • +
  • Permite una graficación efectiva en dos dimensiones.
    • +
+
+
+

5.4 Dataset ilustrativo: Zeisel

+
library(scRNAseq)
+sce.zeisel <- ZeiselBrainData(ensembl = TRUE)
+
+# Estos datos contienen tipos celulares previamente anotados
+table(sce.zeisel$level1class)
+
## 
+## astrocytes_ependymal    endothelial-mural         interneurons            microglia     oligodendrocytes 
+##                  224                  235                  290                   98                  820 
+##        pyramidal CA1         pyramidal SS 
+##                  939                  399
+

Estudio de tipos celulares en el cerebro de ratón (oligodendrocitos, microglia, neuronas, etc) procesados con el sistema STRT-seq (similar a CEL-Seq)

+

Descripción aquí

+

Zeisel, A. et al. Brain structure. Cell types in the mouse cortex and hippocampus revealed by single-cell RNA-seq. Science 347, 1138-1142 (2015)

+
# Quality control
+# Descartar celulas con alto contenido mitocondrial o con alto porcentaje de spike-ins
+library(scater)
+is.mito <- which(rowData(sce.zeisel)$featureType == "mito")
+stats <- perCellQCMetrics(sce.zeisel,
+    subsets = list(Mt = is.mito)
+)
+qc <- quickPerCellQC(stats,
+    percent_subsets = c("altexps_ERCC_percent", "subsets_Mt_percent")
+)
+sce.zeisel <- sce.zeisel[, !qc$discard]
+
# normalization
+# encontramos unos clusters rápidos para las células y usamos esa información para calcular los factores de tamaño
+library(scran)
+set.seed(1000)
+clusters <- quickCluster(sce.zeisel)
+sce.zeisel <- computeSumFactors(sce.zeisel,
+    cluster = clusters
+)
+sce.zeisel <- logNormCounts(sce.zeisel)
+
# variance-modelling
+dec.zeisel <- modelGeneVarWithSpikes(
+    sce.zeisel,
+    "ERCC"
+)
+top.zeisel <- getTopHVGs(dec.zeisel, n = 2000)
+
    +
  • ¿Cómo se está modelando la relación media varianza?
    • +
  • ¿Cómo se están obteniendo los HGVs?
    • +
+
+
+

5.5 Dataset ilustrativo: 10x PBMC4k no filtradas

+
library(BiocFileCache)
+bfc <- BiocFileCache()
+raw.path <- bfcrpath(bfc, file.path(
+    "http://cf.10xgenomics.com/samples",
+    "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz"
+))
+untar(raw.path, exdir = file.path(tempdir(), "pbmc4k"))
+
library(DropletUtils)
+library(Matrix)
+fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38")
+sce.pbmc <- read10xCounts(fname, col.names = TRUE)
+

Dataset “Células mononucleares humanas de sangre periférica” de 10X Genomics

+

Descripción aquí

+

Zheng, G. X. Y. et al. Massively parallel digital transcriptional profiling of single cells. Nat. Commun. 8, 14049 (2017)

+
# gene-annotation
+library(scater)
+rownames(sce.pbmc) <- uniquifyFeatureNames(
+    rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol
+)
+library(EnsDb.Hsapiens.v86)
+location <- mapIds(EnsDb.Hsapiens.v86,
+    keys = rowData(sce.pbmc)$ID,
+    column = "SEQNAME", keytype = "GENEID"
+)
+
+# cell-detection
+set.seed(100)
+e.out <- emptyDrops(counts(sce.pbmc))
+sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)]
+
# quality-control
+stats <- perCellQCMetrics(sce.pbmc,
+    subsets = list(Mito = which(location == "MT"))
+)
+high.mito <- isOutlier(stats$subsets_Mito_percent,
+    type = "higher"
+)
+sce.pbmc <- sce.pbmc[, !high.mito]
+
+# normalization
+library(scran)
+set.seed(1000)
+clusters <- quickCluster(sce.pbmc)
+sce.pbmc <- computeSumFactors(sce.pbmc, cluster = clusters)
+sce.pbmc <- logNormCounts(sce.pbmc)
+
# variance modelling
+set.seed(1001)
+dec.pbmc <- modelGeneVarByPoisson(sce.pbmc)
+top.pbmc <- getTopHVGs(dec.pbmc, prop = 0.1)
+
    +
  • ¿Cómo se está modelando la relación media varianza?
    • +
  • ¿Cómo se están obteniendo los HGVs?
    • +
+
+
+

5.6 Análisis de Componentes Principales

+

PCA es el arma principal de la reducción de dimensionalidad.

+

PCA descubre las combinaciones (lineales) de “features” que capturan la cantidad más grande de variación

+

En un PCA, la primer combinación lineal (componente principal) se elige tal que permite capturar la mayor varianza a través de las células. El siguiente PC se elige tal que es “ortogonal” al primero y captura la cantidad más grande de la variación restante, y así sucesivamente…

+
+

5.6.1 PCA aplicado a datos de scRNA-seq

+

Podemos realizar reducción de dimensionalidad al aplicar PCA en la matriz de cuentas transformadas (log-counts matrix) y restringiendo los análisis posteriores a los primeros PCs (top PCs).

+
    +
  • Esto puede reducir nuestro dataset de 20,000 dimensiones a, digamos, 10, sin perder demasiada información.
    • +
  • La técnica de PCA tiene muchas propiedades teóricas bien estudiadas.
    • +
  • Hay varias formas rápidas de realizar PCA en datasets grandes.
    • +
+
+
+

5.6.2 Suposiciones de PCA aplicadas a los datos de scRNA-seq

+
    +
  • Los procesos biológicos afectan múltiples genes en una manera coordinada.
    • +
  • Los primeros PCs probablemente representan la estructura biológica dado que más variación puede ser capturada considerando el comportamiento correlacionado de muchos genes.
    • +
  • Se espera que el ruido técnico azaroso afecte cada gen independientemente.
    • +
+

Consideración: Los primeros PCs capturarón “batch effects” (efectos de lote) que afectan muchos genes en una manera coordinada

+
## Aplicar PCA en la matriz de cuentas transformadas (log-counts matrix)
+library(scran)
+library(scater)
+set.seed(100)
+sce.zeisel <- runPCA(sce.zeisel,
+    subset_row = top.zeisel
+)
+

¿Estamos corriendo el análisis sobre todos los genes de nuestro dataset?

+

Por default, runPCA() usa un método rápido aproximado que realiza simulaciones, por lo tanto, es necesario ‘configurar la semilla’ para obtener resultados reproducibles.

+
+
+

5.6.3 Eligiendo el número de PCs

+

Esta elección en análoga a la elección del número de highly variable genes (HGV). Elegir más PCs evitará descartar señal biológica a expensas de retener más ruido

+
    +
  • Es común seleccionar un número de PCs “razonable” pero arbitrario (10-50), continuar con el análisis y regresar para checar la robustez de los resultados en cierto rango de valores.
    • +
+

Ahora exploraremos algunas estrategias guiadas por los datos (data-driven) para hacer esta selección.

+
+

5.6.3.1 Usando el punto del codo

+
library(PCAtools)
+percent.var <- attr(reducedDim(sce.zeisel), "percentVar")
+chosen.elbow <- PCAtools::findElbowPoint(percent.var)
+plot(percent.var, xlab = "PC", ylab = "Variance explained (%)")
+abline(v = chosen.elbow, col = "red")
+

+

Una heurística simple es elegir el número de PCs basado en el porcentaje de varianza explicado por PCs sucesivos.

+
+
+

5.6.3.2 Basados en la estructura de la población

+

Esta es una aproximación heurística más sofisticada que usa el número de clusters como un proxy del número de subpoblaciones.

+
choices <- getClusteredPCs(reducedDim(sce.zeisel))
+chosen.clusters <- metadata(choices)$chosen
+
+plot(choices$n.pcs, choices$n.clusters,
+    xlab = "Number of PCs", ylab = "Number of clusters"
+)
+abline(a = 1, b = 1, col = "red")
+abline(v = chosen.clusters, col = "grey80", lty = 2)
+

+

Supongamos que esperamos d subpoblaciones de células, en ese caso, necesitamos d-1 dimensiones para garantizar la separación de todas las subpoblaciones.

+

Pero… en un escenario real realmente no sabes cuántas poblaciones hay…

+
    +
  • Intenta con un rango para d y únicamente considera valores que produzcan a lo más d+1 clusters
    • +
  • Cuando se seleccionan más clusters con menos dimensiones se produce ‘overclustering’.
    • +
  • Elige una d que maximice el número de clusters sin caer en ‘overclustering’.
    • +
+

Ventaja: Es una solución pragmática que soluciona el equilibrio sesgo-varianza en los análisis posteriores (especialmente en el análisis de clustering).

+

Desventaja: Hace suposiciones fuertes sobre la naturaleza de las diferencias biológicas entre los clusters, y de hecho supone la existencia de clusters, los cuales podrían no existir en algunos procesos biológicos como la diferenciación.

+
+
+
+

5.6.4 Juntando todo

+
set.seed(100)
+# Calcula y almacena todos los posibles PCs
+sce.zeisel <- runPCA(sce.zeisel, subset_row = top.zeisel)
+
+# Selecciona y almacena el conjunto reducido de PCs:
+# ... por el método del codo
+reducedDim(sce.zeisel, "PCA_elbow") <- reducedDim(
+    sce.zeisel, "PCA"
+)[, 1:chosen.elbow]
+# ... basado en la estructura poblacional 
+reducedDim(sce.zeisel, "PCA_clusters") <- reducedDim(
+    sce.zeisel, "PCA"
+)[, 1:chosen.clusters]
+
+
+

5.6.5 EJERCICIO

+
    +
  1. Realiza un PCA para los datos sce.pbmc.
    2. +
  2. Elige el número de PCs a conservar utilizando el método del codo.
    3. +
  3. Elige el número de PCs a conservar utilizando la estructura de la población.
    4. +
  4. Agrega esta información al objeto sce.pbmc.
    5. +
+
+
+

5.6.6 Usando el ruido técnico

+

Otra técnica de reducción de dimensiones consiste en conservar todos los PCs hasta que el % de variación explicado alcance algun límite (por ejemplo, basado en la estimación de la variación técnica).

+

denoisePCA() automáticamente selecciona el número de PCs.

+

Por default, denoisePCA() realiza algunas simulaciones, por lo tanto necesitamos ‘configurar la semilla’ para obtener resultados reproducibles.

+
library(scran)
+set.seed(111001001)
+denoised.pbmc <- denoisePCA(sce.pbmc,
+    technical = dec.pbmc, subset.row = top.pbmc
+)
+
dim(reducedDim(denoised.pbmc, "PCA"))
+
## [1] 3968    8
+

La dimensionalidad del output es el límite inferior para el número de PCs requeridos para explicar toda la variación biológica. Lo que significa que cualquier número menor de PCs definitivamente descartará algún aspecto de la señal biológica.

+

Esto no grantiza que los PCs retenidos capturen toda la señal biológica

+

Esta técnica usualmente retiene más PCs que el método del punto del codo

+

scran::denoisePCA() internamente limita el numero de PCs, por default 5-50, para evitar la selección de excesivamente pocos PCs (cuando el ruido técnico es alto relativo al ruido biológico) o excesivamente muchos PCs (cuando el ruido técnico es demasiado bajo).

+
+

5.6.6.1 ¿Qué pasa si calculamos la relación media-varianza con la función modelGeneVar para el dataset sce.pbmc (anteriormente usamos la función modelGeneVarByPoisson para este propósito)?

+
dec.pbmc2 <- modelGeneVar(sce.pbmc)
+denoised.pbmc2 <- denoisePCA(sce.pbmc,
+    technical = dec.pbmc2, subset.row = top.pbmc
+)
+dim(reducedDim(denoised.pbmc2))
+
## [1] 3968    5
+

scran::denoisePCA() tiende a funcionar mejor cuando la relación media-varianza refleja el ruido técnico verdadero, i.e estimado por scran::modelGeneVarByPoisson() o scran::modelGeneVarWithSpikes() en vez de scran::modelGeneVar().

+

El dataset PBMC está cerca de este límite inferior: el ruido técnico es alto relativo al ruido biológico.

+
+
+

5.6.6.2 ¿Qué pasa si calculamos el número de PCs usando el ruido técnico para el dataset sce.zeisel?

+
set.seed(001001001)
+denoised.zeisel <- denoisePCA(sce.zeisel,
+    technical = dec.zeisel, subset.row = top.zeisel
+)
+dim(reducedDim(denoised.zeisel))
+
## [1] 2815   50
+

Los datos de cerebro de Zeisel están cerca de este límite superior: el ruido técnico es demasiado bajo

+
dim(reducedDim(denoised.zeisel, "PCA"))
+
## [1] 2815   50
+
dim(reducedDim(denoised.zeisel, "PCA_elbow"))
+
## [1] 2815    7
+
dim(reducedDim(denoised.zeisel, "PCA_clusters"))
+
## [1] 2815   15
+
+
+
+
+

5.7 Reducción de dimensionalidad para visualización

+
+

5.7.1 Motivación

+

Los algoritmos de clustering, así como la mayoría de los algoritmos, operan fácilmente sobre 10-50 (a lo más) PCs, pero ese número es aún demasiado para la visualización.

+

Por lo tanto, necesitamos estrategias adicionales para la reducción de dimensionalidad si queremos visualizar los datos.

+
+
+

5.7.2 Visualizando con PCA

+
plotReducedDim(sce.zeisel, dimred = "PCA")
+

+
plotReducedDim(sce.zeisel,
+    dimred = "PCA",
+    colour_by = "level1class"
+)
+

+

PCA es una técnica lineal, por lo tanto, no es eficiente para comprimir diferencias en más de 2 dimensiones en los primeros 2 PCs.

+
+
+

5.7.3 Retos y resumen de la visualización con PCA

+
plotReducedDim(sce.zeisel,
+    dimred = "PCA",
+    ncomponents = 4, colour_by = "level1class"
+)
+

+

Ventajas:

+
    +
  • PCA es predecible y no introducirá estructura artificial en los datos.
    • +
  • Es determínistico y robusto a cambios pequeños en los valores de entrada.
    • +
+

Desventajas:

+
    +
  • Usualmente la visualización no es suficiente para visualizar la naturaleza compleja de los datos de scRNA-seq.
    • +
+
+
+

5.7.4 Visualización con t-SNE

+
set.seed(00101001101)
+sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA")
+plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class")
+

+

t-stochastic neighbour embedding (t-SNE) es la visualización por excelencia de datos de scRNA-seq. Intenta encontrar una representación (no-lineal) de los datos usando pocas dimensiones que preserve las distancias entre cada punto y sus vecinos en el espacio multi-dimensional

+
+

5.7.4.1 Retos de la visualización con t-SNE

+
set.seed(100)
+sce.zeisel <- runTSNE(sce.zeisel,
+    dimred = "PCA",
+    perplexity = 30
+)
+plotReducedDim(sce.zeisel,
+    dimred = "TSNE",
+    colour_by = "level1class"
+)
+

+
+
+

5.7.4.2 Preguntas

+
    +

  • ¿Qué pasa si vuelves a correr runTSNE() sin especificar la semilla?

    • +

  • ¿Qué pasa si especificas la semilla pero cambias el valor del parámetro perplexity?

    • +
+
+
+

5.7.4.3 Continuando

+
    +
  • Baja perplejidad favorece la resolución de la estructura fina, posiblemente al grado de que la visualización parece ruido random.
    • +
+
set.seed(100)
+
+sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 5)
+p1 <- plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class")
+
+sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 20)
+p2 <- plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class")
+
+sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 80)
+p3 <- plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class")
+
+library("patchwork")
+p1 + p2 + p3
+

+

El siguiente foro discute la selección de parámetros para t-SNE con cierta profundidad.

+
    +
  • No sobreinterpretes los resultados de t-SNE como un ‘mapa’ de las identidades de las células individuales.
    • +
  • Algunos componentes aleatorios y la selección de parámetros cambiarán la visualización.
    • +
  • La interpretación puede ser engañada por el tamaño y posición de los clusters.
    • +
  • t-SNE infla clusters densos y comprime clusters escasos.
    • +
  • t-SNE no está obligado a preservar las localizaciones relativas de clusters no-vecinos (no puedes interpretar distancias no locales).
    • +
+

Aún así: t-SNE es una herramienta probada para visualización general de datos de scRNA-seq y sigue siendo muy popular

+
+
+
+

5.7.5 Visualización con UMAP

+

Uniform manifold approximation and project (UMAP) es una alternativa a t-SNE.

+

Así como t-SNE, UMAP intenta encontrar una representación (no lineal) de pocas dimensiones de los datos que preserve las distancias entre cada punto y sus vecinos en el espacio multi-dimensional.

+

t-SNE y UMAP están basados en diferentes teorías matemáticas.

+
set.seed(1100101001)
+sce.zeisel <- runUMAP(sce.zeisel, dimred = "PCA")
+plotReducedDim(sce.zeisel,
+    dimred = "UMAP",
+    colour_by = "level1class"
+)
+

+

Comparado con t-SNE:

+
    +
  • UMAP tiende a encontrar clusters visualmente más compactos.
    • +
  • Intenta preservar más de la estructura global que t-SNE.
    • +
  • Tiende a ser más rápido que t-SNE, lo cual puede ser importante para datasets grandes. La diferencia desaparece cuando se aplican sobre los primeros PCs.
    • +
+
+

5.7.5.1 Preguntas

+
    +

  • ¿Qué pasa si vuelves a correr runUMAP() sin especificar la semilla?

    • +

  • ¿Qué pasa si especificas la semilla pero cambias el valor del parámetro n_neighbors?

    • +
+
+
+

5.7.5.2 Continuando

+
+

+ +

+
+
    +

  • Igual que para t-SNE, es necesario configurar una semilla y diferentes valores para los parámetros cambiaron la visualización.

    • +

  • Si el valor para los parámetros n_neighbors o min_dist es demasiado bajo entonces el ruido aleatorio se interpretará como estructura de alta-resolución, si son demasiado altos entonces se perderá la estructura fina.

    • +
+

TIP: Trata un rango de valores para cada parámetro para asegurarte de que no comprometen ninguna de las conclusiones derivadas de la gráfica UMAP o t-SNE

+
+
+
+

5.7.6 Interpretando las gráficas

+

Recuerda:

+
    +

  • Reducción de dimensionalidad para la visualización de los datos necesariamente involucra descartar información y distorsionar las distancias entre las células.

    • +

  • No sobre interpretes las gráficas bonitas.

    • +
+
+
+

5.7.7 Resumen y recomendaciones

+
    +

  • Las gráficas de t-SNE y UMAP son herramientas diagnóstico importantes, por ejemplo: para checar si dos clusters son realmente subclusters vecinos o si un cluster puede ser dividido en más de un cluster.

    • +

  • Es debatible cuál visualización, t-SNE o UMAP, es más útil o estéticamente agradable.

    • +

  • Está bien elegir aquella que funcione mejor para tu análisis (tomando en cuenta que tratarás la gráfica únicamente como una herramienta de visualización/diagnóstico y que no llegarás a ninguna conclusión fuerte basado únicamente en la gráfica).

    • +
+
+
+
+

5.8 Dónde estamos

+
+

+ +

+
+
+
+

5.9 Detalles de la sesión de R

+
## Información de la sesión de R
+Sys.time()
+
## [1] "2023-07-31 15:46:07 EDT"
+
proc.time()
+
##    user  system elapsed 
+## 544.764  20.333 965.837
+
options(width = 120)
+sessioninfo::session_info()
+
## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
+##  setting  value
+##  version  R version 4.3.1 (2023-06-16)
+##  os       macOS Ventura 13.4.1
+##  system   aarch64, darwin20
+##  ui       RStudio
+##  language (EN)
+##  collate  en_US.UTF-8
+##  ctype    en_US.UTF-8
+##  tz       America/New_York
+##  date     2023-07-31
+##  rstudio  2023.06.0+421 Mountain Hydrangea (desktop)
+##  pandoc   3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown)
+## 
+## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
+##  package                * version   date (UTC) lib source
+##  AnnotationDbi          * 1.62.2    2023-07-02 [1] Bioconductor
+##  AnnotationFilter       * 1.24.0    2023-05-08 [1] Bioconductor
+##  AnnotationHub          * 3.8.0     2023-05-08 [1] Bioconductor
+##  beachmat                 2.16.0    2023-05-08 [1] Bioconductor
+##  beeswarm                 0.4.0     2021-06-01 [1] CRAN (R 4.3.0)
+##  Biobase                * 2.60.0    2023-05-08 [1] Bioconductor
+##  BiocFileCache          * 2.8.0     2023-05-08 [1] Bioconductor
+##  BiocGenerics           * 0.46.0    2023-06-04 [1] Bioconductor
+##  BiocIO                   1.10.0    2023-05-08 [1] Bioconductor
+##  BiocManager              1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0)
+##  BiocNeighbors            1.18.0    2023-05-08 [1] Bioconductor
+##  BiocParallel             1.34.2    2023-05-28 [1] Bioconductor
+##  BiocSingular             1.16.0    2023-05-08 [1] Bioconductor
+##  BiocVersion              3.17.1    2022-12-20 [1] Bioconductor
+##  biomaRt                  2.56.1    2023-06-11 [1] Bioconductor
+##  Biostrings               2.68.1    2023-05-21 [1] Bioconductor
+##  bit                      4.0.5     2022-11-15 [1] CRAN (R 4.3.0)
+##  bit64                    4.0.5     2020-08-30 [1] CRAN (R 4.3.0)
+##  bitops                   1.0-7     2021-04-24 [1] CRAN (R 4.3.0)
+##  blob                     1.2.4     2023-03-17 [1] CRAN (R 4.3.0)
+##  bluster                  1.10.0    2023-05-08 [1] Bioconductor
+##  bookdown                 0.34      2023-05-09 [1] CRAN (R 4.3.0)
+##  bslib                    0.5.0     2023-06-09 [1] CRAN (R 4.3.0)
+##  cachem                   1.0.8     2023-05-01 [1] CRAN (R 4.3.0)
+##  cli                      3.6.1     2023-03-23 [1] CRAN (R 4.3.0)
+##  cluster                  2.1.4     2022-08-22 [1] CRAN (R 4.3.1)
+##  codetools                0.2-19    2023-02-01 [1] CRAN (R 4.3.1)
+##  colorspace               2.1-0     2023-01-23 [1] CRAN (R 4.3.0)
+##  cowplot                  1.1.1     2020-12-30 [1] CRAN (R 4.3.0)
+##  crayon                   1.5.2     2022-09-29 [1] CRAN (R 4.3.0)
+##  curl                     5.0.1     2023-06-07 [1] CRAN (R 4.3.0)
+##  DBI                      1.1.3     2022-06-18 [1] CRAN (R 4.3.0)
+##  dbplyr                 * 2.3.3     2023-07-07 [1] CRAN (R 4.3.0)
+##  DelayedArray             0.26.6    2023-07-02 [1] Bioconductor
+##  DelayedMatrixStats       1.22.0    2023-05-08 [1] Bioconductor
+##  digest                   0.6.33    2023-07-07 [1] CRAN (R 4.3.0)
+##  dplyr                  * 1.1.2     2023-04-20 [1] CRAN (R 4.3.0)
+##  dqrng                    0.3.0     2021-05-01 [1] CRAN (R 4.3.0)
+##  DropletUtils           * 1.20.0    2023-05-08 [1] Bioconductor
+##  edgeR                    3.42.4    2023-06-04 [1] Bioconductor
+##  ellipsis                 0.3.2     2021-04-29 [1] CRAN (R 4.3.0)
+##  EnsDb.Hsapiens.v86     * 2.99.0    2023-07-29 [1] Bioconductor
+##  ensembldb              * 2.24.0    2023-05-08 [1] Bioconductor
+##  evaluate                 0.21      2023-05-05 [1] CRAN (R 4.3.0)
+##  ExperimentHub            2.8.1     2023-07-16 [1] Bioconductor
+##  fansi                    1.0.4     2023-01-22 [1] CRAN (R 4.3.0)
+##  farver                   2.1.1     2022-07-06 [1] CRAN (R 4.3.0)
+##  fastmap                  1.1.1     2023-02-24 [1] CRAN (R 4.3.0)
+##  filelock                 1.0.2     2018-10-05 [1] CRAN (R 4.3.0)
+##  FNN                      1.1.3.2   2023-03-20 [1] CRAN (R 4.3.0)
+##  generics                 0.1.3     2022-07-05 [1] CRAN (R 4.3.0)
+##  GenomeInfoDb           * 1.36.1    2023-07-02 [1] Bioconductor
+##  GenomeInfoDbData         1.2.10    2023-06-08 [1] Bioconductor
+##  GenomicAlignments        1.36.0    2023-05-08 [1] Bioconductor
+##  GenomicFeatures        * 1.52.1    2023-07-02 [1] Bioconductor
+##  GenomicRanges          * 1.52.0    2023-05-08 [1] Bioconductor
+##  ggbeeswarm               0.7.2     2023-04-29 [1] CRAN (R 4.3.0)
+##  ggplot2                * 3.4.2     2023-04-03 [1] CRAN (R 4.3.0)
+##  ggrepel                * 0.9.3     2023-02-03 [1] CRAN (R 4.3.0)
+##  glue                     1.6.2     2022-02-24 [1] CRAN (R 4.3.0)
+##  gridExtra                2.3       2017-09-09 [1] CRAN (R 4.3.0)
+##  gtable                   0.3.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  HDF5Array                1.28.1    2023-05-08 [1] Bioconductor
+##  here                     1.0.1     2020-12-13 [1] CRAN (R 4.3.0)
+##  highr                    0.10      2022-12-22 [1] CRAN (R 4.3.0)
+##  hms                      1.1.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  htmltools                0.5.5     2023-03-23 [1] CRAN (R 4.3.0)
+##  httpuv                   1.6.11    2023-05-11 [1] CRAN (R 4.3.0)
+##  httr                     1.4.6     2023-05-08 [1] CRAN (R 4.3.0)
+##  igraph                   1.5.0.1   2023-07-23 [1] CRAN (R 4.3.0)
+##  interactiveDisplayBase   1.38.0    2023-05-08 [1] Bioconductor
+##  IRanges                * 2.34.1    2023-07-02 [1] Bioconductor
+##  irlba                    2.3.5.1   2022-10-03 [1] CRAN (R 4.3.0)
+##  jquerylib                0.1.4     2021-04-26 [1] CRAN (R 4.3.0)
+##  jsonlite                 1.8.7     2023-06-29 [1] CRAN (R 4.3.0)
+##  KEGGREST                 1.40.0    2023-05-08 [1] Bioconductor
+##  knitr                    1.43      2023-05-25 [1] CRAN (R 4.3.0)
+##  labeling                 0.4.2     2020-10-20 [1] CRAN (R 4.3.0)
+##  later                    1.3.1     2023-05-02 [1] CRAN (R 4.3.0)
+##  lattice                  0.21-8    2023-04-05 [1] CRAN (R 4.3.1)
+##  lazyeval                 0.2.2     2019-03-15 [1] CRAN (R 4.3.0)
+##  lifecycle                1.0.3     2022-10-07 [1] CRAN (R 4.3.0)
+##  limma                    3.56.2    2023-06-04 [1] Bioconductor
+##  locfit                   1.5-9.8   2023-06-11 [1] CRAN (R 4.3.0)
+##  magrittr                 2.0.3     2022-03-30 [1] CRAN (R 4.3.0)
+##  Matrix                 * 1.6-0     2023-07-08 [1] CRAN (R 4.3.0)
+##  MatrixGenerics         * 1.12.2    2023-07-02 [1] Bioconductor
+##  matrixStats            * 1.0.0     2023-06-02 [1] CRAN (R 4.3.0)
+##  memoise                  2.0.1     2021-11-26 [1] CRAN (R 4.3.0)
+##  metapod                  1.8.0     2023-04-25 [1] Bioconductor
+##  mime                     0.12      2021-09-28 [1] CRAN (R 4.3.0)
+##  munsell                  0.5.0     2018-06-12 [1] CRAN (R 4.3.0)
+##  patchwork              * 1.1.2     2022-08-19 [1] CRAN (R 4.3.0)
+##  PCAtools               * 2.12.0    2023-05-08 [1] Bioconductor
+##  pillar                   1.9.0     2023-03-22 [1] CRAN (R 4.3.0)
+##  pkgconfig                2.0.3     2019-09-22 [1] CRAN (R 4.3.0)
+##  plyr                     1.8.8     2022-11-11 [1] CRAN (R 4.3.0)
+##  png                      0.1-8     2022-11-29 [1] CRAN (R 4.3.0)
+##  prettyunits              1.1.1     2020-01-24 [1] CRAN (R 4.3.0)
+##  progress                 1.2.2     2019-05-16 [1] CRAN (R 4.3.0)
+##  promises                 1.2.0.1   2021-02-11 [1] CRAN (R 4.3.0)
+##  ProtGenerics             1.32.0    2023-05-08 [1] Bioconductor
+##  purrr                    1.0.1     2023-01-10 [1] CRAN (R 4.3.0)
+##  R.methodsS3              1.8.2     2022-06-13 [1] CRAN (R 4.3.0)
+##  R.oo                     1.25.0    2022-06-12 [1] CRAN (R 4.3.0)
+##  R.utils                  2.12.2    2022-11-11 [1] CRAN (R 4.3.0)
+##  R6                       2.5.1     2021-08-19 [1] CRAN (R 4.3.0)
+##  rappdirs                 0.3.3     2021-01-31 [1] CRAN (R 4.3.0)
+##  Rcpp                     1.0.11    2023-07-06 [1] CRAN (R 4.3.0)
+##  RCurl                    1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0)
+##  reshape2                 1.4.4     2020-04-09 [1] CRAN (R 4.3.0)
+##  restfulr                 0.0.15    2022-06-16 [1] CRAN (R 4.3.0)
+##  rhdf5                    2.44.0    2023-05-08 [1] Bioconductor
+##  rhdf5filters             1.12.1    2023-05-08 [1] Bioconductor
+##  Rhdf5lib                 1.22.0    2023-05-08 [1] Bioconductor
+##  rjson                    0.2.21    2022-01-09 [1] CRAN (R 4.3.0)
+##  rlang                    1.1.1     2023-04-28 [1] CRAN (R 4.3.0)
+##  rmarkdown                2.23      2023-07-01 [1] CRAN (R 4.3.0)
+##  rprojroot                2.0.3     2022-04-02 [1] CRAN (R 4.3.0)
+##  Rsamtools                2.16.0    2023-06-04 [1] Bioconductor
+##  RSQLite                  2.3.1     2023-04-03 [1] CRAN (R 4.3.0)
+##  rstudioapi               0.15.0    2023-07-07 [1] CRAN (R 4.3.0)
+##  rsvd                     1.0.5     2021-04-16 [1] CRAN (R 4.3.0)
+##  rtracklayer              1.60.0    2023-05-08 [1] Bioconductor
+##  Rtsne                    0.16      2022-04-17 [1] CRAN (R 4.3.0)
+##  S4Arrays                 1.0.4     2023-05-14 [1] Bioconductor
+##  S4Vectors              * 0.38.1    2023-05-08 [1] Bioconductor
+##  sass                     0.4.7     2023-07-15 [1] CRAN (R 4.3.0)
+##  ScaledMatrix             1.8.1     2023-05-08 [1] Bioconductor
+##  scales                   1.2.1     2022-08-20 [1] CRAN (R 4.3.0)
+##  scater                 * 1.28.0    2023-04-25 [1] Bioconductor
+##  scran                  * 1.28.2    2023-07-23 [1] Bioconductor
+##  scRNAseq               * 2.14.0    2023-04-27 [1] Bioconductor
+##  scuttle                * 1.9.4     2023-01-23 [1] Bioconductor
+##  sessioninfo              1.2.2     2021-12-06 [1] CRAN (R 4.3.0)
+##  shiny                    1.7.4.1   2023-07-06 [1] CRAN (R 4.3.0)
+##  SingleCellExperiment   * 1.22.0    2023-05-08 [1] Bioconductor
+##  sparseMatrixStats        1.12.2    2023-07-02 [1] Bioconductor
+##  statmod                  1.5.0     2023-01-06 [1] CRAN (R 4.3.0)
+##  stringi                  1.7.12    2023-01-11 [1] CRAN (R 4.3.0)
+##  stringr                  1.5.0     2022-12-02 [1] CRAN (R 4.3.0)
+##  SummarizedExperiment   * 1.30.2    2023-06-06 [1] Bioconductor
+##  tibble                   3.2.1     2023-03-20 [1] CRAN (R 4.3.0)
+##  tidyselect               1.2.0     2022-10-10 [1] CRAN (R 4.3.0)
+##  utf8                     1.2.3     2023-01-31 [1] CRAN (R 4.3.0)
+##  uwot                     0.1.16    2023-06-29 [1] CRAN (R 4.3.0)
+##  vctrs                    0.6.3     2023-06-14 [1] CRAN (R 4.3.0)
+##  vipor                    0.4.5     2017-03-22 [1] CRAN (R 4.3.0)
+##  viridis                  0.6.4     2023-07-22 [1] CRAN (R 4.3.0)
+##  viridisLite              0.4.2     2023-05-02 [1] CRAN (R 4.3.0)
+##  withr                    2.5.0     2022-03-03 [1] CRAN (R 4.3.0)
+##  xfun                     0.39      2023-04-20 [1] CRAN (R 4.3.0)
+##  XML                      3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0)
+##  xml2                     1.3.5     2023-07-06 [1] CRAN (R 4.3.0)
+##  xtable                   1.8-4     2019-04-21 [1] CRAN (R 4.3.0)
+##  XVector                  0.40.0    2023-05-08 [1] Bioconductor
+##  yaml                     2.3.7     2023-01-23 [1] CRAN (R 4.3.0)
+##  zlibbioc                 1.46.0    2023-05-08 [1] Bioconductor
+## 
+##  [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library
+## 
+## ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git a/docs/reference-keys.txt b/docs/reference-keys.txt new file mode 100644 index 0000000..97eba95 --- /dev/null +++ b/docs/reference-keys.txt @@ -0,0 +1,204 @@ +fig:unnamed-chunk-110 +instructores +ponentes-invitados +ayudantes +temario +patrocinadores +licencia +estructura-e-importe-de-datos +diapositivas +control-de-calidad +material-y-diapositivas +enfoques-o-ideas-principales +por-qué-hay-problemas-con-los-datos +preguntas-básicas-en-control-de-calidad +la-mala-calidad-en-los-datos-puede-ser-debida-a-varios-factores +recomendaciones +tipos-de-filtros +parámetros-empleados-para-evaluar-la-calidad-con-la-función-addpercellqc +ejemplo-linea-celular-416-en-ratón +paquetes-e-importar-los-datos-en-r +anotación-de-genes +análisis-de-calidad-con-addpercellqc +preguntas-sobre-los-datos +visualización-de-los-datos-crudos +filtro-a-fixed-thresholds +filtro-b-adaptative-thresholds +preguntas-por-resolver +cómo-funciona-isoutlier +consideran-el-batch +visualizacion-grafica-de-las-celulas-de-buena-calidad +identificando-droplets-vacíos-con-datos-de-pbmc +conceptos-basicos +informacion-de-los-datos +visualizacion-de-droplets-vacios +anotacion-de-genes-y-eliminacion-de-doples-vacios +control-de-calidad-1 +visualizacion-de-los-datos-con-isee +detalles-de-la-sesión-de-r +normalización-de-datos +material +motivación +datos +primero-se-debe-hacer-el-control-de-calidad +normalización-por-escalamiento-scaling-normalization +normalizacion-por-tamaño-de-biblioteca-library-size-normalization +puntos-finales +normalización-por-deconvolución-deconvolution +puntos-finales-1 +transformación-logarítmica +motivación-por-qué-hacemos-esta-transformación +lluvia-de-ideas +otras-normalizaciones +dónde-estamos +adicionales +agradecimientos +detalles-de-la-sesión-de-r-1 +selección-de-genes-altamente-variables +diapositivas-1 +diapositivas-de-peter-hickey +motivación-1 +selección-de-features-genes +dataset-ilustrativo-pbmc4k-10x-sin-filtrar +descargar-datos +anotación +control-de-calidad-2 +dataset-ilustrativo-416b +cuantificando-la-varianza-por-gen +varianza-de-los-log-counts +enfoque-simple +un-enfoque-más-sofisticado +supuestos +visualizando-la-media-y-varianza +ordenando-genes-interesantes +coeficiente-de-variación-de-las-cuentas +coeficiente-de-variación +visualizando-el-coeficiente-de-variación +genes-por-coeficiente-de-variación +varianza-de-los-log-counts-vs-coeficiente-de-variación +cuantificando-el-ruido-técnico +en-la-presencia-de-spike-ins +en-la-ausencia-de-spike-ins +recordemos-propiedades-de-los-datos-de-sce.416b +considerando-factores-experimentales +seleccionando-genes-altamante-variables-high-variable-genes-hvgs +seleccionando-hvgs-sobre-la-métrica-de-varianza +estrategias-para-seleccionar-x +seleccionando-hvgs-de-acuerdo-a-su-significancia-estadística +seleccionando-genes-por-arriba-de-la-tendencia-media-varianza +ejercicio-dibujando-los-hvgs +seleccionando-genes-de-interés-a-priori +poniendo-todo-junto +quedándonos-sólo-con-los-hgvs +especificando-los-hgvs +witchcraft-brujería +resumen-y-recomendaciones +recomendaciones-para-empezar +detalles-de-la-sesión-de-r-2 +reducción-de-dimensiones +diapositivas-de-peter-hickey-1 +motivación-2 +reducción-de-dimensionalidad +dataset-ilustrativo-zeisel +dataset-ilustrativo-10x-pbmc4k-no-filtradas +análisis-de-componentes-principales +pca-aplicado-a-datos-de-scrna-seq +suposiciones-de-pca-aplicadas-a-los-datos-de-scrna-seq +eligiendo-el-número-de-pcs +usando-el-punto-del-codo +basados-en-la-estructura-de-la-población +juntando-todo +ejercicio +usando-el-ruido-técnico +qué-pasa-si-calculamos-la-relación-media-varianza-con-la-función-modelgenevar-para-el-dataset-sce.pbmc-anteriormente-usamos-la-función-modelgenevarbypoisson-para-este-propósito +qué-pasa-si-calculamos-el-número-de-pcs-usando-el-ruido-técnico-para-el-dataset-sce.zeisel +reducción-de-dimensionalidad-para-visualización +motivación-3 +visualizando-con-pca +retos-y-resumen-de-la-visualización-con-pca +visualización-con-t-sne +retos-de-la-visualización-con-t-sne +preguntas +continuando +visualización-con-umap +preguntas-1 +continuando-1 +interpretando-las-gráficas +resumen-y-recomendaciones-1 +dónde-estamos-1 +detalles-de-la-sesión-de-r-3 +clustering +dataset-ilustrativo-10x-pbmc4k-no-filtrado +motivación-4 +por-qué-no-realizamos-el-clustering-sobre-las-coordenadas-de-t-sneumap +cuál-es-el-verdadero-clustering +clustering-basado-en-grafos +antecedentes +gráfica-de-los-k-vecinos-más-cercanos-k-nearest-neighbour--knn--graph +gráfica-de-los-vecinos-más-próximos-compartidos-snn +gráfica-snn-con-pesos-en-las-aristas +obteniendo-comunidades-a-partir-de-una-gráfica-snn-pesada-mediante-un-algoritmo-de-clustering +resumen-de-clustering-basado-en-grafos +detalles-a-considerar-en-la-implementación +implementación +eligiendo-un-valor-de-k +una-implementación-diferente-estilo-seurat +detalles-de-las-implementaciones-más-comunes +otras-implementaciones +evaluando-la-separación-de-los-clusters +otros-métodos-de-clustering +evaluando-la-estabilidad-de-los-clusters +subclustering +resumen-y-recomendaciones-2 +dónde-estamos-2 +detalles-de-la-sesión-de-r-4 +genes-marcadores +diapositivas-2 +anotación-de-tipos-celulares +diapositivas-3 +nuevas-funcionalidades-de-rstudio-quarto. +diapositivas-4 +control-de-versiones-con-github-y-rstudio +diapositivas-5 +por-qué-hacer-control-de-versiones-de-nuestros-proyectos +git +git-vs-controles-de-versión-a-mano +recomendaciones-para-sus-proyectos +proyectos-colaborativos +github +manual-de-sobreviviencia-con-git-y-github-en-rstudio-en-caso-de-ser-necesario +cómo-clonar-un-repositorio-y-tener-conecciónpermisos-para-modificarlo +credenciales-https-en-cache +actividad +conectando-rstudio-con-git-y-github. +github-primero-rstudio-después +actividad-1 +comentar-pull-y-push +rmarkdown-en-github +actividad-2 +rstudio-primero-y-github-también +proyecto-existente-github-al-final +breviario-cultural-con-los-pats +git-basics-commands +merge-conflics +merge-conflics-1 +en-resumen +solución-de-problemas-con-las-versiones-de-paquetes-de-rstudio. +diapositivas-6 +keynote-convirtiendo-tu-flujo-de-análisis-en-un-paquete-de-rbioconductor. +diapositivas-7 +documentación-de-funciones. +diapositivas-8 +links-importantes +que-es-la-documentacion-de-una-función-y-por-qué-es-impotante +generacion-de-la-documentacion-con-ayuda-del-paquete-roxygen +antes-de-empezar +generacion-de-un-bloque-de-documentacion-con-ayuda-del-paquete-roxygen. +otros-campos-de-la-documentacion. +diseño-de-pruebas +diapositivas-9 +creación-de-viñetas +diapositivas-10 +compilación-e-instalación-de-paquetes +diapositivas-11 +proyectos-colaborativos-1 diff --git a/docs/search_index.json b/docs/search_index.json new file mode 100644 index 0000000..7c527bd --- /dev/null +++ b/docs/search_index.json @@ -0,0 +1 @@ +[["index.html", "01_sesion2 Bienvenida 0.1 Instructores 0.2 Ponentes invitados 0.3 Ayudantes 0.4 Temario 0.5 Patrocinadores 0.6 Licencia", " 01_sesion2 Dra. Joselyn Cristina Chávez-Fuentes, Dr. Leonardo Collado-Torres, Dra. Yalbi Balderas-Martínez, M.C. Erick Cuevas-Fernández, Dra. Mirna Vázquez Rosas-Landa, Dra. Alejandra Medina-Rivera, 2023-07-29 Bienvenida Les damos la bienvenida al Workshop Creando paquetes de R/Bioconductor para análisis transcriptómicos de célula única! En los últimos años, la generación de datos transcriptómicos de célula única ha cobrado gran relevancia en la investigación biomédica; sin embargo, las herramientas necesarias para su análisis continúan en desarrollo. En este taller haremos un repaso a las herramientas estadísticas existentes para analizar datos transcriptómicos de célula única usando Bioconductor, cómo documentar tu análisis y revisaremos algunas herramientas para la interpretación de resultados. A la par, aprenderás cuáles son los pasos cruciales para desarrollar un paquete de R y algunas buenas prácticas para la generación de código. Con la integración de estas herramientas, tendrás la oportunidad de crear tu primer paquete y contribuir a la comunidad de desarrolladores. 0.1 Instructores Dra. Joselyn Cristina Chávez Fuentes: Estancia Postdoctoral en Icahn School of Medicine at Mount Sinai. Dr. Leonardo Collado-Torres: Investigador en Lieber Institute for Brain Development. Dra. Yalbi Balderas Martínez: Investigadora en el Instituto Nacional de Enfermedades Respiratorias Ismael Cosío Villegas. M.C. Erick Cuevas Fernández: Estudiante de Doctorado en la Universidad Nacional Autónoma de México. Dra. Mirna Vázquez Rosas Landa: Investigadora en el Instituto de Ciencias de Mar y Limnología de la UNAM. Dra. Alejandra Medina Rivera: Investigadora Asociada en el Laboratorio Internacional de Investigación de Medicina Genómica, UNAM. 0.2 Ponentes invitados Dra. Evelia Coss Dra Laura Lucila Gómez Romero M.C. José Antonio Ovando M.C. Andrés Arredondo Cruz 0.3 Ayudantes Dra. Evelia Coss M.C. José Antonio Ovando M.C. Andrés Arredondo Cruz M.C. Diego Ramírez M.C. Luis Alberto Meza 0.4 Temario Consulta el calendario de este curso en: https://bit.ly/calendarcdsb2023 Día 1: Flujo de análisis de datos transcriptómicos de célula única Parte I Presentación de la CDSB. Estructura e importe de datos. Control de calidad. Normalización. Día 2: Flujo de análisis de datos transcriptómicos de célula única Parte II Selección de genes altamente variables. Reducción de dimensiones. Clustering. Genes marcadores. Anotación de tipos celulares. Día 3: Creación de paquetes de R/Bioconductor Parte I Nuevas funcionalidades de RStudio, Quarto. Control de versiones con GitHub y RStudio. Solución de problemas con las versiones de paquetes de Rstudio. Infraestructura de un paquete de R/Bioconductor. Plática: Convirtiendo tu flujo de análisis en un paquete de R/Bioconductor. Documentación de funciones. Sesión social: Conociendo a la comunidad. Día 4: Creación de paquetes de R/Bioconductor Parte II Diseño de pruebas. Creación de viñetas. Compilación e instalación de paquetes. Proyectos colaborativos Parte I. Día 5: Proyectos colaborativos Proyectos colaborativos Parte II. Presentación de proyectos. Clausura. 0.5 Patrocinadores Agradecemos a nuestros patrocinadores: 0.6 Licencia Este material posee una licencia tipo Creative Commons Attribution-ShareAlike 4.0 International License. Para conocer más sobre esta licencia, visite http://creativecommons.org/licenses/by-sa/4.0/ "],["estructura-e-importe-de-datos.html", "1 Estructura e importe de datos 1.1 Diapositivas", " 1 Estructura e importe de datos Instructor: 07 de agosto de 2023 1.1 Diapositivas "],["control-de-calidad.html", "2 2. Control de calidad 2.1 2.1 Material y Diapositivas 2.2 2.2 Enfoques o Ideas principales 2.3 2.3 ¿Por qué hay problemas con los datos? 2.4 2.4 Preguntas Básicas en Control de Calidad 2.5 2.5 La mala calidad en los datos puede ser debida a varios factores 2.6 2.6 Recomendaciones 2.7 2.7 Tipos de filtros 2.8 2.8 Parámetros empleados para evaluar la calidad con la función addPerCellQC 2.9 2.9 Ejemplo: linea celular 416 en ratón 2.10 2.9.1 Paquetes e Importar los datos en R 2.11 2.9.2 Anotación de genes 2.12 2.9.3 Análisis de calidad con addPerCellQC 2.13 2.9.4 Visualización de los datos crudos 2.14 2.9.5 Filtro A: Fixed thresholds 2.15 2.9.5 Filtro B: Adaptative thresholds 2.16 2.10 ¿Cómo funciona isOutlier()? 2.17 2.11 Consideran el Batch 2.18 2.12 Visualizacion grafica de las celulas de buena calidad 2.19 2.13 Identificando droplets vacíos con datos de PBMC 2.20 2.13.1 Conceptos basicos 2.21 2.13.2 Informacion de los datos 2.22 2.13.4 Visualizacion de droplets vacios 2.23 2.13.5 Anotacion de genes y eliminacion de doples vacios 2.24 2.13.6 Control de calidad 2.25 2.14 Visualizacion de los datos con ISEE 2.26 2.15 Detalles de la sesión de R", " 2 2. Control de calidad Dra. Evelia Coss 07 de agosto de 2023 2.1 2.1 Material y Diapositivas Diapositivas de Peter Hickey: Ve las diapositivas aqui. Curso 2021 impartido por Leonardo Collado Torres: [Ver informacion] aqui(https://comunidadbioinfo.github.io/cdsb2021_scRNAseq/control-de-calidad.html) 2.2 2.2 Enfoques o Ideas principales Detectar células verdaderas y de alta calidad ✅🍪, de modo que cuando agrupemos nuestras células sea más fácil identificar poblaciones de tipos celulares distintos. Identificar las muestras fallidas e intentar salvar los datos o eliminarlas del análisis, además de intentar comprender por qué falló la muestra. 2.3 2.3 ¿Por qué hay problemas con los datos? Problemas con el rompimiento de las células Fallos en la preparación de las bibliotecas (ineficiencias en la transcripción inversa, amplificacion por PCR, etc). Más de una célula durante la secuenciación (douplets o multiplets). Problemas en el alineamiento. 2.4 2.4 Preguntas Básicas en Control de Calidad Se responden durante el análisis de SingleCell RNA-Seq. ¿Cuántos droplets traen más de una célula? (douplets 🍪🍪 o multiplets 🍪🍪🍪). ¿Cuántas células murieron durante el proceso de secuenciacion? Cada droplets debe contener una sola célula 🍪. Figura obtenida de Single-Cell best practices. 2.5 2.5 La mala calidad en los datos puede ser debida a varios factores Una o varias células podemos encontrar: ⚠️ Baja cantidad de cuentas totales ⚠️ Baja cantidad de genes expresados ⚠️ Alta proporción de cuentas (reads) provenientes de la mitocondria ⚠️ Alta proporción de cuentas provenientes de las secuencias control (ERCC spike-in control transcripts) Mas informacion sobre ERCC spike-in control transcripts. 2.6 2.6 Recomendaciones Tener un correcto diseño experimental (evitar efecto bash). 👾 Correcta preparación de las muestras. 🎮 Analizar la calidad de los datos. 🍪 2.7 2.7 Tipos de filtros Fixed thresholds: Valores de corte fijos y estrictos (FDR < 0.5) ♠️ Adaptative thresholds: Valores de cortes adaptados al comportamiento de nuestros datos.♦️ 2.8 2.8 Parámetros empleados para evaluar la calidad con la función addPerCellQC La función addPerCellQC provenie del paquete scater. Agrega las siguientes metricas en cada célula y por cada gen dentro del mismo archivo. sum: Número de cuentas (lecturas) totales de cada célula. detected: Genes expresados con al menos una cuenta. altexps_ERCC_percent: Porcentaje de cuentas mapeadas de las secuencias control (ERCC spike-in control transcripts). subsets_Mito_percent: Porcentaje de cuentas mapeadas provenientes de la mitocondria. 2.9 2.9 Ejemplo: linea celular 416 en ratón Realizaremos las siguientes actividades con este ejemplo: Eliminar células de baja calidad. Comparar entre los tipos de filtros (Fixed thresholds y Adaptative thresholds). Filtrar células baja calidad Visualización de datos crudos y filtrados Línea celular de células mieloides progenitoras inmortalizadas de ratón usando SmartSeq2. 2.10 2.9.1 Paquetes e Importar los datos en R Los paquetes que vamos a emplear para esta sección son: library(scRNAseq) ## para descargar datos de ejemplo library(DropletUtils) ## para detectar droplets library(Matrix) ## para leer datos en formatos comprimidos library(AnnotationHub) ## para obtener información de genes library(scater) ## para gráficas y control de calidad library(BiocFileCache) ## para descargar datos library(EnsDb.Hsapiens.v86) ## Archivo de anotacion en humanos en Ensembl library(dplyr) ## Modificacion de archivos dataframe Cargar los datos empleando el paquete scRNAseq sce.416b <- LunSpikeInData(which = "416b") ## snapshotDate(): 2023-04-24 ## see ?scRNAseq and browseVignettes('scRNAseq') for documentation ## loading from cache ## see ?scRNAseq and browseVignettes('scRNAseq') for documentation ## loading from cache ## see ?scRNAseq and browseVignettes('scRNAseq') for documentation ## loading from cache ## snapshotDate(): 2023-04-24 ## see ?scRNAseq and browseVignettes('scRNAseq') for documentation ## loading from cache ## snapshotDate(): 2023-04-24 ## loading from cache # Conversion a factor, evitemos mensajes de error sce.416b$block <- factor(sce.416b$block) El paquete scRNAseq contiene multiples data sets compilados en funciones, para saber mas da click aqui. 2.11 2.9.2 Anotación de genes ah <- AnnotationHub() ## snapshotDate(): 2023-04-24 query(ah, c("Mus musculus", "Ensembl", "v97")) ## AnnotationHub with 1 record ## # snapshotDate(): 2023-04-24 ## # names(): AH73905 ## # $dataprovider: Ensembl ## # $species: Mus musculus ## # $rdataclass: EnsDb ## # $rdatadateadded: 2019-05-02 ## # $title: Ensembl 97 EnsDb for Mus musculus ## # $description: Gene and protein annotations for Mus musculus based on Ensembl version 97. ## # $taxonomyid: 10090 ## # $genome: GRCm38 ## # $sourcetype: ensembl ## # $sourceurl: http://www.ensembl.org ## # $sourcesize: NA ## # $tags: c("97", "AHEnsDbs", "Annotation", "EnsDb", "Ensembl", "Gene", "Protein", "Transcript") ## # retrieve record with 'object[["AH73905"]]' # Anotacion de genes con la localizacion de cada cromosoma ens.mm.v97 <- ah[["AH73905"]] # solo un cromosoma ## loading from cache location <- mapIds(ens.mm.v97, keys=rownames(sce.416b), keytype="GENEID", column="SEQNAME") ## Warning: Unable to map 563 of 46604 requested IDs. # deteccion de genes mitocondriales is.mito <- which(location=="MT") 2.12 2.9.3 Análisis de calidad con addPerCellQC Al imprimir la variable sce.416b podemos observar que es de tipo SingleCellExperiment. # Agregar la informacion de la calidad por cada gen y celula en un mismo archivo # Identificar genes mitocondriales sce.416b <- addPerCellQC(sce.416b, subsets = list(Mito = is.mito) ) sce.416b ## class: SingleCellExperiment ## dim: 46604 192 ## metadata(0): ## assays(1): counts ## rownames(46604): ENSMUSG00000102693 ENSMUSG00000064842 ... ENSMUSG00000095742 CBFB-MYH11-mcherry ## rowData names(1): Length ## colnames(192): SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 ... ## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 ## colData names(21): Source Name cell line ... altexps_SIRV_percent total ## reducedDimNames(0): ## mainExpName: endogenous ## altExpNames(2): ERCC SIRV Podemos observar la informacion de este data frame usando colData: # observar la informacion contenida en el dataframe colData(sce.416b) ## DataFrame with 192 rows and 21 columns ## Source Name cell line cell type single cell well quality ## <character> <character> <character> <character> ## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 SLX-9555.N701_S502.C.. 416B embryonic stem cell OK ## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 SLX-9555.N701_S503.C.. 416B embryonic stem cell OK ## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1 SLX-9555.N701_S504.C.. 416B embryonic stem cell OK ## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1 SLX-9555.N701_S505.C.. 416B embryonic stem cell OK ## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1 SLX-9555.N701_S506.C.. 416B embryonic stem cell OK ## ... ... ... ... ... ## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S505... 416B embryonic stem cell OK ## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S506... 416B embryonic stem cell OK ## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S507... 416B embryonic stem cell OK ## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S508... 416B embryonic stem cell OK ## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 SLX-11312.N712_S517... 416B embryonic stem cell OK ## genotype phenotype strain spike-in addition ## <character> <character> <character> <character> ## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 Doxycycline-inducibl.. wild type phenotype B6D2F1-J ERCC+SIRV ## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 Doxycycline-inducibl.. wild type phenotype B6D2F1-J ERCC+SIRV ## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1 Doxycycline-inducibl.. wild type phenotype B6D2F1-J ERCC+SIRV ## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o.. B6D2F1-J ERCC+SIRV ## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o.. B6D2F1-J ERCC+SIRV ## ... ... ... ... ... ## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o.. B6D2F1-J Premixed ## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o.. B6D2F1-J Premixed ## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o.. B6D2F1-J Premixed ## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. induced CBFB-MYH11 o.. B6D2F1-J Premixed ## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 Doxycycline-inducibl.. wild type phenotype B6D2F1-J Premixed ## block sum detected subsets_Mito_sum subsets_Mito_detected ## <factor> <numeric> <numeric> <numeric> <numeric> ## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 20160113 865936 7618 78790 20 ## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 20160113 1076277 7521 98613 20 ## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1 20160113 1180138 8306 100341 19 ## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1 20160113 1342593 8143 104882 20 ## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1 20160113 1668311 7154 129559 22 ## ... ... ... ... ... ... ## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 20160325 776622 8174 48126 20 ## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 20160325 1299950 8956 112225 25 ## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 20160325 1800696 9530 135693 23 ## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 20160325 46731 6649 3505 16 ## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 20160325 1866692 10964 150375 29 ## subsets_Mito_percent altexps_ERCC_sum altexps_ERCC_detected altexps_ERCC_percent ## <numeric> <numeric> <numeric> <numeric> ## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 9.09882 65278 39 6.80658 ## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 9.16242 74748 40 6.28030 ## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1 8.50248 60878 42 4.78949 ## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1 7.81190 60073 42 4.18567 ## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1 7.76588 136810 44 7.28887 ## ... ... ... ... ... ## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 6.19684 61575 39 7.17620 ## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 8.63302 94982 41 6.65764 ## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 7.53559 113707 40 5.81467 ## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 7.50037 7580 44 13.48898 ## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 8.05569 48664 39 2.51930 ## altexps_SIRV_sum altexps_SIRV_detected altexps_SIRV_percent total ## <numeric> <numeric> <numeric> <numeric> ## SLX-9555.N701_S502.C89V9ANXX.s_1.r_1 27828 7 2.90165 959042 ## SLX-9555.N701_S503.C89V9ANXX.s_1.r_1 39173 7 3.29130 1190198 ## SLX-9555.N701_S504.C89V9ANXX.s_1.r_1 30058 7 2.36477 1271074 ## SLX-9555.N701_S505.C89V9ANXX.s_1.r_1 32542 7 2.26741 1435208 ## SLX-9555.N701_S506.C89V9ANXX.s_1.r_1 71850 7 3.82798 1876971 ## ... ... ... ... ... ## SLX-11312.N712_S505.H5H5YBBXX.s_8.r_1 19848 7 2.313165 858045 ## SLX-11312.N712_S506.H5H5YBBXX.s_8.r_1 31729 7 2.224004 1426661 ## SLX-11312.N712_S507.H5H5YBBXX.s_8.r_1 41116 7 2.102562 1955519 ## SLX-11312.N712_S508.H5H5YBBXX.s_8.r_1 1883 7 3.350892 56194 ## SLX-11312.N712_S517.H5H5YBBXX.s_8.r_1 16289 7 0.843271 1931645 # Ver el nombre de las columnas colnames(colData(sce.416b)) ## [1] "Source Name" "cell line" "cell type" "single cell well quality" ## [5] "genotype" "phenotype" "strain" "spike-in addition" ## [9] "block" "sum" "detected" "subsets_Mito_sum" ## [13] "subsets_Mito_detected" "subsets_Mito_percent" "altexps_ERCC_sum" "altexps_ERCC_detected" ## [17] "altexps_ERCC_percent" "altexps_SIRV_sum" "altexps_SIRV_detected" "altexps_SIRV_percent" ## [21] "total" 2.12.1 Preguntas sobre los datos ¿Cuántas células detectadas se encuentran en el dataframe sce.416b? ¿Cuántos genes fueron analizados con almenos una cuenta? 2.13 2.9.4 Visualización de los datos crudos Genes detectados en cada uno de los bloques de secuenciación. plotColData(sce.416b, x = "block", y = "detected") Genes detectados por cada tratamiento en cada bloque de secuenciación. plotColData(sce.416b, x = "block", y = "detected", other_fields = "phenotype" ) + scale_y_log10() + # Cambiar la escala en Y a logaritmo facet_wrap(~phenotype) + # Dividir tratamiento labs(x = "Bloques de secuenciación", y="Genes detectados \\n(log)", title = "Genes detectados") # Etiquetas en X, Y y titulo 2.14 2.9.5 Filtro A: Fixed thresholds Para el filtrado y eliminación de las células de baja calidad emplearemos las variables sum, detected, altexps_ERCC_percent y subsets_Mito_percent. # --- Fixed thresholds --- # Valores de corte fijos y estrictos qc.lib <- sce.416b$sum < 100000 # menos de 100 mil cuentas (lecturas) qc.nexprs <- sce.416b$detected < 5000 # menos de 5 mil genes qc.spike <- sce.416b$altexps_ERCC_percent > 10 # 10 % de las cuentas alineando a ERCC qc.mito <- sce.416b$subsets_Mito_percent > 10 # 10 % alineando al genoma mitocondrial discard <- qc.lib | qc.nexprs | qc.spike | qc.mito # si falla alguno de estos eliminarlo # secuencias control = (ERCC spike-in control transcripts) # Resumen del número de células # Número de células eliminadas por cada filtro DataFrame( LibSize = sum(qc.lib), NExprs = sum(qc.nexprs), SpikeProp = sum(qc.spike), MitoProp = sum(qc.mito), Total = sum(discard) ) ## DataFrame with 1 row and 5 columns ## LibSize NExprs SpikeProp MitoProp Total ## <integer> <integer> <integer> <integer> <integer> ## 1 3 0 19 14 33 2.15 2.9.5 Filtro B: Adaptative thresholds Valores de cortes adaptados al comportamiento de nuestros datos. # --- Adaptative thresholds --- ## Usando isOutlier() para determinar los valores de corte qc.lib2 <- isOutlier(sce.416b$sum, log = TRUE, type = "lower") qc.nexprs2 <- isOutlier(sce.416b$detected, log = TRUE, type = "lower" ) qc.spike2 <- isOutlier(sce.416b$altexps_ERCC_percent, type = "higher" ) qc.mito2 <- isOutlier(sce.416b$subsets_Mito_percent, type = "higher" ) discard2 <- qc.lib2 | qc.nexprs2 | qc.spike2 | qc.mito2 # Extraemos los límites de valores (thresholds) attr(qc.lib2, "thresholds") ## lower higher ## 434082.9 Inf ## lower higher ## 434082.9 Inf attr(qc.nexprs2, "thresholds") ## lower higher ## 5231.468 Inf ## lower higher ## 5231.468 Inf # Obtenemos un resumen del número de células # eliminadas por cada filtro DataFrame( LibSize = sum(qc.lib2), NExprs = sum(qc.nexprs2), SpikeProp = sum(qc.spike2), MitoProp = sum(qc.mito2), Total = sum(discard2) ) ## DataFrame with 1 row and 5 columns ## LibSize NExprs SpikeProp MitoProp Total ## <integer> <integer> <integer> <integer> <integer> ## 1 4 0 1 2 6 2.15.1 Preguntas por resolver ¿Cuántos células se descartan con cada filtro? ¿Cuántas células se comparten entre ambos filtros? ¿Existen células que el filtro adaptativo excluyera y que no lo hiciera el filtro estricto? addmargins(table(discard, discard2)) ## discard2 ## discard FALSE TRUE Sum ## FALSE 159 0 159 ## TRUE 27 6 33 ## Sum 186 6 192 2.16 2.10 ¿Cómo funciona isOutlier()? Supongamos que la mayor parte del conjunto de datos está formado por células de alta calidad 1 (Opcional: log-transformar la métrica QC) 1. Calcular la mediana de la métrica QC Calcular la desviación absoluta de la mediana (MAD2) de la QC Identifique los valores atípicos como aquellas celdas con una métrica QC a más de 3 MAD3 de la mediana en la dirección “problemática”. Puede controlar cuántas MAD son aceptables Puede decidir qué dirección es problemática QC = Quality Control 1 But we’ll relax that assumption in a few moments 2 MAD is similar to standard deviation 3 Loosely, 3 MADs will retain 99% of non-outliers values that follow a Normal distribution. Figura explicativa, Diapositiva 24. 2.17 2.11 Consideran el Batch ## Determino el bloque (batch) de muestras batch <- paste0(sce.416b$phenotype, "-", sce.416b$block) ## Versión de isOutlier() que toma en cuenta los bloques de muestras qc.lib3 <- isOutlier(sce.416b$sum, log = TRUE, type = "lower", batch = batch ) qc.nexprs3 <- isOutlier(sce.416b$detected, log = TRUE, type = "lower", batch = batch ) qc.spike3 <- isOutlier(sce.416b$altexps_ERCC_percent, type = "higher", batch = batch ) qc.mito3 <- isOutlier(sce.416b$subsets_Mito_percent, type = "higher", batch = batch ) discard3 <- qc.lib3 | qc.nexprs3 | qc.spike3 | qc.mito3 # Extraemos los límites de valores (thresholds) attr(qc.lib3, "thresholds") ## induced CBFB-MYH11 oncogene expression-20160113 induced CBFB-MYH11 oncogene expression-20160325 ## lower 461073.1 399133.7 ## higher Inf Inf ## wild type phenotype-20160113 wild type phenotype-20160325 ## lower 599794.9 370316.5 ## higher Inf Inf # Obtenemos un resumen del número de células # eliminadas por cada filtro DataFrame( LibSize = sum(qc.lib3), NExprs = sum(qc.nexprs3), SpikeProp = sum(qc.spike3), MitoProp = sum(qc.mito3), Total = sum(discard3) ) ## DataFrame with 1 row and 5 columns ## LibSize NExprs SpikeProp MitoProp Total ## <integer> <integer> <integer> <integer> <integer> ## 1 5 4 6 2 9 2.18 2.12 Visualizacion grafica de las celulas de buena calidad Usaremos el filtro estricto y visualizaremos la distribucion de los datos. # Reducir el nombre en los fenotipos / tratamientos sce.416b_edited <- sce.416b sce.416b_edited$phenotype <- ifelse(grepl("induced", sce.416b_edited$phenotype), "induced", "wild type") # Verificar unique(sce.416b_edited$phenotype) ## [1] "wild type" "induced" # Agregar columna de genes descartados sce.416b_edited$discard <- discard # Visualizacion grafica plotColData(sce.416b_edited, x="block", y="sum", colour_by="discard", other_fields="phenotype") + facet_wrap(~phenotype) + labs(x = "Bloques de secuenciacion", y="Cuentas totales", title = "Numero de cuentas") # Etiquetas en X, Y y titulo Visualizacion de todas las variables en una sola grafica. # Visualizacion grafica gridExtra::grid.arrange( plotColData(sce.416b_edited, x="block", y="sum", colour_by="discard", other_fields="phenotype") + facet_wrap(~phenotype) + scale_y_log10() + labs(x = "Bloques de secuenciacion", y="Cuentas totales", title = "Numero de cuentas"), # Etiquetas en X, Y y titulo plotColData(sce.416b_edited, x="block", y="detected", colour_by="discard", other_fields="phenotype") + facet_wrap(~phenotype) + scale_y_log10() + labs(x = "Bloques de secuenciacion", y="Genes expresados", title = "Numero de genes /n(log)"), # Etiquetas en X, Y y titulo plotColData(sce.416b_edited, x="block", y="subsets_Mito_percent", colour_by="discard", other_fields="phenotype") + facet_wrap(~phenotype) + labs(x = "Bloques de secuenciacion", y="Porcentaje de genes mitocondriales /n(%)", title = "Contenido mitocondrial"), # Etiquetas en X, Y y titulo plotColData(sce.416b_edited, x="block", y="altexps_ERCC_percent", colour_by="discard", other_fields="phenotype") + facet_wrap(~phenotype) + labs(x = "Bloques de secuenciacion", y="Porcentaje de ERCC /n(%)", title = "Contenido de ERCC"), # Etiquetas en X, Y y titulo, ncol=1 ) Otra grafica de visualizacion grafica es: plotColData( sce.416b_edited, x = "sum", y = "subsets_Mito_percent", colour_by = "discard", other_fields = c("block", "phenotype") ) + facet_grid(block ~ phenotype) 2.19 2.13 Identificando droplets vacíos con datos de PBMC 2.20 2.13.1 Conceptos basicos Descripción gráfica la tecnología Next GEM de 10x Genomics. Fuente: 10x Genomics. Opciones algorítmicas para detecar los droplets vacíos. Fuente: Lun et al, Genome Biology, 2019. 2.21 2.13.2 Informacion de los datos El dataset provenie de celulas humanas, senalando un total de 4,340 celulas con buena calidad. Para mas informacion consulta la pagina web en 10Xgenomics. A continuacion te presento el reporte de este dataset. Captura del reporte de secuenciacion del dataset. 10Xgenomics realiza un alineamiento genomico con STAR y emplea CellRanger para realizar la limpieza y cuantificacion de los datos. Encontrado la informacion dividia en dos carpetas importantes: Gene/cell matrix (raw): Contiene toda la informacion posterios al alineamiento, sin limpiar. Contiene toda la informacion, contemplando la presencia de doplets vacios. Gene/cell matrix (filtered): Contiene los datos filtrados por CellRanger. Dejo a tu consideracion la posibilidad de emplear alguno de estos archivos. Ambas carpetas contienen 3 archivos importantes para el analisis de los datos: barcode.tsv = Secuencia que define a cada celula por identificadores de cada celula. feature.tsv = genes los identfiicadores, se les mio expresion matrix.mtx = Union entre las secuencias y genes. ## 2.13.3 Importar datos en R Almacenaremos la informacion de 10Xgenomics en la memoria Cache de la computadora y posteriormente lo almacenaremos en una variable. # Datos crudos, sin procesar bfc <- BiocFileCache() raw.path <- bfcrpath(bfc, file.path( "http://cf.10xgenomics.com/samples", "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz" )) untar(raw.path, exdir = file.path(tempdir(), "pbmc4k")) # Archivos contenidos en Temporales test_dir <- tempdir() test_dir <- paste0(test_dir, "/pbmc4k/raw_gene_bc_matrices/GRCh38") list.files(test_dir) # Encontraremos 3 tipos de archivos: barcodes.tsv, genes.tsv y matrix.mtx ## [1] "barcodes.tsv" "genes.tsv" "matrix.mtx" # Cargar datos fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38") sce.pbmc <- read10xCounts(fname, col.names = TRUE) # Cargar datos de 10Xgenomics de CellRanger sce.pbmc ## class: SingleCellExperiment ## dim: 33694 737280 ## metadata(1): Samples ## assays(1): counts ## rownames(33694): ENSG00000243485 ENSG00000237613 ... ENSG00000277475 ENSG00000268674 ## rowData names(2): ID Symbol ## colnames(737280): AAACCTGAGAAACCAT-1 AAACCTGAGAAACCGC-1 ... TTTGTCATCTTTAGTC-1 TTTGTCATCTTTCCTC-1 ## colData names(2): Sample Barcode ## reducedDimNames(0): ## mainExpName: NULL ## altExpNames(0): Contiene 737280 droplets, aun sin filtrar y Evaluando un total de 33,694 genes en este dataset. Si quisieras descargar estos mismos datos pero filtrados, te dejo la ruta: # Datos filtrados, sin celulas muertas, sin un alto contenido mitocondrial, sin droplets vacios o con multiples celulas bfc <- BiocFileCache() raw.path <- bfcrpath(bfc, file.path( "http://cf.10xgenomics.com/samples", "cell-exp/2.1.0/pbmc4k/pbmc4k_filtered_gene_bc_matrices.tar.gz" )) untar(raw.path, exdir = file.path(tempdir(), "pbmc4k")) 2.22 2.13.4 Visualizacion de droplets vacios bcrank <- barcodeRanks(counts(sce.pbmc)) bcrank ## DataFrame with 737280 rows and 3 columns ## rank total fitted ## <numeric> <integer> <numeric> ## AAACCTGAGAAACCAT-1 219086 1 NA ## AAACCTGAGAAACCGC-1 504862 0 NA ## AAACCTGAGAAACCTA-1 219086 1 NA ## AAACCTGAGAAACGAG-1 504862 0 NA ## AAACCTGAGAAACGCC-1 219086 1 NA ## ... ... ... ... ## TTTGTCATCTTTACAC-1 150232 2 NA ## TTTGTCATCTTTACGT-1 26415 33 NA ## TTTGTCATCTTTAGGG-1 504862 0 NA ## TTTGTCATCTTTAGTC-1 504862 0 NA ## TTTGTCATCTTTCCTC-1 219086 1 NA # Mostremos solo los puntos únicos para acelerar # el proceso de hacer esta gráfica uniq <- !duplicated(bcrank$rank) plot( bcrank$rank[uniq], bcrank$total[uniq], log = "xy", xlab = "Rank", ylab = "Total UMI count", cex.lab = 1.2 ) ## Warning in xy.coords(x, y, xlabel, ylabel, log): 1 y value <= 0 omitted from logarithmic plot # Agregarle los puntos de corte abline( h = metadata(bcrank)$inflection, col = "darkgreen", lty = 2 ) abline( h = metadata(bcrank)$knee, col = "dodgerblue", lty = 2 ) legend( "bottomleft", legend = c("Inflection", "Knee"), col = c("darkgreen", "dodgerblue"), lty = 2, cex = 1.2 ) UMI = Secuencia unica de cada union en la bead (unique molecular identifiers). Encontremos los droplets vacíos usando emptyDrops(). Los siguientes pasos demoran un tiempo. ## Usemos DropletUtils para encontrar los droplets set.seed(100) e.out <- emptyDrops(counts(sce.pbmc)) # Revisa ?emptyDrops para una explicación de porque hay valores NA summary(e.out$FDR <= 0.001) ## Mode FALSE TRUE NA's ## logical 1006 4283 731991 set.seed(100) limit <- 100 all.out <- emptyDrops(counts(sce.pbmc), lower = limit, test.ambient = TRUE) # Idealmente, este histograma debería verse uniforme. # Picos grandes cerca de cero indican que los _barcodes_ # con un número total de cuentas menor a "lower" no son # de origen ambiental. hist(all.out$PValue[all.out$Total <= limit & all.out$Total > 0], xlab = "P-value", main = "", col = "grey80" ) 2.23 2.13.5 Anotacion de genes y eliminacion de doples vacios # Anotación de los genes rownames(sce.pbmc) <- uniquifyFeatureNames( rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol ) location <- mapIds(EnsDb.Hsapiens.v86, keys = rowData(sce.pbmc)$ID, column = "SEQNAME", keytype = "GENEID" ) ## Warning: Unable to map 144 of 33694 requested IDs. # Detección de _droplets_ con células set.seed(100) sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)] 2.24 2.13.6 Control de calidad # Obtener las estadisticas en un archivo aparte stats <- perCellQCMetrics(sce.pbmc, subsets = list(Mito = which(location == "MT")) ) high.mito <- isOutlier(stats$subsets_Mito_percent, type = "higher" ) # Eliminar secuencias con alto contenido de genes mitocondriales sce.pbmc <- sce.pbmc[, !high.mito] 2.25 2.14 Visualizacion de los datos con ISEE Github de iSEE. Workshop de iSEE 2.26 2.15 Detalles de la sesión de R ## Información de la sesión de R Sys.time() ## [1] "2023-07-31 15:42:42 EDT" proc.time() ## user system elapsed ## 351.016 14.223 761.248 options(width = 120) sessioninfo::session_info() ## ─ Session info ─────────────────────────────────────────────────────────────────────────────────────────────────────── ## setting value ## version R version 4.3.1 (2023-06-16) ## os macOS Ventura 13.4.1 ## system aarch64, darwin20 ## ui RStudio ## language (EN) ## collate en_US.UTF-8 ## ctype en_US.UTF-8 ## tz America/New_York ## date 2023-07-31 ## rstudio 2023.06.0+421 Mountain Hydrangea (desktop) ## pandoc 3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown) ## ## ─ Packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────── ## package * version date (UTC) lib source ## AnnotationDbi * 1.62.2 2023-07-02 [1] Bioconductor ## AnnotationFilter * 1.24.0 2023-05-08 [1] Bioconductor ## AnnotationHub * 3.8.0 2023-05-08 [1] Bioconductor ## beachmat 2.16.0 2023-05-08 [1] Bioconductor ## beeswarm 0.4.0 2021-06-01 [1] CRAN (R 4.3.0) ## Biobase * 2.60.0 2023-05-08 [1] Bioconductor ## BiocFileCache * 2.8.0 2023-05-08 [1] Bioconductor ## BiocGenerics * 0.46.0 2023-06-04 [1] Bioconductor ## BiocIO 1.10.0 2023-05-08 [1] Bioconductor ## BiocManager 1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0) ## BiocNeighbors 1.18.0 2023-05-08 [1] Bioconductor ## BiocParallel 1.34.2 2023-05-28 [1] Bioconductor ## BiocSingular 1.16.0 2023-05-08 [1] Bioconductor ## BiocVersion 3.17.1 2022-12-20 [1] Bioconductor ## biomaRt 2.56.1 2023-06-11 [1] Bioconductor ## Biostrings 2.68.1 2023-05-21 [1] Bioconductor ## bit 4.0.5 2022-11-15 [1] CRAN (R 4.3.0) ## bit64 4.0.5 2020-08-30 [1] CRAN (R 4.3.0) ## bitops 1.0-7 2021-04-24 [1] CRAN (R 4.3.0) ## blob 1.2.4 2023-03-17 [1] CRAN (R 4.3.0) ## bluster 1.10.0 2023-05-08 [1] Bioconductor ## bookdown 0.34 2023-05-09 [1] CRAN (R 4.3.0) ## bslib 0.5.0 2023-06-09 [1] CRAN (R 4.3.0) ## cachem 1.0.8 2023-05-01 [1] CRAN (R 4.3.0) ## cli 3.6.1 2023-03-23 [1] CRAN (R 4.3.0) ## cluster 2.1.4 2022-08-22 [1] CRAN (R 4.3.1) ## codetools 0.2-19 2023-02-01 [1] CRAN (R 4.3.1) ## colorspace 2.1-0 2023-01-23 [1] CRAN (R 4.3.0) ## cowplot 1.1.1 2020-12-30 [1] CRAN (R 4.3.0) ## crayon 1.5.2 2022-09-29 [1] CRAN (R 4.3.0) ## curl 5.0.1 2023-06-07 [1] CRAN (R 4.3.0) ## DBI 1.1.3 2022-06-18 [1] CRAN (R 4.3.0) ## dbplyr * 2.3.3 2023-07-07 [1] CRAN (R 4.3.0) ## DelayedArray 0.26.6 2023-07-02 [1] Bioconductor ## DelayedMatrixStats 1.22.0 2023-05-08 [1] Bioconductor ## digest 0.6.33 2023-07-07 [1] CRAN (R 4.3.0) ## dplyr * 1.1.2 2023-04-20 [1] CRAN (R 4.3.0) ## dqrng 0.3.0 2021-05-01 [1] CRAN (R 4.3.0) ## DropletUtils * 1.20.0 2023-05-08 [1] Bioconductor ## edgeR 3.42.4 2023-06-04 [1] Bioconductor ## ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.3.0) ## EnsDb.Hsapiens.v86 * 2.99.0 2023-07-29 [1] Bioconductor ## ensembldb * 2.24.0 2023-05-08 [1] Bioconductor ## evaluate 0.21 2023-05-05 [1] CRAN (R 4.3.0) ## ExperimentHub 2.8.1 2023-07-16 [1] Bioconductor ## fansi 1.0.4 2023-01-22 [1] CRAN (R 4.3.0) ## farver 2.1.1 2022-07-06 [1] CRAN (R 4.3.0) ## fastmap 1.1.1 2023-02-24 [1] CRAN (R 4.3.0) ## filelock 1.0.2 2018-10-05 [1] CRAN (R 4.3.0) ## generics 0.1.3 2022-07-05 [1] CRAN (R 4.3.0) ## GenomeInfoDb * 1.36.1 2023-07-02 [1] Bioconductor ## GenomeInfoDbData 1.2.10 2023-06-08 [1] Bioconductor ## GenomicAlignments 1.36.0 2023-05-08 [1] Bioconductor ## GenomicFeatures * 1.52.1 2023-07-02 [1] Bioconductor ## GenomicRanges * 1.52.0 2023-05-08 [1] Bioconductor ## ggbeeswarm 0.7.2 2023-04-29 [1] CRAN (R 4.3.0) ## ggplot2 * 3.4.2 2023-04-03 [1] CRAN (R 4.3.0) ## ggrepel 0.9.3 2023-02-03 [1] CRAN (R 4.3.0) ## glue 1.6.2 2022-02-24 [1] CRAN (R 4.3.0) ## gridExtra 2.3 2017-09-09 [1] CRAN (R 4.3.0) ## gtable 0.3.3 2023-03-21 [1] CRAN (R 4.3.0) ## HDF5Array 1.28.1 2023-05-08 [1] Bioconductor ## here 1.0.1 2020-12-13 [1] CRAN (R 4.3.0) ## highr 0.10 2022-12-22 [1] CRAN (R 4.3.0) ## hms 1.1.3 2023-03-21 [1] CRAN (R 4.3.0) ## htmltools 0.5.5 2023-03-23 [1] CRAN (R 4.3.0) ## httpuv 1.6.11 2023-05-11 [1] CRAN (R 4.3.0) ## httr 1.4.6 2023-05-08 [1] CRAN (R 4.3.0) ## igraph 1.5.0.1 2023-07-23 [1] CRAN (R 4.3.0) ## interactiveDisplayBase 1.38.0 2023-05-08 [1] Bioconductor ## IRanges * 2.34.1 2023-07-02 [1] Bioconductor ## irlba 2.3.5.1 2022-10-03 [1] CRAN (R 4.3.0) ## jquerylib 0.1.4 2021-04-26 [1] CRAN (R 4.3.0) ## jsonlite 1.8.7 2023-06-29 [1] CRAN (R 4.3.0) ## KEGGREST 1.40.0 2023-05-08 [1] Bioconductor ## knitr 1.43 2023-05-25 [1] CRAN (R 4.3.0) ## labeling 0.4.2 2020-10-20 [1] CRAN (R 4.3.0) ## later 1.3.1 2023-05-02 [1] CRAN (R 4.3.0) ## lattice 0.21-8 2023-04-05 [1] CRAN (R 4.3.1) ## lazyeval 0.2.2 2019-03-15 [1] CRAN (R 4.3.0) ## lifecycle 1.0.3 2022-10-07 [1] CRAN (R 4.3.0) ## limma 3.56.2 2023-06-04 [1] Bioconductor ## locfit 1.5-9.8 2023-06-11 [1] CRAN (R 4.3.0) ## magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.3.0) ## Matrix * 1.6-0 2023-07-08 [1] CRAN (R 4.3.0) ## MatrixGenerics * 1.12.2 2023-07-02 [1] Bioconductor ## matrixStats * 1.0.0 2023-06-02 [1] CRAN (R 4.3.0) ## memoise 2.0.1 2021-11-26 [1] CRAN (R 4.3.0) ## metapod 1.8.0 2023-04-25 [1] Bioconductor ## mime 0.12 2021-09-28 [1] CRAN (R 4.3.0) ## munsell 0.5.0 2018-06-12 [1] CRAN (R 4.3.0) ## pillar 1.9.0 2023-03-22 [1] CRAN (R 4.3.0) ## pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.3.0) ## png 0.1-8 2022-11-29 [1] CRAN (R 4.3.0) ## prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.3.0) ## progress 1.2.2 2019-05-16 [1] CRAN (R 4.3.0) ## promises 1.2.0.1 2021-02-11 [1] CRAN (R 4.3.0) ## ProtGenerics 1.32.0 2023-05-08 [1] Bioconductor ## purrr 1.0.1 2023-01-10 [1] CRAN (R 4.3.0) ## R.methodsS3 1.8.2 2022-06-13 [1] CRAN (R 4.3.0) ## R.oo 1.25.0 2022-06-12 [1] CRAN (R 4.3.0) ## R.utils 2.12.2 2022-11-11 [1] CRAN (R 4.3.0) ## R6 2.5.1 2021-08-19 [1] CRAN (R 4.3.0) ## rappdirs 0.3.3 2021-01-31 [1] CRAN (R 4.3.0) ## Rcpp 1.0.11 2023-07-06 [1] CRAN (R 4.3.0) ## RCurl 1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0) ## restfulr 0.0.15 2022-06-16 [1] CRAN (R 4.3.0) ## rhdf5 2.44.0 2023-05-08 [1] Bioconductor ## rhdf5filters 1.12.1 2023-05-08 [1] Bioconductor ## Rhdf5lib 1.22.0 2023-05-08 [1] Bioconductor ## rjson 0.2.21 2022-01-09 [1] CRAN (R 4.3.0) ## rlang 1.1.1 2023-04-28 [1] CRAN (R 4.3.0) ## rmarkdown 2.23 2023-07-01 [1] CRAN (R 4.3.0) ## rprojroot 2.0.3 2022-04-02 [1] CRAN (R 4.3.0) ## Rsamtools 2.16.0 2023-06-04 [1] Bioconductor ## RSQLite 2.3.1 2023-04-03 [1] CRAN (R 4.3.0) ## rstudioapi 0.15.0 2023-07-07 [1] CRAN (R 4.3.0) ## rsvd 1.0.5 2021-04-16 [1] CRAN (R 4.3.0) ## rtracklayer 1.60.0 2023-05-08 [1] Bioconductor ## S4Arrays 1.0.4 2023-05-14 [1] Bioconductor ## S4Vectors * 0.38.1 2023-05-08 [1] Bioconductor ## sass 0.4.7 2023-07-15 [1] CRAN (R 4.3.0) ## ScaledMatrix 1.8.1 2023-05-08 [1] Bioconductor ## scales 1.2.1 2022-08-20 [1] CRAN (R 4.3.0) ## scater * 1.28.0 2023-04-25 [1] Bioconductor ## scran * 1.28.2 2023-07-23 [1] Bioconductor ## scRNAseq * 2.14.0 2023-04-27 [1] Bioconductor ## scuttle * 1.9.4 2023-01-23 [1] Bioconductor ## sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.3.0) ## shiny 1.7.4.1 2023-07-06 [1] CRAN (R 4.3.0) ## SingleCellExperiment * 1.22.0 2023-05-08 [1] Bioconductor ## sparseMatrixStats 1.12.2 2023-07-02 [1] Bioconductor ## statmod 1.5.0 2023-01-06 [1] CRAN (R 4.3.0) ## stringi 1.7.12 2023-01-11 [1] CRAN (R 4.3.0) ## stringr 1.5.0 2022-12-02 [1] CRAN (R 4.3.0) ## SummarizedExperiment * 1.30.2 2023-06-06 [1] Bioconductor ## tibble 3.2.1 2023-03-20 [1] CRAN (R 4.3.0) ## tidyselect 1.2.0 2022-10-10 [1] CRAN (R 4.3.0) ## utf8 1.2.3 2023-01-31 [1] CRAN (R 4.3.0) ## vctrs 0.6.3 2023-06-14 [1] CRAN (R 4.3.0) ## vipor 0.4.5 2017-03-22 [1] CRAN (R 4.3.0) ## viridis 0.6.4 2023-07-22 [1] CRAN (R 4.3.0) ## viridisLite 0.4.2 2023-05-02 [1] CRAN (R 4.3.0) ## withr 2.5.0 2022-03-03 [1] CRAN (R 4.3.0) ## xfun 0.39 2023-04-20 [1] CRAN (R 4.3.0) ## XML 3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0) ## xml2 1.3.5 2023-07-06 [1] CRAN (R 4.3.0) ## xtable 1.8-4 2019-04-21 [1] CRAN (R 4.3.0) ## XVector 0.40.0 2023-05-08 [1] Bioconductor ## yaml 2.3.7 2023-01-23 [1] CRAN (R 4.3.0) ## zlibbioc 1.46.0 2023-05-08 [1] Bioconductor ## ## [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library ## ## ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── "],["normalización-de-datos.html", "3 Normalización de datos 3.1 Material 3.2 Motivación 3.3 Datos 3.4 Normalización por escalamiento (scaling normalization) 3.5 Normalización por deconvolución (deconvolution) 3.6 Transformación logarítmica 3.7 Otras normalizaciones 3.8 Dónde estamos 3.9 Adicionales 3.10 Agradecimientos 3.11 Detalles de la sesión de R", " 3 Normalización de datos Instructora: Dra Laura Lucila Gómez Romero 3.1 Material Diapositivas de Peter Hickey: Ve las diapositivas aquí Capítulo de OSCA: Ve el capítulo del libro OSCA aquí 3.2 Motivación Al igual que con otras tecnologías, single-cell RNA-seq (scRNA-seq) puede presentar diferencias sistemáticas en la cobertura de las librerías de scRAN-seq. Típicamente se debe a diferencias técnicas en procesos como la captura de cDNA, la eficiencia de la amplificación por PCR. La normalización tiene como objetivo remover estas diferencias sistemáticas para que no interfieran cuando comparamos los perfiles de expresión entre células. Al normalizar los datos, las diferencias observadas entre poblaciones celulares o condiciones son debido a la biología y no por factores técnicos. La normalización es diferente a la corrección por lote . El proceso de normalización se lleva a cabo sin importar la estructura de los lotes y sólo considera sesgos técnicos, los cuales tienden a afectar los genes en una manera medianamente similar, por ejemplo: la eficiencia de la amplificación por PCR debido al contenido de GC o la longitud del gene. ¿Qué es correción por lote (batch effect correction)? Da un ejemplo. “Large single-cell RNA sequencing (scRNA-seq) projects usually need to generate data across multiple batches due to logistical constraints. However, the processing of different batches is often subject to uncontrollable differences, e.g., changes in operator, differences in reagent quality. This results in systematic differences in the observed expression in cells from different batches, which we refer to as “batch effects”. Batch effects are problematic as they can be major drivers of heterogeneity in the data, masking the relevant biological differences and complicating interpretation of the results” -OSCA ¿Cuáles son las diferencias entre correción por lote y normalización? “Normalization occurs regardless of the batch structure and only considers technical biases, while batch correction - as the name suggests - only occurs across batches and must consider both technical biases and biological differences. Technical biases tend to affect genes in a similar manner, or at least in a manner related to their biophysical properties (e.g., length, GC content), while biological differences between batches can be highly unpredictable” -OSCA 3.3 Datos Usaremos el dataset de Zeisel. Tipos celulares en cerebro de ratón (oligodendrocitos, microglias, neuronas, etc.) Procesado con STRT-seq (similar a CEL-seq), un sistema de microfluido. 3005 células y 18441 genes. Contiene UMIs. library("scRNAseq") sce.zeisel <- ZeiselBrainData(ensembl = TRUE) sce.zeisel ## class: SingleCellExperiment ## dim: 18441 3005 ## metadata(0): ## assays(1): counts ## rownames(18441): ENSMUSG00000029669 ENSMUSG00000046982 ... ENSMUSG00000064337 ENSMUSG00000065947 ## rowData names(2): featureType originalName ## colnames(3005): 1772071015_C02 1772071017_G12 ... 1772066098_A12 1772058148_F03 ## colData names(10): tissue group # ... level1class level2class ## reducedDimNames(0): ## mainExpName: endogenous ## altExpNames(2): ERCC repeat 3.3.1 Primero se debe hacer el control de calidad Eliminando células de baja calidad: Outliers bajos para log(cuenta total) Outliers bajos para log(número de features detectados) Outliers altos para el porcentaje de cuentas de conjuntos de genes especificados (mitocondriales, transcritos spike-in) 3.4 Normalización por escalamiento (scaling normalization) La normalización por escalamiento es la estrategia más simple y usada. Suposición: Cualquier sesgo específico en cada célula afecta a todos los genes de igual manera a través de escalar por el promedio esperado de cuentas para dicha célula. Se realiza de la siguiente manera: Estima un “size factor” para cada célula. Este factor representa el sesgo relativo en esa célula. Divide las cuentas de los genes de cada célula entre su correspondiente “size factor”. \\[ CuentasNormalizadas = Cuentas / Size factor\\] Los valores de expresión normalizados pueden ser usados por análisis posteriores como clustering o reducción de dimensiones. 3.4.1 Normalizacion por tamaño de biblioteca (Library Size normalization) Tamaño de biblioteca (Library Size): La suma total de las cuentas a tráves de todos los genes en una célula. Asumimos que este valor escala con cualquier sesgo específico en cada célula. \\[Library Size_{cell} = \\sum_{n=1}^{j} gene\\] Donde \\(j\\) es el número total de genes y \\(gene\\) es el número de cuentas por gen en la célula \\(cell\\). Para escalar los datos ocuparemos un factor de escalamiento llamado Library Size factor. Este valor se calcula a partir de escalar el tamaño de la biblioteca, tal que el promedio de los Library Size factor en todas las células sea igual a 1. \\[ mean(Library Size factor) = 1 \\] Lo que nos permite que los valores normalizados están en la misma escala y pueden ser útiles para la interpretación. # Estimar factores de normalización lib.sf.zeisel <- librarySizeFactors(sce.zeisel) # Examina la distribución de los tamaños de librerías # que acabamos de estimar summary(lib.sf.zeisel) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.1754 0.5682 0.8669 1.0000 1.2758 4.0651 hist(log10(lib.sf.zeisel), xlab = "Log10[Library Size factor]", col = "grey80") ¿A qué crees que se deba la variación en los factores de escalamiento? ## Calculando el tamaño de las librerias ls.zeisel <- colSums(counts(sce.zeisel)) plot(ls.zeisel, lib.sf.zeisel, log="xy", xlab="Library size", ylab="Size factor") 3.4.2 Puntos finales La normalización por tamaño de biblioteca asume que no hay un sesgo de composición, es decir, si existe un grupo de genes cuya expresión aumenta entonces debe existir otro grupo de genes para los que la expresión disminuye en la misma magnitud, esto generalmente no es verdad para los experimentos de scRNA-seq. Para algunos análisis exploratorios, la precisión de la normalización no es un punto mayor a considerar. La normalizacion por tamaño de biblioteca suele ser suficiente en algunas ocasiones donde se busca identificar clusters y los marcadores de los clusters, dado que el sesgo por composición normalmente no afecta la separación de los clusters, sólo la magnitud. Sin embargo, esta falta de precisión podría afectar cuando se busca obtener estimaciones y estadísticas a nivel de genes individuales. 3.5 Normalización por deconvolución (deconvolution) El problema causado por el sesgo de composición y cómo eliminarlo ha sido estudiado en bulk RNA-seq por métodos como DESeq2::estimateSizeFactorsFromMatrix() y edgeR::calcNormFactors(). En ambos casos, se asume que la mayoría de genes no estarán diferencialmente expresados entre las muestras (en nuestro caso células) y cualquier diferencia entre los genes no diferencialmente expresados representa un sesgo el cual se remueve utilzando el factor de normalización calculado. Sin embargo, en single-cell RNA-seq se tienen muchas cuentas bajas y ceros debido a limitaciones en la tecnología, las cuales no necesariamente indican ausencia de expresión. Para este fenómento no están preparados los métodos utilizados en bulk RNA-seq. La normalización por deconvolución (o normalización scran): Junta las cuentas de varias células (pool) para incrementar el tamaño de las cuentas, reduciendo ceros y cuentas bajas. Aplica los métodos de normalización que corrigen el sesgo de composición. Repiten esto para conjuntos sobrelapantes de células para obtener size factors en pool. Deconvoluciona estos size factors en pool para obtener size factors para cada célula. # Normalización por deconvolución (deconvolution) library("scran") # Pre-clustering (establece una semilla para obtener resultados reproducibles) set.seed(100) clust.zeisel <- quickCluster(sce.zeisel) # Calcula factores de tamaño para la deconvolución (deconvolution) deconv.sf.zeisel <- calculateSumFactors(sce.zeisel, clusters = clust.zeisel, min.mean = 0.1) El pre-clustering mejora la estimación de los size factors al normalizar células similares juntas. # Examina la distribución de los factores de tamaño summary(deconv.sf.zeisel) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.1282 0.4859 0.8248 1.0000 1.3194 4.6521 hist(log10(deconv.sf.zeisel), xlab = "Log10[Deconvolution size factor]", col = "grey80" ) plot(lib.sf.zeisel, deconv.sf.zeisel, xlab = "Library size factor", ylab = "Deconvolution size factor", log = "xy", pch = 16, col=as.integer(factor(sce.zeisel$level1class)) ) abline(a = 0, b = 1, col = "red") 3.5.1 Puntos finales La normalización por deconvolución (deconvolution) mejora los resultados para análisis posteriores de una manera más precisa que los métodos para bulk RNA-seq. El método scran::calculateSumFactors algunas veces calcula factores negativos o ceros lo cual altera la matriz de expresión normalizada. ¡Checa los factores que calculas! Si obtienes factores negativos intenta variar el número de clusters. summary(deconv.sf.zeisel) ## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 0.1282 0.4859 0.8248 1.0000 1.3194 4.6521 3.6 Transformación logarítmica Una vez calculados los factores de normalización con computeSumFactors(), podemos calcular las cuentas en escala logarítmica usando logNormCounts(). ¿Qué es lo que hace esta función? Divide las cuentas de cada gene por el size factor correspondiente para esa célula (estos serían los valores normalizados) y entonces le aplica una transformción logarítmica a estos valores normalizados. Típicamente agrega una pseudo-cuenta de 1 para evitar calcular log(0). Estas cuentas en escala log se conocen como: valores de expresión normalizados en escala logarítmica (log-transformed normalized expression values). sce.zeisel ## class: SingleCellExperiment ## dim: 18441 2815 ## metadata(0): ## assays(1): counts ## rownames(18441): ENSMUSG00000029669 ENSMUSG00000046982 ... ENSMUSG00000064337 ENSMUSG00000065947 ## rowData names(2): featureType originalName ## colnames(2815): 1772071015_C02 1772071017_G12 ... 1772063068_D01 1772066098_A12 ## colData names(10): tissue group # ... level1class level2class ## reducedDimNames(0): ## mainExpName: endogenous ## altExpNames(2): ERCC repeat # Normalization # Esto agrega el "sizeFactor" como parte del objeto # set.seed(100) # clust.zeisel <- quickCluster(sce.zeisel) sce.zeisel <- computeSumFactors(sce.zeisel, cluster=clust.zeisel, min.mean=0.1) sce.zeisel ## class: SingleCellExperiment ## dim: 18441 2815 ## metadata(0): ## assays(1): counts ## rownames(18441): ENSMUSG00000029669 ENSMUSG00000046982 ... ENSMUSG00000064337 ENSMUSG00000065947 ## rowData names(2): featureType originalName ## colnames(2815): 1772071015_C02 1772071017_G12 ... 1772063068_D01 1772066098_A12 ## colData names(11): tissue group # ... level2class sizeFactor ## reducedDimNames(0): ## mainExpName: endogenous ## altExpNames(2): ERCC repeat # Log transformation sce.zeisel <- scater::logNormCounts(sce.zeisel) assayNames(sce.zeisel) ## [1] "counts" "logcounts" 3.6.1 Motivación, ¿Por qué hacemos esta transformación? ¿Qué gen es más interesante? Gen X: el promedio de expresión en el tipo celular A: 50 y B: 10 Gen Y: el promedio de expresión en el tipo celular A: 1100 y B: 1000 50 - 10 ## [1] 40 1100 - 1000 ## [1] 100 log(50) - log(10) ## [1] 1.609438 log(1100) - log(1000) ## [1] 0.09531018 Exacto, Gen X 3.6.2 Lluvia de ideas ¿Qué pasa cuando hacemos la transformación logarítmica? ¿Qué es una pseudo-cuenta? ¿Por qué se usa? ¿Qué valor de pseudo-cuenta usa logNormCounts()? 3.7 Otras normalizaciones Te invitamos a leer más sobre otras formas de normalizar, para empezar puedes consultar el siguiente curso del Sanger Institute. Si estas interesad@ en diferencias en el contenido total de RNA en cada célula, checa la normalización por spike-ins. La cual asume que los spike-ins fueron añadidos en un nivel constante en cada célula. Si tienes resultados donde el library size está asociado a tus datos a pesar de haber normalizado, checa la opción de downsample=TRUE dentro de la función de logNormCounts(). Si te gustaría tener factores de normalización específicos para cada gen que tomen en cuenta la varianza, checa las funciones varianceStabilizingTransformation() de DESeq2 o sctransform de Seurat. 3.8 Dónde estamos 3.9 Adicionales [1] 2018 BioInfoSummer Workshop [2] HBC training 3.10 Agradecimientos Este curso está basado en el libro Orchestrating Single Cell Analysis with Bioconductor de Aaron Lun, Robert Amezquita, Stephanie Hicks y Raphael Gottardo, además del curso de scRNA-seq para WEHI creado por Peter Hickey. Y en el material de la comunidadbioinfo/cdsb2020 con el permiso de Leonardo Collado-Torres. 3.11 Detalles de la sesión de R ## Información de la sesión de R Sys.time() ## [1] "2023-07-31 15:43:10 EDT" proc.time() ## user system elapsed ## 376.387 15.493 789.255 options(width = 120) sessioninfo::session_info() ## ─ Session info ─────────────────────────────────────────────────────────────────────────────────────────────────────── ## setting value ## version R version 4.3.1 (2023-06-16) ## os macOS Ventura 13.4.1 ## system aarch64, darwin20 ## ui RStudio ## language (EN) ## collate en_US.UTF-8 ## ctype en_US.UTF-8 ## tz America/New_York ## date 2023-07-31 ## rstudio 2023.06.0+421 Mountain Hydrangea (desktop) ## pandoc 3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown) ## ## ─ Packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────── ## package * version date (UTC) lib source ## AnnotationDbi * 1.62.2 2023-07-02 [1] Bioconductor ## AnnotationFilter * 1.24.0 2023-05-08 [1] Bioconductor ## AnnotationHub * 3.8.0 2023-05-08 [1] Bioconductor ## beachmat 2.16.0 2023-05-08 [1] Bioconductor ## beeswarm 0.4.0 2021-06-01 [1] CRAN (R 4.3.0) ## Biobase * 2.60.0 2023-05-08 [1] Bioconductor ## BiocFileCache * 2.8.0 2023-05-08 [1] Bioconductor ## BiocGenerics * 0.46.0 2023-06-04 [1] Bioconductor ## BiocIO 1.10.0 2023-05-08 [1] Bioconductor ## BiocManager 1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0) ## BiocNeighbors 1.18.0 2023-05-08 [1] Bioconductor ## BiocParallel 1.34.2 2023-05-28 [1] Bioconductor ## BiocSingular 1.16.0 2023-05-08 [1] Bioconductor ## BiocVersion 3.17.1 2022-12-20 [1] Bioconductor ## biomaRt 2.56.1 2023-06-11 [1] Bioconductor ## Biostrings 2.68.1 2023-05-21 [1] Bioconductor ## bit 4.0.5 2022-11-15 [1] CRAN (R 4.3.0) ## bit64 4.0.5 2020-08-30 [1] CRAN (R 4.3.0) ## bitops 1.0-7 2021-04-24 [1] CRAN (R 4.3.0) ## blob 1.2.4 2023-03-17 [1] CRAN (R 4.3.0) ## bluster 1.10.0 2023-05-08 [1] Bioconductor ## bookdown 0.34 2023-05-09 [1] CRAN (R 4.3.0) ## bslib 0.5.0 2023-06-09 [1] CRAN (R 4.3.0) ## cachem 1.0.8 2023-05-01 [1] CRAN (R 4.3.0) ## cli 3.6.1 2023-03-23 [1] CRAN (R 4.3.0) ## cluster 2.1.4 2022-08-22 [1] CRAN (R 4.3.1) ## codetools 0.2-19 2023-02-01 [1] CRAN (R 4.3.1) ## colorspace 2.1-0 2023-01-23 [1] CRAN (R 4.3.0) ## cowplot 1.1.1 2020-12-30 [1] CRAN (R 4.3.0) ## crayon 1.5.2 2022-09-29 [1] CRAN (R 4.3.0) ## curl 5.0.1 2023-06-07 [1] CRAN (R 4.3.0) ## DBI 1.1.3 2022-06-18 [1] CRAN (R 4.3.0) ## dbplyr * 2.3.3 2023-07-07 [1] CRAN (R 4.3.0) ## DelayedArray 0.26.6 2023-07-02 [1] Bioconductor ## DelayedMatrixStats 1.22.0 2023-05-08 [1] Bioconductor ## digest 0.6.33 2023-07-07 [1] CRAN (R 4.3.0) ## dplyr * 1.1.2 2023-04-20 [1] CRAN (R 4.3.0) ## dqrng 0.3.0 2021-05-01 [1] CRAN (R 4.3.0) ## DropletUtils * 1.20.0 2023-05-08 [1] Bioconductor ## edgeR 3.42.4 2023-06-04 [1] Bioconductor ## ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.3.0) ## EnsDb.Hsapiens.v86 * 2.99.0 2023-07-29 [1] Bioconductor ## ensembldb * 2.24.0 2023-05-08 [1] Bioconductor ## evaluate 0.21 2023-05-05 [1] CRAN (R 4.3.0) ## ExperimentHub 2.8.1 2023-07-16 [1] Bioconductor ## fansi 1.0.4 2023-01-22 [1] CRAN (R 4.3.0) ## farver 2.1.1 2022-07-06 [1] CRAN (R 4.3.0) ## fastmap 1.1.1 2023-02-24 [1] CRAN (R 4.3.0) ## filelock 1.0.2 2018-10-05 [1] CRAN (R 4.3.0) ## generics 0.1.3 2022-07-05 [1] CRAN (R 4.3.0) ## GenomeInfoDb * 1.36.1 2023-07-02 [1] Bioconductor ## GenomeInfoDbData 1.2.10 2023-06-08 [1] Bioconductor ## GenomicAlignments 1.36.0 2023-05-08 [1] Bioconductor ## GenomicFeatures * 1.52.1 2023-07-02 [1] Bioconductor ## GenomicRanges * 1.52.0 2023-05-08 [1] Bioconductor ## ggbeeswarm 0.7.2 2023-04-29 [1] CRAN (R 4.3.0) ## ggplot2 * 3.4.2 2023-04-03 [1] CRAN (R 4.3.0) ## ggrepel 0.9.3 2023-02-03 [1] CRAN (R 4.3.0) ## glue 1.6.2 2022-02-24 [1] CRAN (R 4.3.0) ## gridExtra 2.3 2017-09-09 [1] CRAN (R 4.3.0) ## gtable 0.3.3 2023-03-21 [1] CRAN (R 4.3.0) ## HDF5Array 1.28.1 2023-05-08 [1] Bioconductor ## here 1.0.1 2020-12-13 [1] CRAN (R 4.3.0) ## highr 0.10 2022-12-22 [1] CRAN (R 4.3.0) ## hms 1.1.3 2023-03-21 [1] CRAN (R 4.3.0) ## htmltools 0.5.5 2023-03-23 [1] CRAN (R 4.3.0) ## httpuv 1.6.11 2023-05-11 [1] CRAN (R 4.3.0) ## httr 1.4.6 2023-05-08 [1] CRAN (R 4.3.0) ## igraph 1.5.0.1 2023-07-23 [1] CRAN (R 4.3.0) ## interactiveDisplayBase 1.38.0 2023-05-08 [1] Bioconductor ## IRanges * 2.34.1 2023-07-02 [1] Bioconductor ## irlba 2.3.5.1 2022-10-03 [1] CRAN (R 4.3.0) ## jquerylib 0.1.4 2021-04-26 [1] CRAN (R 4.3.0) ## jsonlite 1.8.7 2023-06-29 [1] CRAN (R 4.3.0) ## KEGGREST 1.40.0 2023-05-08 [1] Bioconductor ## knitr 1.43 2023-05-25 [1] CRAN (R 4.3.0) ## labeling 0.4.2 2020-10-20 [1] CRAN (R 4.3.0) ## later 1.3.1 2023-05-02 [1] CRAN (R 4.3.0) ## lattice 0.21-8 2023-04-05 [1] CRAN (R 4.3.1) ## lazyeval 0.2.2 2019-03-15 [1] CRAN (R 4.3.0) ## lifecycle 1.0.3 2022-10-07 [1] CRAN (R 4.3.0) ## limma 3.56.2 2023-06-04 [1] Bioconductor ## locfit 1.5-9.8 2023-06-11 [1] CRAN (R 4.3.0) ## magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.3.0) ## Matrix * 1.6-0 2023-07-08 [1] CRAN (R 4.3.0) ## MatrixGenerics * 1.12.2 2023-07-02 [1] Bioconductor ## matrixStats * 1.0.0 2023-06-02 [1] CRAN (R 4.3.0) ## memoise 2.0.1 2021-11-26 [1] CRAN (R 4.3.0) ## metapod 1.8.0 2023-04-25 [1] Bioconductor ## mime 0.12 2021-09-28 [1] CRAN (R 4.3.0) ## munsell 0.5.0 2018-06-12 [1] CRAN (R 4.3.0) ## pillar 1.9.0 2023-03-22 [1] CRAN (R 4.3.0) ## pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.3.0) ## png 0.1-8 2022-11-29 [1] CRAN (R 4.3.0) ## prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.3.0) ## progress 1.2.2 2019-05-16 [1] CRAN (R 4.3.0) ## promises 1.2.0.1 2021-02-11 [1] CRAN (R 4.3.0) ## ProtGenerics 1.32.0 2023-05-08 [1] Bioconductor ## purrr 1.0.1 2023-01-10 [1] CRAN (R 4.3.0) ## R.methodsS3 1.8.2 2022-06-13 [1] CRAN (R 4.3.0) ## R.oo 1.25.0 2022-06-12 [1] CRAN (R 4.3.0) ## R.utils 2.12.2 2022-11-11 [1] CRAN (R 4.3.0) ## R6 2.5.1 2021-08-19 [1] CRAN (R 4.3.0) ## rappdirs 0.3.3 2021-01-31 [1] CRAN (R 4.3.0) ## Rcpp 1.0.11 2023-07-06 [1] CRAN (R 4.3.0) ## RCurl 1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0) ## restfulr 0.0.15 2022-06-16 [1] CRAN (R 4.3.0) ## rhdf5 2.44.0 2023-05-08 [1] Bioconductor ## rhdf5filters 1.12.1 2023-05-08 [1] Bioconductor ## Rhdf5lib 1.22.0 2023-05-08 [1] Bioconductor ## rjson 0.2.21 2022-01-09 [1] CRAN (R 4.3.0) ## rlang 1.1.1 2023-04-28 [1] CRAN (R 4.3.0) ## rmarkdown 2.23 2023-07-01 [1] CRAN (R 4.3.0) ## rprojroot 2.0.3 2022-04-02 [1] CRAN (R 4.3.0) ## Rsamtools 2.16.0 2023-06-04 [1] Bioconductor ## RSQLite 2.3.1 2023-04-03 [1] CRAN (R 4.3.0) ## rstudioapi 0.15.0 2023-07-07 [1] CRAN (R 4.3.0) ## rsvd 1.0.5 2021-04-16 [1] CRAN (R 4.3.0) ## rtracklayer 1.60.0 2023-05-08 [1] Bioconductor ## S4Arrays 1.0.4 2023-05-14 [1] Bioconductor ## S4Vectors * 0.38.1 2023-05-08 [1] Bioconductor ## sass 0.4.7 2023-07-15 [1] CRAN (R 4.3.0) ## ScaledMatrix 1.8.1 2023-05-08 [1] Bioconductor ## scales 1.2.1 2022-08-20 [1] CRAN (R 4.3.0) ## scater * 1.28.0 2023-04-25 [1] Bioconductor ## scran * 1.28.2 2023-07-23 [1] Bioconductor ## scRNAseq * 2.14.0 2023-04-27 [1] Bioconductor ## scuttle * 1.9.4 2023-01-23 [1] Bioconductor ## sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.3.0) ## shiny 1.7.4.1 2023-07-06 [1] CRAN (R 4.3.0) ## SingleCellExperiment * 1.22.0 2023-05-08 [1] Bioconductor ## sparseMatrixStats 1.12.2 2023-07-02 [1] Bioconductor ## statmod 1.5.0 2023-01-06 [1] CRAN (R 4.3.0) ## stringi 1.7.12 2023-01-11 [1] CRAN (R 4.3.0) ## stringr 1.5.0 2022-12-02 [1] CRAN (R 4.3.0) ## SummarizedExperiment * 1.30.2 2023-06-06 [1] Bioconductor ## tibble 3.2.1 2023-03-20 [1] CRAN (R 4.3.0) ## tidyselect 1.2.0 2022-10-10 [1] CRAN (R 4.3.0) ## utf8 1.2.3 2023-01-31 [1] CRAN (R 4.3.0) ## vctrs 0.6.3 2023-06-14 [1] CRAN (R 4.3.0) ## vipor 0.4.5 2017-03-22 [1] CRAN (R 4.3.0) ## viridis 0.6.4 2023-07-22 [1] CRAN (R 4.3.0) ## viridisLite 0.4.2 2023-05-02 [1] CRAN (R 4.3.0) ## withr 2.5.0 2022-03-03 [1] CRAN (R 4.3.0) ## xfun 0.39 2023-04-20 [1] CRAN (R 4.3.0) ## XML 3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0) ## xml2 1.3.5 2023-07-06 [1] CRAN (R 4.3.0) ## xtable 1.8-4 2019-04-21 [1] CRAN (R 4.3.0) ## XVector 0.40.0 2023-05-08 [1] Bioconductor ## yaml 2.3.7 2023-01-23 [1] CRAN (R 4.3.0) ## zlibbioc 1.46.0 2023-05-08 [1] Bioconductor ## ## [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library ## ## ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── "],["selección-de-genes-altamente-variables.html", "4 Selección de genes altamente variables 4.1 Diapositivas 4.2 Diapositivas de Peter Hickey 4.3 Motivación 4.4 Selección de features (genes) 4.5 Dataset ilustrativo: PBMC4k 10X sin filtrar 4.6 Dataset ilustrativo: 416B 4.7 Cuantificando la varianza por gen 4.8 Coeficiente de variación de las cuentas 4.9 Varianza de los log-counts vs coeficiente de variación 4.10 Cuantificando el ruido técnico 4.11 En la ausencia de spike-ins 4.12 Recordemos propiedades de los datos de sce.416b 4.13 Considerando factores experimentales 4.14 Seleccionando genes altamante variables (high-variable genes, HVGs) 4.15 Poniendo todo junto 4.16 Resumen y recomendaciones 4.17 Recomendaciones para empezar 4.18 Detalles de la sesión de R", " 4 Selección de genes altamente variables José Antonio Ovando 08 de agosto de 2023 4.1 Diapositivas 4.2 Diapositivas de Peter Hickey Ver las diapositivas originales aquí 4.3 Motivación Usualmente usamos datos scRNA-seq para caracterizar la heterogeneidad entre células Para hacer esto, usamos métodos como el clustering y la reducción de dimensionalidad Esto involucra resumir las diferencias por gen en una sola medida de (dis)similitud entre un par de células ¿Cuáles genes deberíamos usar para calcular esta medida de (dis)similitud? 4.4 Selección de features (genes) La elección de los features tiene un mayor impacto en qué tan similares decidimos que son las células ➕ Features que contienen información útil biológica ➖ Features que contienen ruido aleatorio 👉 Efectos laterales al reducir la dimensionalidad de los datos Deseamos seleccionar los genes altamente variables (High Variable Genes HVGs). Genes con una variación incrementada en comparación con otros genes que están siendo afectados por ruido técnico u otra variación biológica que no es de nuestro interés. 4.5 Dataset ilustrativo: PBMC4k 10X sin filtrar 4.5.1 Descargar datos # Usemos datos de pbmc4k library(BiocFileCache) bfc <- BiocFileCache() raw.path <- bfcrpath(bfc, file.path( "http://cf.10xgenomics.com/samples", "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz" )) untar(raw.path, exdir = file.path(tempdir(), "pbmc4k")) library(DropletUtils) library(Matrix) fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38") sce.pbmc <- read10xCounts(fname, col.names = TRUE) sce.pbmc ## class: SingleCellExperiment ## dim: 33694 737280 ## metadata(1): Samples ## assays(1): counts ## rownames(33694): ENSG00000243485 ENSG00000237613 ... ENSG00000277475 ENSG00000268674 ## rowData names(2): ID Symbol ## colnames(737280): AAACCTGAGAAACCAT-1 AAACCTGAGAAACCGC-1 ... TTTGTCATCTTTAGTC-1 TTTGTCATCTTTCCTC-1 ## colData names(2): Sample Barcode ## reducedDimNames(0): ## mainExpName: NULL ## altExpNames(0): Dataset “Células mononucleares humanas de sangre periférica” de 10X Genomics Descripción aquí 1 4.5.2 Anotación # Anotación de los genes library(scater) rownames(sce.pbmc) <- uniquifyFeatureNames( rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol ) library(EnsDb.Hsapiens.v86) location <- mapIds(EnsDb.Hsapiens.v86, keys = rowData(sce.pbmc)$ID, column = "SEQNAME", keytype = "GENEID" ) # Detección de _droplets_ con células set.seed(100) e.out <- emptyDrops(counts(sce.pbmc)) sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)] 4.5.3 Control de calidad # Control de calidad stats <- perCellQCMetrics(sce.pbmc, subsets = list(Mito = which(location == "MT")) ) high.mito <- isOutlier(stats$subsets_Mito_percent, type = "higher" ) sce.pbmc <- sce.pbmc[, !high.mito] # Normalización de los datos library(scran) set.seed(1000) clusters <- quickCluster(sce.pbmc) sce.pbmc <- computeSumFactors(sce.pbmc, cluster = clusters) sce.pbmc <- logNormCounts(sce.pbmc) 4.6 Dataset ilustrativo: 416B library(scRNAseq) sce.416b <- LunSpikeInData(which = "416b") sce.416b$block <- factor(sce.416b$block) Línea celular de células mieloides progenitoras inmortalizadas de ratón usando SmartSeq2 https://osca.bioconductor.org/lun-416b-cell-line-smart-seq2.html 2 # gene-annotation library(AnnotationHub) ens.mm.v97 <- AnnotationHub()[["AH73905"]] rowData(sce.416b)$ENSEMBL <- rownames(sce.416b) rowData(sce.416b)$SYMBOL <- mapIds(ens.mm.v97, keys = rownames(sce.416b), keytype = "GENEID", column = "SYMBOL" ) rowData(sce.416b)$SEQNAME <- mapIds(ens.mm.v97, keys = rownames(sce.416b), keytype = "GENEID", column = "SEQNAME" ) library(scater) rownames(sce.416b) <- uniquifyFeatureNames( rowData(sce.416b)$ENSEMBL, rowData(sce.416b)$SYMBOL ) # quality-control mito <- which(rowData(sce.416b)$SEQNAME == "MT") stats <- perCellQCMetrics(sce.416b, subsets = list(Mt = mito)) qc <- quickPerCellQC(stats, percent_subsets = c("subsets_Mt_percent", "altexps_ERCC_percent"), batch = sce.416b$block ) sce.416b <- sce.416b[, !qc$discard] # normalization library(scran) sce.416b <- computeSumFactors(sce.416b) sce.416b <- logNormCounts(sce.416b) 4.7 Cuantificando la varianza por gen 4.7.1 Varianza de los log-counts El enfoque más simple para cuantificar la variación per-feature es simplemente calcular la varianza de los log-counts ➕ Selección del feature basado en los log-counts (que serán usadas en los análisis más adelante) ⚠️ La transformación log no logra la estabilización de la varianza perfecta, así que se requiere modelar la relación de la varianza-media de los features. 4.7.2 Enfoque simple Calcular la varianza de los log-counts para cada gen (ignorando grupos experimentales) Ordenar los genes del más-al-menos variable 4.7.3 Un enfoque más sofisticado Calcular la varianza de los log-counts para cada gen (ignorando grupos experimentales) Modelar la relación entre la media y la varianza de los log-counts para estimar la variación técnica Estimar la varianza biológica sustrayendo la varianza técnica de la varianza total Ordenar los genes de la variable de mayor-a-menor biológicamente 4.7.4 Supuestos # Varianza de las log-counts library(scran) dec.pbmc <- modelGeneVar(sce.pbmc) 🤓 El supuesto es que a cualquier abundancia dada, la abundancia de los perfiles de expresión de la mayoría de los genes están dominados por el ruido aleatorio técnico 🤓 Por lo consiguiente, una tendencia representa un estimado del ruido técnico como una función de la abundancia 🤓 Podemos entonces descomponer la varianza total de cada gen en un componente técnico y uno biológico 🤓 Genes con una gran varianza biológica son considerados interesantes 4.7.5 Visualizando la media y varianza # Visualicemos la relación entre la media y la varianza fit.pbmc <- metadata(dec.pbmc) plot(fit.pbmc$mean, fit.pbmc$var, xlab = "Mean of log-expression", ylab = "Variance of log-expression" ) curve(fit.pbmc$trend(x), col = "dodgerblue", add = TRUE, lwd = 2) 4.7.6 Ordenando genes interesantes # Ordenemos por los genes más interesantes para checar # los datos dec.pbmc[order(dec.pbmc$bio, decreasing = TRUE), ] ## DataFrame with 33694 rows and 6 columns ## mean total tech bio p.value FDR ## <numeric> <numeric> <numeric> <numeric> <numeric> <numeric> ## LYZ 1.94129 4.99949 0.824172 4.17532 1.44008e-250 2.83205e-246 ## S100A9 1.92243 4.48842 0.824008 3.66441 1.25315e-193 6.16112e-190 ## S100A8 1.68566 4.35303 0.814526 3.53850 6.89502e-185 2.71195e-181 ## HLA-DRA 2.09063 3.73576 0.819396 2.91636 7.27124e-125 1.19164e-121 ## CD74 2.90080 3.34898 0.786799 2.56218 6.72905e-105 6.96492e-102 ## ... ... ... ... ... ... ... ## PTMA 3.83144 0.474774 0.733464 -0.258690 0.990672 1 ## HLA-B 4.49970 0.479899 0.748285 -0.268386 0.991626 1 ## EIF1 3.23434 0.471616 0.766366 -0.294750 0.994844 1 ## TMSB4X 6.07476 0.408677 0.719095 -0.310419 0.998006 1 ## B2M 5.94601 0.311508 0.690710 -0.379202 0.999875 1 4.8 Coeficiente de variación de las cuentas El coeficiente de variación de las cuentas al cuadrado (CV2) es una alternativa a la varianza de los log-counts 👉 Se calcula usando las cuentas en lugar de los log-counts 🤓 CV es el ratio de la desviación estándar a la media y está muy relacionada con el parámetro de dispersión de la distribución binomial negativa usada en edgeR y DESeq2 4.8.1 Coeficiente de variación # Coeficiente de variación dec.cv2.pbmc <- modelGeneCV2(sce.pbmc) 🤓 Modela la relación de la media de la varianza cuando se considera la relevancia de cada gen 🤓 Asume que la mayoría de los genes contienen ruido aleatorio y que la tendencia captura la mayoría de la variación técnica 🤓 Genes con un gran CV2 que se desvían fuertemente de la tendencia es probable que representen genes afectados por la estructura biológica 🤓 Usa la tasa (en lugar de la diferencia) del CV2 a la tendencia 4.8.2 Visualizando el coeficiente de variación # Visualicemos la relación con la media fit.cv2.pbmc <- metadata(dec.cv2.pbmc) plot(fit.cv2.pbmc$mean, fit.cv2.pbmc$cv2, log = "xy" ) curve(fit.cv2.pbmc$trend(x), col = "dodgerblue", add = TRUE, lwd = 2 ) 4.8.3 Genes por coeficiente de variación # Ordenemos por los genes más interesantes para checar # los datos dec.cv2.pbmc[order(dec.cv2.pbmc$ratio, decreasing = TRUE ), ] ## DataFrame with 33694 rows and 6 columns ## mean total trend ratio p.value FDR ## <numeric> <numeric> <numeric> <numeric> <numeric> <numeric> ## GNG11 1.0300722 694.193 1.39084 499.117 0 0 ## PTK7 0.0710992 3664.385 17.32128 211.554 0 0 ## RNF208 0.0721694 3558.419 17.06755 208.490 0 0 ## TUBA8 0.0723199 3544.014 17.03246 208.074 0 0 ## ARHGAP6 0.0777368 3074.612 15.86022 193.857 0 0 ## ... ... ... ... ... ... ... ## AC023491.2 0 NaN Inf NaN NaN NaN ## AC233755.2 0 NaN Inf NaN NaN NaN ## AC233755.1 0 NaN Inf NaN NaN NaN ## AC213203.1 0 NaN Inf NaN NaN NaN ## FAM231B 0 NaN Inf NaN NaN NaN 4.9 Varianza de los log-counts vs coeficiente de variación Generalmente se usa la varianza de los log-counts Ambas son medidas efectivas para cuantificar la variación en la expresión génica CV2 tiende a tener otorgar rangos altos a genes altamente variables (HGVs) con bajos niveles de expresión Éstos son dirigidos por una sobreregulación en subpoblaciones raras Puede asignar un alto rango a genes que no son de nuestro interés con varianza baja absoluta La variación descrita por el CV2 de las cuentas es menos relevante para los procedimientos que operan en los log-counts 4.10 Cuantificando el ruido técnico Previamente, ajustamos una línea de tendencia a todos los genes endógenos y asumimos que la mayoría de los genes no están dominados por ruido técnico En la práctica, todos los genes expresados tienen algún nivel de variabilidad biológica diferente de cero (e.g., transcriptional bursting) Esto sugiere que nuestros estimados de los componentes técnicos estarán inflados probablemente 👉 Es mejor que pensemos estos estimados como una variación técnica más la variación biológica que no es interesante 🤔 Pero que tal si un grupo de genes a una abundancia particular es afectado por un proceso biológico? E.g., fuerte sobre regulación de genes específicos de un tipo celular podrían conllevar a un enriquecimiento de HVGs en abundancias altas. Esto inflaría la tendencia y compromete la detección de los genes relevantes ¿Cómo podemos evitar este problema? Podemos revisar dos enfoques: Cuando tenemos spike-ins Cuando no tenemos spike-ins 4.10.1 En la presencia de spike-ins dec.spike.416b <- modelGeneVarWithSpikes( sce.416b, "ERCC" ) # Ordering by most interesting genes for # inspection. dec.spike.416b[order(dec.spike.416b$bio, decreasing = TRUE ), ] ## DataFrame with 46604 rows and 6 columns ## mean total tech bio p.value FDR ## <numeric> <numeric> <numeric> <numeric> <numeric> <numeric> ## Lyz2 6.61097 13.8497 1.57131 12.2784 1.48993e-186 1.54156e-183 ## Ccl9 6.67846 13.1869 1.50035 11.6866 2.21855e-185 2.19979e-182 ## Top2a 5.81024 14.1787 2.54776 11.6310 3.80015e-65 1.13040e-62 ## Cd200r3 4.83180 15.5613 4.22984 11.3314 9.46221e-24 6.08573e-22 ## Ccnb2 5.97776 13.1393 2.30177 10.8375 3.68706e-69 1.20193e-66 ## ... ... ... ... ... ... ... ## Rpl5-ps2 3.60625 0.612623 6.32853 -5.71590 0.999616 0.999726 ## Gm11942 3.38768 0.798570 6.51473 -5.71616 0.999459 0.999726 ## Gm12816 2.91276 0.838670 6.57364 -5.73497 0.999422 0.999726 ## Gm13623 2.72844 0.708071 6.45448 -5.74641 0.999544 0.999726 ## Rps12l1 3.15420 0.746615 6.59332 -5.84670 0.999522 0.999726 👉 Ajusta la tendencia solo con los spike-ins (que deberían estar afectados solamente por variación técnica) plot(dec.spike.416b$mean, dec.spike.416b$total, xlab = "Mean of log-expression", ylab = "Variance of log-expression" ) fit.spike.416b <- metadata(dec.spike.416b) points(fit.spike.416b$mean, fit.spike.416b$var, col = "red", pch = 16 ) curve(fit.spike.416b$trend(x), col = "dodgerblue", add = TRUE, lwd = 2 ) 4.11 En la ausencia de spike-ins set.seed(0010101) dec.pois.pbmc <- modelGeneVarByPoisson(sce.pbmc) # Ordering by most interesting genes for inspection. dec.pois.pbmc[order(dec.pois.pbmc$bio, decreasing = TRUE), ] ## DataFrame with 33694 rows and 6 columns ## mean total tech bio p.value FDR ## <numeric> <numeric> <numeric> <numeric> <numeric> <numeric> ## LYZ 1.94129 4.99949 0.625290 4.37420 0 0 ## S100A9 1.92243 4.48842 0.628977 3.85944 0 0 ## S100A8 1.68566 4.35303 0.669965 3.68307 0 0 ## HLA-DRA 2.09063 3.73576 0.594291 3.14146 0 0 ## CD74 2.90080 3.34898 0.418950 2.93003 0 0 ## ... ... ... ... ... ... ... ## COX6A1 0.905824 0.579594 0.633121 -0.0535269 0.883561 0.968946 ## NEDD8 0.842764 0.558542 0.612707 -0.0541655 0.893881 0.978680 ## NDUFA1 0.863339 0.557910 0.619832 -0.0619222 0.920683 1.000000 ## SAP18 0.766806 0.515749 0.582464 -0.0667157 0.946979 1.000000 ## SUMO2 1.362264 0.612538 0.694805 -0.0822664 0.952613 1.000000 👉 Realiza algunas asunciones estadísticas acerca del ruido 🤓 Las cuentas UMI típicamente muestran una variación cercana a Poisson si solo consideramos ruido técnico de la preparación de las librerías y la secuenciación ⚠️ modelGeneVarByPoisson() realiza simulaciones, por lo que necesitamos “ajustar la “semilla” para obtener resultados reproducibles 🤓 modelGeneVarByPoisson() pueden también simular una variación binomial negativa (variación de Poisson sobredispersada) plot(dec.pois.pbmc$mean, dec.pois.pbmc$total, pch = 16, xlab = "Mean of log-expression", ylab = "Variance of log-expression" ) curve(metadata(dec.pois.pbmc)$trend(x), col = "dodgerblue", add = TRUE ) 🤓 La línea de tendencia basada puramente en ruido técnico tiende a producir componentes “biológicos” más grandes por los genes altamente expresados, que frecuentemente incluyen los genes “house-keeping” 🤔 Necesitas considerar si tales genes son “interesantes” o no en tu dataset de interés 4.12 Recordemos propiedades de los datos de sce.416b Este dataset consiste de células de una línea celular de células inmortalizadas mieloides progenitoras de ratón utilizando SmartSeq2 Una cantidad constante de spike-in ERCC RNA se agregó a cada lisado celular antes de la prepatación de la librería Descripción aquí Lun, A. T. L., Calero-Nieto, F. J., Haim-Vilmovsky, L., Göttgens, B. & Marioni, J. C. Assessing the reliability of spike-in normalization for analyses of single-cell RNA sequencing data. Genome Res. 27, 1795–1806 (2017) 4.13 Considerando factores experimentales Los datos que contienen múltiples batches muy seguido presentan efecto de bloque que pueden crear HGVs artificiales Se debe identificar los HGVs en cada batch y combinarlos en una única lista de HGVs # calculando la variacion por bloque dec.block.416b <- modelGeneVarWithSpikes(sce.416b, "ERCC", block = sce.416b$block ) dec.block.416b[order( dec.block.416b$bio, decreasing = TRUE ), ] ## DataFrame with 46604 rows and 7 columns ## mean total tech bio p.value FDR ## <numeric> <numeric> <numeric> <numeric> <numeric> <numeric> ## Lyz2 6.61235 13.8619 1.58416 12.2777 0.00000e+00 0.00000e+00 ## Ccl9 6.67841 13.2599 1.44553 11.8143 0.00000e+00 0.00000e+00 ## Top2a 5.81275 14.0192 2.74571 11.2734 3.89855e-137 8.43398e-135 ## Cd200r3 4.83305 15.5909 4.31892 11.2719 1.17783e-54 7.00721e-53 ## Ccnb2 5.97999 13.0256 2.46647 10.5591 1.20380e-151 2.98405e-149 ## ... ... ... ... ... ... ... ## Gm12816 2.91299 0.842574 6.67730 -5.83472 0.999989 0.999999 ## Gm5786 2.90717 0.879485 6.71686 -5.83738 0.999994 0.999999 ## Rpl9-ps4 3.26421 0.807057 6.64932 -5.84226 0.999988 0.999999 ## Gm13623 2.72788 0.700296 6.63875 -5.93845 0.999998 0.999999 ## Rps12l1 3.15425 0.750775 6.70033 -5.94955 0.999995 0.999999 ## per.block ## <DataFrame> ## Lyz2 6.35652:13.3748:2.08227:...:6.86819:14.3490:1.08605:... ## Ccl9 6.68726:13.0778:1.65923:...:6.66956:13.4420:1.23184:... ## Top2a 5.34891:17.5972:3.91642:...:6.27659:10.4411:1.57501:... ## Cd200r3 4.60115:15.7870:5.55587:...:5.06496:15.3948:3.08197:... ## Ccnb2 5.56701:15.4150:3.46931:...:6.39298:10.6362:1.46362:... ## ... ... ## Gm12816 2.86995:0.624143:7.43036:...:2.95604:1.061004:5.92424:... ## Gm5786 2.96006:0.902872:7.49911:...:2.85427:0.856098:5.93462:... ## Rpl9-ps4 3.60690:0.543276:7.36805:...:2.92151:1.070839:5.93058:... ## Gm13623 2.83129:0.852901:7.39442:...:2.62447:0.547692:5.88308:... ## Rps12l1 3.14399:0.716670:7.57246:...:3.16452:0.784881:5.82819:... Al calcular tendencias específicas por batch se tomarán en cuenta las diferencias en la relación media-varianza entre batches Se deben obtener estimados de los componentes biológico y técnico para cada gene específicos de cada batch, los cuales se promedian entre los batches para crear una única lista de HVGs 4.14 Seleccionando genes altamante variables (high-variable genes, HVGs) Hasta ahora hemos ordenado los genes del más al menos interesantemente variable ¿Qué tanto debemos de bajar en la lista para seleccionar nuestros HVGs? Para responder esta pregunta debemos tomar en cuenta lo siguiente: elegir un subset más grande: Reduce el riesgo de desechar señal biológica Incrementa el ruido por la inclusión de genes irrelevantes Es difícil determinar el balance óptimo porque el rudio en un contexto podría ser una señal útil en otro contexto Discutiremos algunas estrategias para seleccionar HVGs 4.14.1 Seleccionando HVGs sobre la métrica de varianza La estrategia más simple es seleccionar los top-X genes con los valores más grandes para la métrica relevante de varianza, por ejemplo, la varianza biológica más grande calculada con scran::modelGeneVar() Pro: El usuario puede controlar directamente el número de HVGs Contra: ¿Qué valor de X se debe usar? # Works with modelGeneVar() output hvg.pbmc.var <- getTopHVGs(dec.pbmc, n = 1000) str(hvg.pbmc.var) ## chr [1:1000] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ... # Works with modelGeneVarWithSpikes() output hvg.416b.var <- getTopHVGs(dec.spike.416b, n = 1000) str(hvg.416b.var) ## chr [1:1000] "Lyz2" "Ccl9" "Top2a" "Cd200r3" "Ccnb2" "Gm10736" "Hbb-bt" "Mcm5" "Cenpa" "Birc5" "Cd200r4" "Mcm6" ... # Also works with modelGeneCV2() but note `var.field` hvg.pbmc.cv2 <- getTopHVGs(dec.cv2.pbmc, var.field = "ratio", n = 1000 ) str(hvg.pbmc.cv2) ## chr [1:1000] "GNG11" "PTK7" "RNF208" "TUBA8" "ARHGAP6" "PDZK1IP1" "CTB-55O6.8" "NDST2" "GUCY1B3" "MAP1LC3A" "HYI" ... 4.14.1.1 Estrategias para seleccionar X Asume que, por ejemplo, no más del 5% de los genes están diferencialmente expresados entre las células de nuestra población: Establece X como el 5% de los genes Normalmente no conocemos el número de genes diferencialmente expresados desde antes, por lo tanto, solo hemos cambiado un número arbitrario por otro número arbitrario RECOMENDACIÓN: Si decides utilizar los top-X HGVs, elige un valor de X y procede con el resto del análisis con la intención de regresar más adelante y probar otros valores, en vez de dedicarle mucho esfuerzo a encontrar el valor óptimo 4.14.2 Seleccionando HVGs de acuerdo a su significancia estadística Establece un límite fijo en alguna métrica de significancia estadística. Por ejemplo: algunos de los métodos reportan un p-valor para cada gene, entonces selecciona todos los genes con un p-valor ajustado menor que 0.05 Recuerda que las pruebas estadísticas siempre dependen del tamaño de la muestra Ventajas: * Fácil de implementar * Menos predecible que la estrategia de los top-X Desventajas: * Podría priorizar genes con significancia estadística fuerte en vez de significancia biológica fuerte # Works with modelGeneVar() output hvg.pbmc.var.2 <- getTopHVGs(dec.pbmc, fdr.threshold = 0.05) str(hvg.pbmc.var.2) ## chr [1:629] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ... # Works with modelGeneVarWithSpikes() output hvg.416b.var.2 <- getTopHVGs(dec.spike.416b, fdr.threshold = 0.05 ) str(hvg.416b.var.2) ## chr [1:2568] "Lyz2" "Ccl9" "Top2a" "Cd200r3" "Ccnb2" "Gm10736" "Hbb-bt" "Mcm5" "Cenpa" "Birc5" "Cd200r4" "Mcm6" ... # Also works with modelGeneCV2() but note `var.field` hvg.pbmc.cv2.2 <- getTopHVGs(dec.cv2.pbmc, var.field = "ratio", fdr.threshold = 0.05 ) str(hvg.pbmc.cv2.2) ## chr [1:1706] "GNG11" "PTK7" "RNF208" "TUBA8" "ARHGAP6" "PDZK1IP1" "CTB-55O6.8" "NDST2" "GUCY1B3" "MAP1LC3A" "HYI" ... 4.14.3 Seleccionando genes por arriba de la tendencia media-varianza Selecciona todos los genes con una varianza biológica positiva Este es un extremo del equilibrio sesgo-varianza que minimiza el sesgo con el costo de maximizar el ruido Si seguimos esta aproximación, estamos: Dándole a la estructura secundaria de la población una oportunidad de manifestarse Capturando más ruido, lo cual puede reducir la resolución de poblaciones bien separadas enmascarando la señal secundaria que intentamos preservar Funciona mejor si tenemos datasets altamente heterogeneos que contienen muchos tipos celulares diferentes # Works with modelGeneVar() output hvg.pbmc.var.3 <- getTopHVGs(dec.pbmc, var.threshold = 0) str(hvg.pbmc.var.3) ## chr [1:12852] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ... # Works with modelGeneVarWithSpikes() output hvg.416b.var.3 <- getTopHVGs(dec.spike.416b, var.threshold = 0 ) str(hvg.416b.var.3) ## chr [1:11087] "Lyz2" "Ccl9" "Top2a" "Cd200r3" "Ccnb2" "Gm10736" "Hbb-bt" "Mcm5" "Cenpa" "Birc5" "Cd200r4" "Mcm6" ... # Also works with modelGeneCV2() but note `var.field` and # value of `var.threshold` hvg.pbmc.cv2.3 <- getTopHVGs(dec.cv2.pbmc, var.field = "ratio", var.threshold = 1 ) str(hvg.pbmc.cv2.2) ## chr [1:1706] "GNG11" "PTK7" "RNF208" "TUBA8" "ARHGAP6" "PDZK1IP1" "CTB-55O6.8" "NDST2" "GUCY1B3" "MAP1LC3A" "HYI" ... 4.14.4 EJERCICIO: Dibujando los HVGs Para este ejercicio tendrás que repetir la gráfica que muestra la tendencia de la relación media-varianza (ejeX: media de la expresión, ejeY: varianza de la expresión) incluyendo la línea de tendencia obtenida con alguna de las funciones vistas en la primer parte de la clase (modelGeneVar, modelGeneVarWithSpikes, modelGeneCV2). En esta gráfica, deberás colorear los puntos que corresponden a los HGVs obtenidos con algunos de los enfoques revisados RESPUESTA plot(fit.pbmc$mean, fit.pbmc$var, xlab = "Mean of log-expression", ylab = "Variance of log-expression" ) points(fit.pbmc$mean[hvg.pbmc.var], fit.pbmc$var[hvg.pbmc.var], col = "orange") curve(fit.pbmc$trend(x), col = "dodgerblue", add = TRUE, lwd = 2) 4.14.5 Seleccionando genes de interés a priori Una estrategia contundente es usar sets predefinidos de genes de interés. No hay vergüenza en aprovechar el conocimiento biológivo previo Sin embargo, limita nuestra capacidad de descubrir aspectos nuevos o inesperados de la variación. Por lo tanto, considera esta como una estrategia complementaria a otros tipo de estrategias de selección de HGVs También podrías eliminar listas pre-definidas de genes: Genes de proteínas ribosomales o genes mitocondriales son conocidos por encontrarse dentro de los genes más variables y por interferir con análisis posteriores Sin embargo, tampoco hay que pecar de prevacido, espera a que estos genes demuestren ser problemáticos para removerlos 4.15 Poniendo todo junto # Elegimos el 10% de los genes con con componente biologico de variacion mayor dec.pbmc <- modelGeneVar(sce.pbmc) chosen <- getTopHVGs(dec.pbmc, prop = 0.1) str(chosen) ## chr [1:1285] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ... Después de esto tenemos varias opciones para imponer nuestra selección de HGVs durante el resto del análisis: Hacer un subset de SCE para quedarnos únicamente con los HGVs Especificar los HGVs en funciones posteriores Magia (altExps) 4.15.1 Quedándonos sólo con los HGVs sce.pbmc.hvg <- sce.pbmc[chosen, ] sce.pbmc.hvg ## class: SingleCellExperiment ## dim: 1285 3968 ## metadata(1): Samples ## assays(2): counts logcounts ## rownames(1285): LYZ S100A9 ... ZNF770 TMEM106C ## rowData names(2): ID Symbol ## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1 ## colData names(3): Sample Barcode sizeFactor ## reducedDimNames(0): ## mainExpName: NULL ## altExpNames(0): PRO: Te aseguras de que los métodos posteriores sólo usen estos genes para sus cálculos CONTRA: Los genes no-HGVs son eliminados del nuevo objeto SingleCellExperiment, lo cual hace menos conveniente la interrogación del dataset completo sobre genes que no son HGVs 4.15.2 Especificando los HGVs # Example of specifying HVGs in a downstream function # Performing PCA only on the chosen HVGs. library(scater) sce.pbmc <- runPCA(sce.pbmc, subset_row = chosen) sce.pbmc ## class: SingleCellExperiment ## dim: 33694 3968 ## metadata(1): Samples ## assays(2): counts logcounts ## rownames(33694): RP11-34P13.3 FAM138A ... AC213203.1 FAM231B ## rowData names(2): ID Symbol ## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1 ## colData names(3): Sample Barcode sizeFactor ## reducedDimNames(1): PCA ## mainExpName: NULL ## altExpNames(0): Mantiene el objeto SingleCellExperiment original y especifica los genes para usar en funciones posteriores mediante un argumento adicional como subset_row PRO: Es útil si el análisis usa varios conjuntos de HGVs en diferentes pasos CONTRA: Podría ser inconveniente especificar repetidamente el mismo conjunto de HGVs en diferentes pasos 4.15.3 Witchcraft (Brujería) # Add the full SCE to the subsetted data SCE altExp(sce.pbmc.hvg, "original") <- sce.pbmc sce.pbmc.hvg ## class: SingleCellExperiment ## dim: 1285 3968 ## metadata(1): Samples ## assays(2): counts logcounts ## rownames(1285): LYZ S100A9 ... ZNF770 TMEM106C ## rowData names(2): ID Symbol ## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1 ## colData names(3): Sample Barcode sizeFactor ## reducedDimNames(0): ## mainExpName: NULL ## altExpNames(1): original altExp(sce.pbmc.hvg, "original") ## class: SingleCellExperiment ## dim: 33694 3968 ## metadata(1): Samples ## assays(2): counts logcounts ## rownames(33694): RP11-34P13.3 FAM138A ... AC213203.1 FAM231B ## rowData names(2): ID Symbol ## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1 ## colData names(3): Sample Barcode sizeFactor ## reducedDimNames(1): PCA ## mainExpName: NULL ## altExpNames(0): Utilizando el sistema de “experimento alternartivo” en la clase SingleCellExperiment PRO: Evita algunos problemas a largo plazo cuando el dataset original no está sincronizado con el conjunto filtrado por HVGs CONTRA: Ralentiza todos los análisis subsecuentes 4.16 Resumen y recomendaciones Es fácil atorarse en este paso debido a la variedad de opciones disponibles Elige un conjunto de HVGs y continúa con el análisis, recuerda regresar para probar la robustez de tus resultados usando una forma diferente para seleccionar los HVGs Si tienes spike-ins, trata de usarlos. No obstante, recuerda que los spike-ins no pueden capturar todas las fuentes de variación técnica 4.17 Recomendaciones para empezar Para CEL-Seq2: scran::modelGeneVarWithSpikes() Para 10X: scran::modelGeneVarByPoisson() Si quieres irte por el lado de conservar demasiados genes: scran::getTopHVGs(dec, var.threshold=0) Y realiza una comparación rápida con, por lo menos, el top-1000 HVGs Regresa al paso de selección de HVG para eliminar genes problemáticos tantas veces como sea necesario 4.18 Detalles de la sesión de R ## Información de la sesión de R Sys.time() ## [1] "2023-07-31 15:44:00 EDT" proc.time() ## user system elapsed ## 422.764 17.018 839.118 options(width = 120) sessioninfo::session_info() ## ─ Session info ─────────────────────────────────────────────────────────────────────────────────────────────────────── ## setting value ## version R version 4.3.1 (2023-06-16) ## os macOS Ventura 13.4.1 ## system aarch64, darwin20 ## ui RStudio ## language (EN) ## collate en_US.UTF-8 ## ctype en_US.UTF-8 ## tz America/New_York ## date 2023-07-31 ## rstudio 2023.06.0+421 Mountain Hydrangea (desktop) ## pandoc 3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown) ## ## ─ Packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────── ## package * version date (UTC) lib source ## AnnotationDbi * 1.62.2 2023-07-02 [1] Bioconductor ## AnnotationFilter * 1.24.0 2023-05-08 [1] Bioconductor ## AnnotationHub * 3.8.0 2023-05-08 [1] Bioconductor ## beachmat 2.16.0 2023-05-08 [1] Bioconductor ## beeswarm 0.4.0 2021-06-01 [1] CRAN (R 4.3.0) ## Biobase * 2.60.0 2023-05-08 [1] Bioconductor ## BiocFileCache * 2.8.0 2023-05-08 [1] Bioconductor ## BiocGenerics * 0.46.0 2023-06-04 [1] Bioconductor ## BiocIO 1.10.0 2023-05-08 [1] Bioconductor ## BiocManager 1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0) ## BiocNeighbors 1.18.0 2023-05-08 [1] Bioconductor ## BiocParallel 1.34.2 2023-05-28 [1] Bioconductor ## BiocSingular 1.16.0 2023-05-08 [1] Bioconductor ## BiocVersion 3.17.1 2022-12-20 [1] Bioconductor ## biomaRt 2.56.1 2023-06-11 [1] Bioconductor ## Biostrings 2.68.1 2023-05-21 [1] Bioconductor ## bit 4.0.5 2022-11-15 [1] CRAN (R 4.3.0) ## bit64 4.0.5 2020-08-30 [1] CRAN (R 4.3.0) ## bitops 1.0-7 2021-04-24 [1] CRAN (R 4.3.0) ## blob 1.2.4 2023-03-17 [1] CRAN (R 4.3.0) ## bluster 1.10.0 2023-05-08 [1] Bioconductor ## bookdown 0.34 2023-05-09 [1] CRAN (R 4.3.0) ## bslib 0.5.0 2023-06-09 [1] CRAN (R 4.3.0) ## cachem 1.0.8 2023-05-01 [1] CRAN (R 4.3.0) ## cli 3.6.1 2023-03-23 [1] CRAN (R 4.3.0) ## cluster 2.1.4 2022-08-22 [1] CRAN (R 4.3.1) ## codetools 0.2-19 2023-02-01 [1] CRAN (R 4.3.1) ## colorspace 2.1-0 2023-01-23 [1] CRAN (R 4.3.0) ## cowplot 1.1.1 2020-12-30 [1] CRAN (R 4.3.0) ## crayon 1.5.2 2022-09-29 [1] CRAN (R 4.3.0) ## curl 5.0.1 2023-06-07 [1] CRAN (R 4.3.0) ## DBI 1.1.3 2022-06-18 [1] CRAN (R 4.3.0) ## dbplyr * 2.3.3 2023-07-07 [1] CRAN (R 4.3.0) ## DelayedArray 0.26.6 2023-07-02 [1] Bioconductor ## DelayedMatrixStats 1.22.0 2023-05-08 [1] Bioconductor ## digest 0.6.33 2023-07-07 [1] CRAN (R 4.3.0) ## dplyr * 1.1.2 2023-04-20 [1] CRAN (R 4.3.0) ## dqrng 0.3.0 2021-05-01 [1] CRAN (R 4.3.0) ## DropletUtils * 1.20.0 2023-05-08 [1] Bioconductor ## edgeR 3.42.4 2023-06-04 [1] Bioconductor ## ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.3.0) ## EnsDb.Hsapiens.v86 * 2.99.0 2023-07-29 [1] Bioconductor ## ensembldb * 2.24.0 2023-05-08 [1] Bioconductor ## evaluate 0.21 2023-05-05 [1] CRAN (R 4.3.0) ## ExperimentHub 2.8.1 2023-07-16 [1] Bioconductor ## fansi 1.0.4 2023-01-22 [1] CRAN (R 4.3.0) ## farver 2.1.1 2022-07-06 [1] CRAN (R 4.3.0) ## fastmap 1.1.1 2023-02-24 [1] CRAN (R 4.3.0) ## filelock 1.0.2 2018-10-05 [1] CRAN (R 4.3.0) ## generics 0.1.3 2022-07-05 [1] CRAN (R 4.3.0) ## GenomeInfoDb * 1.36.1 2023-07-02 [1] Bioconductor ## GenomeInfoDbData 1.2.10 2023-06-08 [1] Bioconductor ## GenomicAlignments 1.36.0 2023-05-08 [1] Bioconductor ## GenomicFeatures * 1.52.1 2023-07-02 [1] Bioconductor ## GenomicRanges * 1.52.0 2023-05-08 [1] Bioconductor ## ggbeeswarm 0.7.2 2023-04-29 [1] CRAN (R 4.3.0) ## ggplot2 * 3.4.2 2023-04-03 [1] CRAN (R 4.3.0) ## ggrepel 0.9.3 2023-02-03 [1] CRAN (R 4.3.0) ## glue 1.6.2 2022-02-24 [1] CRAN (R 4.3.0) ## gridExtra 2.3 2017-09-09 [1] CRAN (R 4.3.0) ## gtable 0.3.3 2023-03-21 [1] CRAN (R 4.3.0) ## HDF5Array 1.28.1 2023-05-08 [1] Bioconductor ## here 1.0.1 2020-12-13 [1] CRAN (R 4.3.0) ## highr 0.10 2022-12-22 [1] CRAN (R 4.3.0) ## hms 1.1.3 2023-03-21 [1] CRAN (R 4.3.0) ## htmltools 0.5.5 2023-03-23 [1] CRAN (R 4.3.0) ## httpuv 1.6.11 2023-05-11 [1] CRAN (R 4.3.0) ## httr 1.4.6 2023-05-08 [1] CRAN (R 4.3.0) ## igraph 1.5.0.1 2023-07-23 [1] CRAN (R 4.3.0) ## interactiveDisplayBase 1.38.0 2023-05-08 [1] Bioconductor ## IRanges * 2.34.1 2023-07-02 [1] Bioconductor ## irlba 2.3.5.1 2022-10-03 [1] CRAN (R 4.3.0) ## jquerylib 0.1.4 2021-04-26 [1] CRAN (R 4.3.0) ## jsonlite 1.8.7 2023-06-29 [1] CRAN (R 4.3.0) ## KEGGREST 1.40.0 2023-05-08 [1] Bioconductor ## knitr 1.43 2023-05-25 [1] CRAN (R 4.3.0) ## labeling 0.4.2 2020-10-20 [1] CRAN (R 4.3.0) ## later 1.3.1 2023-05-02 [1] CRAN (R 4.3.0) ## lattice 0.21-8 2023-04-05 [1] CRAN (R 4.3.1) ## lazyeval 0.2.2 2019-03-15 [1] CRAN (R 4.3.0) ## lifecycle 1.0.3 2022-10-07 [1] CRAN (R 4.3.0) ## limma 3.56.2 2023-06-04 [1] Bioconductor ## locfit 1.5-9.8 2023-06-11 [1] CRAN (R 4.3.0) ## magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.3.0) ## Matrix * 1.6-0 2023-07-08 [1] CRAN (R 4.3.0) ## MatrixGenerics * 1.12.2 2023-07-02 [1] Bioconductor ## matrixStats * 1.0.0 2023-06-02 [1] CRAN (R 4.3.0) ## memoise 2.0.1 2021-11-26 [1] CRAN (R 4.3.0) ## metapod 1.8.0 2023-04-25 [1] Bioconductor ## mime 0.12 2021-09-28 [1] CRAN (R 4.3.0) ## munsell 0.5.0 2018-06-12 [1] CRAN (R 4.3.0) ## pillar 1.9.0 2023-03-22 [1] CRAN (R 4.3.0) ## pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.3.0) ## png 0.1-8 2022-11-29 [1] CRAN (R 4.3.0) ## prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.3.0) ## progress 1.2.2 2019-05-16 [1] CRAN (R 4.3.0) ## promises 1.2.0.1 2021-02-11 [1] CRAN (R 4.3.0) ## ProtGenerics 1.32.0 2023-05-08 [1] Bioconductor ## purrr 1.0.1 2023-01-10 [1] CRAN (R 4.3.0) ## R.methodsS3 1.8.2 2022-06-13 [1] CRAN (R 4.3.0) ## R.oo 1.25.0 2022-06-12 [1] CRAN (R 4.3.0) ## R.utils 2.12.2 2022-11-11 [1] CRAN (R 4.3.0) ## R6 2.5.1 2021-08-19 [1] CRAN (R 4.3.0) ## rappdirs 0.3.3 2021-01-31 [1] CRAN (R 4.3.0) ## Rcpp 1.0.11 2023-07-06 [1] CRAN (R 4.3.0) ## RCurl 1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0) ## restfulr 0.0.15 2022-06-16 [1] CRAN (R 4.3.0) ## rhdf5 2.44.0 2023-05-08 [1] Bioconductor ## rhdf5filters 1.12.1 2023-05-08 [1] Bioconductor ## Rhdf5lib 1.22.0 2023-05-08 [1] Bioconductor ## rjson 0.2.21 2022-01-09 [1] CRAN (R 4.3.0) ## rlang 1.1.1 2023-04-28 [1] CRAN (R 4.3.0) ## rmarkdown 2.23 2023-07-01 [1] CRAN (R 4.3.0) ## rprojroot 2.0.3 2022-04-02 [1] CRAN (R 4.3.0) ## Rsamtools 2.16.0 2023-06-04 [1] Bioconductor ## RSQLite 2.3.1 2023-04-03 [1] CRAN (R 4.3.0) ## rstudioapi 0.15.0 2023-07-07 [1] CRAN (R 4.3.0) ## rsvd 1.0.5 2021-04-16 [1] CRAN (R 4.3.0) ## rtracklayer 1.60.0 2023-05-08 [1] Bioconductor ## S4Arrays 1.0.4 2023-05-14 [1] Bioconductor ## S4Vectors * 0.38.1 2023-05-08 [1] Bioconductor ## sass 0.4.7 2023-07-15 [1] CRAN (R 4.3.0) ## ScaledMatrix 1.8.1 2023-05-08 [1] Bioconductor ## scales 1.2.1 2022-08-20 [1] CRAN (R 4.3.0) ## scater * 1.28.0 2023-04-25 [1] Bioconductor ## scran * 1.28.2 2023-07-23 [1] Bioconductor ## scRNAseq * 2.14.0 2023-04-27 [1] Bioconductor ## scuttle * 1.9.4 2023-01-23 [1] Bioconductor ## sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.3.0) ## shiny 1.7.4.1 2023-07-06 [1] CRAN (R 4.3.0) ## SingleCellExperiment * 1.22.0 2023-05-08 [1] Bioconductor ## sparseMatrixStats 1.12.2 2023-07-02 [1] Bioconductor ## statmod 1.5.0 2023-01-06 [1] CRAN (R 4.3.0) ## stringi 1.7.12 2023-01-11 [1] CRAN (R 4.3.0) ## stringr 1.5.0 2022-12-02 [1] CRAN (R 4.3.0) ## SummarizedExperiment * 1.30.2 2023-06-06 [1] Bioconductor ## tibble 3.2.1 2023-03-20 [1] CRAN (R 4.3.0) ## tidyselect 1.2.0 2022-10-10 [1] CRAN (R 4.3.0) ## utf8 1.2.3 2023-01-31 [1] CRAN (R 4.3.0) ## vctrs 0.6.3 2023-06-14 [1] CRAN (R 4.3.0) ## vipor 0.4.5 2017-03-22 [1] CRAN (R 4.3.0) ## viridis 0.6.4 2023-07-22 [1] CRAN (R 4.3.0) ## viridisLite 0.4.2 2023-05-02 [1] CRAN (R 4.3.0) ## withr 2.5.0 2022-03-03 [1] CRAN (R 4.3.0) ## xfun 0.39 2023-04-20 [1] CRAN (R 4.3.0) ## XML 3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0) ## xml2 1.3.5 2023-07-06 [1] CRAN (R 4.3.0) ## xtable 1.8-4 2019-04-21 [1] CRAN (R 4.3.0) ## XVector 0.40.0 2023-05-08 [1] Bioconductor ## yaml 2.3.7 2023-01-23 [1] CRAN (R 4.3.0) ## zlibbioc 1.46.0 2023-05-08 [1] Bioconductor ## ## [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library ## ## ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── Zheng, G. X. Y. et al. Massively parallel digital transcriptional profiling of single cells. Nat. Commun. 8, 14049 (2017).↩︎ Lun, A. T. L., Calero-Nieto, F. J., Haim-Vilmovsky, L., Göttgens, B. & Marioni, J. C. Assessing the reliability of spike-in normalization for analyses of single-cell RNA sequencing data. Genome Res. 27, 1795–1806 (2017)).↩︎ "],["reducción-de-dimensiones.html", "5 Reducción de dimensiones 5.1 Diapositivas de Peter Hickey 5.2 Motivación 5.3 Reducción de dimensionalidad 5.4 Dataset ilustrativo: Zeisel 5.5 Dataset ilustrativo: 10x PBMC4k no filtradas 5.6 Análisis de Componentes Principales 5.7 Reducción de dimensionalidad para visualización 5.8 Dónde estamos 5.9 Detalles de la sesión de R", " 5 Reducción de dimensiones Instructora: Laura Gómez-Romero 5.1 Diapositivas de Peter Hickey Contenido adaptado de: aquí 5.2 Motivación El siguiente paso en el análisis de scRNA-seq usualmente consiste en identificar grupos de células “similares”. Por ejemplo: un análisis de clustering busca identificar células con un perfil transcriptómico similar al calcular distancias entre ellas. Si tuviéramos un dataset con dos genes podríamos hacer una gráfica de dos dimensiones para identificar clusters de células. Pero… tenemos decenas de miles de genes : Reducción de dimensionalidad 5.3 Reducción de dimensionalidad Es posible porque la expresión de diferentes genes estaría correlacionada si estos genes son afectados por el mismo proceso biológico. Por lo tanto, no necesitamos almacenar información independiente para genes individuales. Podemos comprimir múltiples “features” (genes) en una única dimensión. Ventajas: Reduce trabajo computacional en análisis posteriores. Reduce el ruido al “promediar” mútiples genes obteniendo una representación más precisa de los patrones en los datos. Permite una graficación efectiva en dos dimensiones. 5.4 Dataset ilustrativo: Zeisel library(scRNAseq) sce.zeisel <- ZeiselBrainData(ensembl = TRUE) # Estos datos contienen tipos celulares previamente anotados table(sce.zeisel$level1class) ## ## astrocytes_ependymal endothelial-mural interneurons microglia oligodendrocytes ## 224 235 290 98 820 ## pyramidal CA1 pyramidal SS ## 939 399 Estudio de tipos celulares en el cerebro de ratón (oligodendrocitos, microglia, neuronas, etc) procesados con el sistema STRT-seq (similar a CEL-Seq) Descripción aquí Zeisel, A. et al. Brain structure. Cell types in the mouse cortex and hippocampus revealed by single-cell RNA-seq. Science 347, 1138-1142 (2015) # Quality control # Descartar celulas con alto contenido mitocondrial o con alto porcentaje de spike-ins library(scater) is.mito <- which(rowData(sce.zeisel)$featureType == "mito") stats <- perCellQCMetrics(sce.zeisel, subsets = list(Mt = is.mito) ) qc <- quickPerCellQC(stats, percent_subsets = c("altexps_ERCC_percent", "subsets_Mt_percent") ) sce.zeisel <- sce.zeisel[, !qc$discard] # normalization # encontramos unos clusters rápidos para las células y usamos esa información para calcular los factores de tamaño library(scran) set.seed(1000) clusters <- quickCluster(sce.zeisel) sce.zeisel <- computeSumFactors(sce.zeisel, cluster = clusters ) sce.zeisel <- logNormCounts(sce.zeisel) # variance-modelling dec.zeisel <- modelGeneVarWithSpikes( sce.zeisel, "ERCC" ) top.zeisel <- getTopHVGs(dec.zeisel, n = 2000) ¿Cómo se está modelando la relación media varianza? ¿Cómo se están obteniendo los HGVs? 5.5 Dataset ilustrativo: 10x PBMC4k no filtradas library(BiocFileCache) bfc <- BiocFileCache() raw.path <- bfcrpath(bfc, file.path( "http://cf.10xgenomics.com/samples", "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz" )) untar(raw.path, exdir = file.path(tempdir(), "pbmc4k")) library(DropletUtils) library(Matrix) fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38") sce.pbmc <- read10xCounts(fname, col.names = TRUE) Dataset “Células mononucleares humanas de sangre periférica” de 10X Genomics Descripción aquí Zheng, G. X. Y. et al. Massively parallel digital transcriptional profiling of single cells. Nat. Commun. 8, 14049 (2017) # gene-annotation library(scater) rownames(sce.pbmc) <- uniquifyFeatureNames( rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol ) library(EnsDb.Hsapiens.v86) location <- mapIds(EnsDb.Hsapiens.v86, keys = rowData(sce.pbmc)$ID, column = "SEQNAME", keytype = "GENEID" ) # cell-detection set.seed(100) e.out <- emptyDrops(counts(sce.pbmc)) sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)] # quality-control stats <- perCellQCMetrics(sce.pbmc, subsets = list(Mito = which(location == "MT")) ) high.mito <- isOutlier(stats$subsets_Mito_percent, type = "higher" ) sce.pbmc <- sce.pbmc[, !high.mito] # normalization library(scran) set.seed(1000) clusters <- quickCluster(sce.pbmc) sce.pbmc <- computeSumFactors(sce.pbmc, cluster = clusters) sce.pbmc <- logNormCounts(sce.pbmc) # variance modelling set.seed(1001) dec.pbmc <- modelGeneVarByPoisson(sce.pbmc) top.pbmc <- getTopHVGs(dec.pbmc, prop = 0.1) ¿Cómo se está modelando la relación media varianza? ¿Cómo se están obteniendo los HGVs? 5.6 Análisis de Componentes Principales PCA es el arma principal de la reducción de dimensionalidad. PCA descubre las combinaciones (lineales) de “features” que capturan la cantidad más grande de variación En un PCA, la primer combinación lineal (componente principal) se elige tal que permite capturar la mayor varianza a través de las células. El siguiente PC se elige tal que es “ortogonal” al primero y captura la cantidad más grande de la variación restante, y así sucesivamente… 5.6.1 PCA aplicado a datos de scRNA-seq Podemos realizar reducción de dimensionalidad al aplicar PCA en la matriz de cuentas transformadas (log-counts matrix) y restringiendo los análisis posteriores a los primeros PCs (top PCs). Esto puede reducir nuestro dataset de 20,000 dimensiones a, digamos, 10, sin perder demasiada información. La técnica de PCA tiene muchas propiedades teóricas bien estudiadas. Hay varias formas rápidas de realizar PCA en datasets grandes. 5.6.2 Suposiciones de PCA aplicadas a los datos de scRNA-seq Los procesos biológicos afectan múltiples genes en una manera coordinada. Los primeros PCs probablemente representan la estructura biológica dado que más variación puede ser capturada considerando el comportamiento correlacionado de muchos genes. Se espera que el ruido técnico azaroso afecte cada gen independientemente. Consideración: Los primeros PCs capturarón “batch effects” (efectos de lote) que afectan muchos genes en una manera coordinada ## Aplicar PCA en la matriz de cuentas transformadas (log-counts matrix) library(scran) library(scater) set.seed(100) sce.zeisel <- runPCA(sce.zeisel, subset_row = top.zeisel ) ¿Estamos corriendo el análisis sobre todos los genes de nuestro dataset? Por default, runPCA() usa un método rápido aproximado que realiza simulaciones, por lo tanto, es necesario ‘configurar la semilla’ para obtener resultados reproducibles. 5.6.3 Eligiendo el número de PCs Esta elección en análoga a la elección del número de highly variable genes (HGV). Elegir más PCs evitará descartar señal biológica a expensas de retener más ruido Es común seleccionar un número de PCs “razonable” pero arbitrario (10-50), continuar con el análisis y regresar para checar la robustez de los resultados en cierto rango de valores. Ahora exploraremos algunas estrategias guiadas por los datos (data-driven) para hacer esta selección. 5.6.3.1 Usando el punto del codo library(PCAtools) percent.var <- attr(reducedDim(sce.zeisel), "percentVar") chosen.elbow <- PCAtools::findElbowPoint(percent.var) plot(percent.var, xlab = "PC", ylab = "Variance explained (%)") abline(v = chosen.elbow, col = "red") Una heurística simple es elegir el número de PCs basado en el porcentaje de varianza explicado por PCs sucesivos. 5.6.3.2 Basados en la estructura de la población Esta es una aproximación heurística más sofisticada que usa el número de clusters como un proxy del número de subpoblaciones. choices <- getClusteredPCs(reducedDim(sce.zeisel)) chosen.clusters <- metadata(choices)$chosen plot(choices$n.pcs, choices$n.clusters, xlab = "Number of PCs", ylab = "Number of clusters" ) abline(a = 1, b = 1, col = "red") abline(v = chosen.clusters, col = "grey80", lty = 2) Supongamos que esperamos d subpoblaciones de células, en ese caso, necesitamos d-1 dimensiones para garantizar la separación de todas las subpoblaciones. Pero… en un escenario real realmente no sabes cuántas poblaciones hay… Intenta con un rango para d y únicamente considera valores que produzcan a lo más d+1 clusters Cuando se seleccionan más clusters con menos dimensiones se produce ‘overclustering’. Elige una d que maximice el número de clusters sin caer en ‘overclustering’. Ventaja: Es una solución pragmática que soluciona el equilibrio sesgo-varianza en los análisis posteriores (especialmente en el análisis de clustering). Desventaja: Hace suposiciones fuertes sobre la naturaleza de las diferencias biológicas entre los clusters, y de hecho supone la existencia de clusters, los cuales podrían no existir en algunos procesos biológicos como la diferenciación. 5.6.4 Juntando todo set.seed(100) # Calcula y almacena todos los posibles PCs sce.zeisel <- runPCA(sce.zeisel, subset_row = top.zeisel) # Selecciona y almacena el conjunto reducido de PCs: # ... por el método del codo reducedDim(sce.zeisel, "PCA_elbow") <- reducedDim( sce.zeisel, "PCA" )[, 1:chosen.elbow] # ... basado en la estructura poblacional reducedDim(sce.zeisel, "PCA_clusters") <- reducedDim( sce.zeisel, "PCA" )[, 1:chosen.clusters] 5.6.5 EJERCICIO Realiza un PCA para los datos sce.pbmc. Elige el número de PCs a conservar utilizando el método del codo. Elige el número de PCs a conservar utilizando la estructura de la población. Agrega esta información al objeto sce.pbmc. 5.6.6 Usando el ruido técnico Otra técnica de reducción de dimensiones consiste en conservar todos los PCs hasta que el % de variación explicado alcance algun límite (por ejemplo, basado en la estimación de la variación técnica). denoisePCA() automáticamente selecciona el número de PCs. Por default, denoisePCA() realiza algunas simulaciones, por lo tanto necesitamos ‘configurar la semilla’ para obtener resultados reproducibles. library(scran) set.seed(111001001) denoised.pbmc <- denoisePCA(sce.pbmc, technical = dec.pbmc, subset.row = top.pbmc ) dim(reducedDim(denoised.pbmc, "PCA")) ## [1] 3968 8 La dimensionalidad del output es el límite inferior para el número de PCs requeridos para explicar toda la variación biológica. Lo que significa que cualquier número menor de PCs definitivamente descartará algún aspecto de la señal biológica. Esto no grantiza que los PCs retenidos capturen toda la señal biológica Esta técnica usualmente retiene más PCs que el método del punto del codo scran::denoisePCA() internamente limita el numero de PCs, por default 5-50, para evitar la selección de excesivamente pocos PCs (cuando el ruido técnico es alto relativo al ruido biológico) o excesivamente muchos PCs (cuando el ruido técnico es demasiado bajo). 5.6.6.1 ¿Qué pasa si calculamos la relación media-varianza con la función modelGeneVar para el dataset sce.pbmc (anteriormente usamos la función modelGeneVarByPoisson para este propósito)? dec.pbmc2 <- modelGeneVar(sce.pbmc) denoised.pbmc2 <- denoisePCA(sce.pbmc, technical = dec.pbmc2, subset.row = top.pbmc ) dim(reducedDim(denoised.pbmc2)) ## [1] 3968 5 scran::denoisePCA() tiende a funcionar mejor cuando la relación media-varianza refleja el ruido técnico verdadero, i.e estimado por scran::modelGeneVarByPoisson() o scran::modelGeneVarWithSpikes() en vez de scran::modelGeneVar(). El dataset PBMC está cerca de este límite inferior: el ruido técnico es alto relativo al ruido biológico. 5.6.6.2 ¿Qué pasa si calculamos el número de PCs usando el ruido técnico para el dataset sce.zeisel? set.seed(001001001) denoised.zeisel <- denoisePCA(sce.zeisel, technical = dec.zeisel, subset.row = top.zeisel ) dim(reducedDim(denoised.zeisel)) ## [1] 2815 50 Los datos de cerebro de Zeisel están cerca de este límite superior: el ruido técnico es demasiado bajo dim(reducedDim(denoised.zeisel, "PCA")) ## [1] 2815 50 dim(reducedDim(denoised.zeisel, "PCA_elbow")) ## [1] 2815 7 dim(reducedDim(denoised.zeisel, "PCA_clusters")) ## [1] 2815 15 5.7 Reducción de dimensionalidad para visualización 5.7.1 Motivación Los algoritmos de clustering, así como la mayoría de los algoritmos, operan fácilmente sobre 10-50 (a lo más) PCs, pero ese número es aún demasiado para la visualización. Por lo tanto, necesitamos estrategias adicionales para la reducción de dimensionalidad si queremos visualizar los datos. 5.7.2 Visualizando con PCA plotReducedDim(sce.zeisel, dimred = "PCA") plotReducedDim(sce.zeisel, dimred = "PCA", colour_by = "level1class" ) PCA es una técnica lineal, por lo tanto, no es eficiente para comprimir diferencias en más de 2 dimensiones en los primeros 2 PCs. 5.7.3 Retos y resumen de la visualización con PCA plotReducedDim(sce.zeisel, dimred = "PCA", ncomponents = 4, colour_by = "level1class" ) Ventajas: PCA es predecible y no introducirá estructura artificial en los datos. Es determínistico y robusto a cambios pequeños en los valores de entrada. Desventajas: Usualmente la visualización no es suficiente para visualizar la naturaleza compleja de los datos de scRNA-seq. 5.7.4 Visualización con t-SNE set.seed(00101001101) sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA") plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class") t-stochastic neighbour embedding (t-SNE) es la visualización por excelencia de datos de scRNA-seq. Intenta encontrar una representación (no-lineal) de los datos usando pocas dimensiones que preserve las distancias entre cada punto y sus vecinos en el espacio multi-dimensional 5.7.4.1 Retos de la visualización con t-SNE set.seed(100) sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 30 ) plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class" ) 5.7.4.2 Preguntas ¿Qué pasa si vuelves a correr runTSNE() sin especificar la semilla? ¿Qué pasa si especificas la semilla pero cambias el valor del parámetro perplexity? 5.7.4.3 Continuando Baja perplejidad favorece la resolución de la estructura fina, posiblemente al grado de que la visualización parece ruido random. set.seed(100) sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 5) p1 <- plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class") sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 20) p2 <- plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class") sce.zeisel <- runTSNE(sce.zeisel, dimred = "PCA", perplexity = 80) p3 <- plotReducedDim(sce.zeisel, dimred = "TSNE", colour_by = "level1class") library("patchwork") p1 + p2 + p3 El siguiente foro discute la selección de parámetros para t-SNE con cierta profundidad. No sobreinterpretes los resultados de t-SNE como un ‘mapa’ de las identidades de las células individuales. Algunos componentes aleatorios y la selección de parámetros cambiarán la visualización. La interpretación puede ser engañada por el tamaño y posición de los clusters. t-SNE infla clusters densos y comprime clusters escasos. t-SNE no está obligado a preservar las localizaciones relativas de clusters no-vecinos (no puedes interpretar distancias no locales). Aún así: t-SNE es una herramienta probada para visualización general de datos de scRNA-seq y sigue siendo muy popular 5.7.5 Visualización con UMAP Uniform manifold approximation and project (UMAP) es una alternativa a t-SNE. Así como t-SNE, UMAP intenta encontrar una representación (no lineal) de pocas dimensiones de los datos que preserve las distancias entre cada punto y sus vecinos en el espacio multi-dimensional. t-SNE y UMAP están basados en diferentes teorías matemáticas. set.seed(1100101001) sce.zeisel <- runUMAP(sce.zeisel, dimred = "PCA") plotReducedDim(sce.zeisel, dimred = "UMAP", colour_by = "level1class" ) Comparado con t-SNE: UMAP tiende a encontrar clusters visualmente más compactos. Intenta preservar más de la estructura global que t-SNE. Tiende a ser más rápido que t-SNE, lo cual puede ser importante para datasets grandes. La diferencia desaparece cuando se aplican sobre los primeros PCs. 5.7.5.1 Preguntas ¿Qué pasa si vuelves a correr runUMAP() sin especificar la semilla? ¿Qué pasa si especificas la semilla pero cambias el valor del parámetro n_neighbors? 5.7.5.2 Continuando Igual que para t-SNE, es necesario configurar una semilla y diferentes valores para los parámetros cambiaron la visualización. Si el valor para los parámetros n_neighbors o min_dist es demasiado bajo entonces el ruido aleatorio se interpretará como estructura de alta-resolución, si son demasiado altos entonces se perderá la estructura fina. TIP: Trata un rango de valores para cada parámetro para asegurarte de que no comprometen ninguna de las conclusiones derivadas de la gráfica UMAP o t-SNE 5.7.6 Interpretando las gráficas Recuerda: Reducción de dimensionalidad para la visualización de los datos necesariamente involucra descartar información y distorsionar las distancias entre las células. No sobre interpretes las gráficas bonitas. 5.7.7 Resumen y recomendaciones Las gráficas de t-SNE y UMAP son herramientas diagnóstico importantes, por ejemplo: para checar si dos clusters son realmente subclusters vecinos o si un cluster puede ser dividido en más de un cluster. Es debatible cuál visualización, t-SNE o UMAP, es más útil o estéticamente agradable. Está bien elegir aquella que funcione mejor para tu análisis (tomando en cuenta que tratarás la gráfica únicamente como una herramienta de visualización/diagnóstico y que no llegarás a ninguna conclusión fuerte basado únicamente en la gráfica). 5.8 Dónde estamos 5.9 Detalles de la sesión de R ## Información de la sesión de R Sys.time() ## [1] "2023-07-31 15:46:07 EDT" proc.time() ## user system elapsed ## 544.764 20.333 965.837 options(width = 120) sessioninfo::session_info() ## ─ Session info ─────────────────────────────────────────────────────────────────────────────────────────────────────── ## setting value ## version R version 4.3.1 (2023-06-16) ## os macOS Ventura 13.4.1 ## system aarch64, darwin20 ## ui RStudio ## language (EN) ## collate en_US.UTF-8 ## ctype en_US.UTF-8 ## tz America/New_York ## date 2023-07-31 ## rstudio 2023.06.0+421 Mountain Hydrangea (desktop) ## pandoc 3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown) ## ## ─ Packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────── ## package * version date (UTC) lib source ## AnnotationDbi * 1.62.2 2023-07-02 [1] Bioconductor ## AnnotationFilter * 1.24.0 2023-05-08 [1] Bioconductor ## AnnotationHub * 3.8.0 2023-05-08 [1] Bioconductor ## beachmat 2.16.0 2023-05-08 [1] Bioconductor ## beeswarm 0.4.0 2021-06-01 [1] CRAN (R 4.3.0) ## Biobase * 2.60.0 2023-05-08 [1] Bioconductor ## BiocFileCache * 2.8.0 2023-05-08 [1] Bioconductor ## BiocGenerics * 0.46.0 2023-06-04 [1] Bioconductor ## BiocIO 1.10.0 2023-05-08 [1] Bioconductor ## BiocManager 1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0) ## BiocNeighbors 1.18.0 2023-05-08 [1] Bioconductor ## BiocParallel 1.34.2 2023-05-28 [1] Bioconductor ## BiocSingular 1.16.0 2023-05-08 [1] Bioconductor ## BiocVersion 3.17.1 2022-12-20 [1] Bioconductor ## biomaRt 2.56.1 2023-06-11 [1] Bioconductor ## Biostrings 2.68.1 2023-05-21 [1] Bioconductor ## bit 4.0.5 2022-11-15 [1] CRAN (R 4.3.0) ## bit64 4.0.5 2020-08-30 [1] CRAN (R 4.3.0) ## bitops 1.0-7 2021-04-24 [1] CRAN (R 4.3.0) ## blob 1.2.4 2023-03-17 [1] CRAN (R 4.3.0) ## bluster 1.10.0 2023-05-08 [1] Bioconductor ## bookdown 0.34 2023-05-09 [1] CRAN (R 4.3.0) ## bslib 0.5.0 2023-06-09 [1] CRAN (R 4.3.0) ## cachem 1.0.8 2023-05-01 [1] CRAN (R 4.3.0) ## cli 3.6.1 2023-03-23 [1] CRAN (R 4.3.0) ## cluster 2.1.4 2022-08-22 [1] CRAN (R 4.3.1) ## codetools 0.2-19 2023-02-01 [1] CRAN (R 4.3.1) ## colorspace 2.1-0 2023-01-23 [1] CRAN (R 4.3.0) ## cowplot 1.1.1 2020-12-30 [1] CRAN (R 4.3.0) ## crayon 1.5.2 2022-09-29 [1] CRAN (R 4.3.0) ## curl 5.0.1 2023-06-07 [1] CRAN (R 4.3.0) ## DBI 1.1.3 2022-06-18 [1] CRAN (R 4.3.0) ## dbplyr * 2.3.3 2023-07-07 [1] CRAN (R 4.3.0) ## DelayedArray 0.26.6 2023-07-02 [1] Bioconductor ## DelayedMatrixStats 1.22.0 2023-05-08 [1] Bioconductor ## digest 0.6.33 2023-07-07 [1] CRAN (R 4.3.0) ## dplyr * 1.1.2 2023-04-20 [1] CRAN (R 4.3.0) ## dqrng 0.3.0 2021-05-01 [1] CRAN (R 4.3.0) ## DropletUtils * 1.20.0 2023-05-08 [1] Bioconductor ## edgeR 3.42.4 2023-06-04 [1] Bioconductor ## ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.3.0) ## EnsDb.Hsapiens.v86 * 2.99.0 2023-07-29 [1] Bioconductor ## ensembldb * 2.24.0 2023-05-08 [1] Bioconductor ## evaluate 0.21 2023-05-05 [1] CRAN (R 4.3.0) ## ExperimentHub 2.8.1 2023-07-16 [1] Bioconductor ## fansi 1.0.4 2023-01-22 [1] CRAN (R 4.3.0) ## farver 2.1.1 2022-07-06 [1] CRAN (R 4.3.0) ## fastmap 1.1.1 2023-02-24 [1] CRAN (R 4.3.0) ## filelock 1.0.2 2018-10-05 [1] CRAN (R 4.3.0) ## FNN 1.1.3.2 2023-03-20 [1] CRAN (R 4.3.0) ## generics 0.1.3 2022-07-05 [1] CRAN (R 4.3.0) ## GenomeInfoDb * 1.36.1 2023-07-02 [1] Bioconductor ## GenomeInfoDbData 1.2.10 2023-06-08 [1] Bioconductor ## GenomicAlignments 1.36.0 2023-05-08 [1] Bioconductor ## GenomicFeatures * 1.52.1 2023-07-02 [1] Bioconductor ## GenomicRanges * 1.52.0 2023-05-08 [1] Bioconductor ## ggbeeswarm 0.7.2 2023-04-29 [1] CRAN (R 4.3.0) ## ggplot2 * 3.4.2 2023-04-03 [1] CRAN (R 4.3.0) ## ggrepel * 0.9.3 2023-02-03 [1] CRAN (R 4.3.0) ## glue 1.6.2 2022-02-24 [1] CRAN (R 4.3.0) ## gridExtra 2.3 2017-09-09 [1] CRAN (R 4.3.0) ## gtable 0.3.3 2023-03-21 [1] CRAN (R 4.3.0) ## HDF5Array 1.28.1 2023-05-08 [1] Bioconductor ## here 1.0.1 2020-12-13 [1] CRAN (R 4.3.0) ## highr 0.10 2022-12-22 [1] CRAN (R 4.3.0) ## hms 1.1.3 2023-03-21 [1] CRAN (R 4.3.0) ## htmltools 0.5.5 2023-03-23 [1] CRAN (R 4.3.0) ## httpuv 1.6.11 2023-05-11 [1] CRAN (R 4.3.0) ## httr 1.4.6 2023-05-08 [1] CRAN (R 4.3.0) ## igraph 1.5.0.1 2023-07-23 [1] CRAN (R 4.3.0) ## interactiveDisplayBase 1.38.0 2023-05-08 [1] Bioconductor ## IRanges * 2.34.1 2023-07-02 [1] Bioconductor ## irlba 2.3.5.1 2022-10-03 [1] CRAN (R 4.3.0) ## jquerylib 0.1.4 2021-04-26 [1] CRAN (R 4.3.0) ## jsonlite 1.8.7 2023-06-29 [1] CRAN (R 4.3.0) ## KEGGREST 1.40.0 2023-05-08 [1] Bioconductor ## knitr 1.43 2023-05-25 [1] CRAN (R 4.3.0) ## labeling 0.4.2 2020-10-20 [1] CRAN (R 4.3.0) ## later 1.3.1 2023-05-02 [1] CRAN (R 4.3.0) ## lattice 0.21-8 2023-04-05 [1] CRAN (R 4.3.1) ## lazyeval 0.2.2 2019-03-15 [1] CRAN (R 4.3.0) ## lifecycle 1.0.3 2022-10-07 [1] CRAN (R 4.3.0) ## limma 3.56.2 2023-06-04 [1] Bioconductor ## locfit 1.5-9.8 2023-06-11 [1] CRAN (R 4.3.0) ## magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.3.0) ## Matrix * 1.6-0 2023-07-08 [1] CRAN (R 4.3.0) ## MatrixGenerics * 1.12.2 2023-07-02 [1] Bioconductor ## matrixStats * 1.0.0 2023-06-02 [1] CRAN (R 4.3.0) ## memoise 2.0.1 2021-11-26 [1] CRAN (R 4.3.0) ## metapod 1.8.0 2023-04-25 [1] Bioconductor ## mime 0.12 2021-09-28 [1] CRAN (R 4.3.0) ## munsell 0.5.0 2018-06-12 [1] CRAN (R 4.3.0) ## patchwork * 1.1.2 2022-08-19 [1] CRAN (R 4.3.0) ## PCAtools * 2.12.0 2023-05-08 [1] Bioconductor ## pillar 1.9.0 2023-03-22 [1] CRAN (R 4.3.0) ## pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.3.0) ## plyr 1.8.8 2022-11-11 [1] CRAN (R 4.3.0) ## png 0.1-8 2022-11-29 [1] CRAN (R 4.3.0) ## prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.3.0) ## progress 1.2.2 2019-05-16 [1] CRAN (R 4.3.0) ## promises 1.2.0.1 2021-02-11 [1] CRAN (R 4.3.0) ## ProtGenerics 1.32.0 2023-05-08 [1] Bioconductor ## purrr 1.0.1 2023-01-10 [1] CRAN (R 4.3.0) ## R.methodsS3 1.8.2 2022-06-13 [1] CRAN (R 4.3.0) ## R.oo 1.25.0 2022-06-12 [1] CRAN (R 4.3.0) ## R.utils 2.12.2 2022-11-11 [1] CRAN (R 4.3.0) ## R6 2.5.1 2021-08-19 [1] CRAN (R 4.3.0) ## rappdirs 0.3.3 2021-01-31 [1] CRAN (R 4.3.0) ## Rcpp 1.0.11 2023-07-06 [1] CRAN (R 4.3.0) ## RCurl 1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0) ## reshape2 1.4.4 2020-04-09 [1] CRAN (R 4.3.0) ## restfulr 0.0.15 2022-06-16 [1] CRAN (R 4.3.0) ## rhdf5 2.44.0 2023-05-08 [1] Bioconductor ## rhdf5filters 1.12.1 2023-05-08 [1] Bioconductor ## Rhdf5lib 1.22.0 2023-05-08 [1] Bioconductor ## rjson 0.2.21 2022-01-09 [1] CRAN (R 4.3.0) ## rlang 1.1.1 2023-04-28 [1] CRAN (R 4.3.0) ## rmarkdown 2.23 2023-07-01 [1] CRAN (R 4.3.0) ## rprojroot 2.0.3 2022-04-02 [1] CRAN (R 4.3.0) ## Rsamtools 2.16.0 2023-06-04 [1] Bioconductor ## RSQLite 2.3.1 2023-04-03 [1] CRAN (R 4.3.0) ## rstudioapi 0.15.0 2023-07-07 [1] CRAN (R 4.3.0) ## rsvd 1.0.5 2021-04-16 [1] CRAN (R 4.3.0) ## rtracklayer 1.60.0 2023-05-08 [1] Bioconductor ## Rtsne 0.16 2022-04-17 [1] CRAN (R 4.3.0) ## S4Arrays 1.0.4 2023-05-14 [1] Bioconductor ## S4Vectors * 0.38.1 2023-05-08 [1] Bioconductor ## sass 0.4.7 2023-07-15 [1] CRAN (R 4.3.0) ## ScaledMatrix 1.8.1 2023-05-08 [1] Bioconductor ## scales 1.2.1 2022-08-20 [1] CRAN (R 4.3.0) ## scater * 1.28.0 2023-04-25 [1] Bioconductor ## scran * 1.28.2 2023-07-23 [1] Bioconductor ## scRNAseq * 2.14.0 2023-04-27 [1] Bioconductor ## scuttle * 1.9.4 2023-01-23 [1] Bioconductor ## sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.3.0) ## shiny 1.7.4.1 2023-07-06 [1] CRAN (R 4.3.0) ## SingleCellExperiment * 1.22.0 2023-05-08 [1] Bioconductor ## sparseMatrixStats 1.12.2 2023-07-02 [1] Bioconductor ## statmod 1.5.0 2023-01-06 [1] CRAN (R 4.3.0) ## stringi 1.7.12 2023-01-11 [1] CRAN (R 4.3.0) ## stringr 1.5.0 2022-12-02 [1] CRAN (R 4.3.0) ## SummarizedExperiment * 1.30.2 2023-06-06 [1] Bioconductor ## tibble 3.2.1 2023-03-20 [1] CRAN (R 4.3.0) ## tidyselect 1.2.0 2022-10-10 [1] CRAN (R 4.3.0) ## utf8 1.2.3 2023-01-31 [1] CRAN (R 4.3.0) ## uwot 0.1.16 2023-06-29 [1] CRAN (R 4.3.0) ## vctrs 0.6.3 2023-06-14 [1] CRAN (R 4.3.0) ## vipor 0.4.5 2017-03-22 [1] CRAN (R 4.3.0) ## viridis 0.6.4 2023-07-22 [1] CRAN (R 4.3.0) ## viridisLite 0.4.2 2023-05-02 [1] CRAN (R 4.3.0) ## withr 2.5.0 2022-03-03 [1] CRAN (R 4.3.0) ## xfun 0.39 2023-04-20 [1] CRAN (R 4.3.0) ## XML 3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0) ## xml2 1.3.5 2023-07-06 [1] CRAN (R 4.3.0) ## xtable 1.8-4 2019-04-21 [1] CRAN (R 4.3.0) ## XVector 0.40.0 2023-05-08 [1] Bioconductor ## yaml 2.3.7 2023-01-23 [1] CRAN (R 4.3.0) ## zlibbioc 1.46.0 2023-05-08 [1] Bioconductor ## ## [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library ## ## ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── "],["clustering.html", "6 Clustering 6.1 Dataset ilustrativo: 10X PBMC4k no filtrado 6.2 Motivación 6.3 ¿Por qué no realizamos el clustering sobre las coordenadas de t-SNE/UMAP? 6.4 ¿Cuál es el verdadero clustering? 6.5 Clustering basado en grafos 6.6 Evaluando la separación de los clusters 6.7 Otros métodos de clustering 6.8 Evaluando la estabilidad de los clusters 6.9 Subclustering 6.10 Resumen y recomendaciones 6.11 Dónde estamos 6.12 Detalles de la sesión de R", " 6 Clustering Instructora: Laura Gómez-Romero Este contenido está basado en las diapositivas de Peter Hickey. Ve las diapositivas aquí. Y en el curso de OSCA, lee el material aquí 6.1 Dataset ilustrativo: 10X PBMC4k no filtrado library(BiocFileCache) bfc <- BiocFileCache() raw.path <- bfcrpath(bfc, file.path( "http://cf.10xgenomics.com/samples", "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz" )) untar(raw.path, exdir = file.path(tempdir(), "pbmc4k")) library(DropletUtils) library(Matrix) fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38") sce.pbmc <- read10xCounts(fname, col.names = TRUE) Dataset de células mononucleares de sangre periférica humana (PBMC) de 10X Genomics Descripción aquí Zheng, G. X. Y. et al. Massively parallel digital transcriptional profiling of single cells. Nat. Commun. 8, 14049 (2017) # gene-annotation library(scater) rownames(sce.pbmc) <- uniquifyFeatureNames( rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol ) library(EnsDb.Hsapiens.v86) location <- mapIds(EnsDb.Hsapiens.v86, keys = rowData(sce.pbmc)$ID, column = "SEQNAME", keytype = "GENEID" ) # cell-detection set.seed(100) e.out <- emptyDrops(counts(sce.pbmc)) sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)] # quality-control stats <- perCellQCMetrics(sce.pbmc, subsets = list(Mito = which(location == "MT")) ) high.mito <- isOutlier(stats$subsets_Mito_percent, type = "higher" ) sce.pbmc <- sce.pbmc[, !high.mito] # normalization library(scran) set.seed(1000) clusters <- quickCluster(sce.pbmc) sce.pbmc <- computeSumFactors(sce.pbmc, cluster = clusters) sce.pbmc <- logNormCounts(sce.pbmc) # variance modelling set.seed(1001) dec.pbmc <- modelGeneVarByPoisson(sce.pbmc) top.pbmc <- getTopHVGs(dec.pbmc, prop = 0.1) # dimensionality-reduction set.seed(10000) sce.pbmc <- denoisePCA(sce.pbmc, subset.row = top.pbmc, technical = dec.pbmc ) set.seed(100000) sce.pbmc <- runTSNE(sce.pbmc, dimred = "PCA") set.seed(1000000) sce.pbmc <- runUMAP(sce.pbmc, dimred = "PCA") ¿Para qué sirve el método que estamos usando para reducir la dimensionalidad de los datos? ¿Los HGVs están almacenados en nuestro objeto sce.pbmc? 6.2 Motivación Clustering es un procedimiento no supervisado par definir grupos de células con perfiles de expresión similares Su propósito principal es resumir los datos en un formato digerido susceptible a interpretación humana Nos permite asignar etiquetas (por ejemplo, tipos celulares) a las células 6.3 ¿Por qué no realizamos el clustering sobre las coordenadas de t-SNE/UMAP? Las técnicas de t-SNE/UMAP han comprimido datos altamente multi-dimensionales en dos dimensiones Esta compresión inevitablemente ha provocado la perdida de información Por lo tanto, agrupamos sobre los PCs y después visualizamos las identidades de los clusters en la gráfica t-SNE/UMAP 6.4 ¿Cuál es el verdadero clustering? Un cluster no implica un tipo celular Nosotros podemos definir tantos clusters como queramos y podemos utilizar el algoritmo que más nos acomode El clustering, como un microscopio, simplemente es una herramienta para explorar los datos Preguntar por el mejor clustering es similar a preguntar cuál es la mejor magnificación en un microscopio sin contenido 6.5 Clustering basado en grafos 6.5.1 Antecedentes El clustering basado en grafos fue popularizado (más no inventado) por su uso en Seurat Objetivo: Construir un grafo en el que cada nodo es una célula que está conectada a sus vecinos más cercanos (otras células con perfiles de expresión similares) en el espacio multidimensional 6.5.2 Gráfica de los k vecinos más cercanos (k-nearest neighbour -KNN- graph) Ilustremos como funciona para 20 células 6.5.3 Gráfica de los vecinos más próximos compartidos (SNN) De una gráfica KNN se puede construir una gráfica SNN. En este tipo de grafo, dos células estarán conectadas por una arista si comparten alguno de sus vecinos más próximos. 6.5.4 Gráfica SNN con pesos en las aristas Podemos asignar pesos a cada arista del grafo, basándonos en la similaridad de las células involucradas, dándole pesos más altos a células que están más cercanamente relacionadas Para ver los distintos esquemas de pesado puedes consultar la documentación de la función makeSNNGraph del paquete bluster. Algunos ejemplos son: Rango: El peso entre dos nodos está dado por k-r/2 donde r es la suma más pequeña de los rangos (de proximidad, el vecino más cercano tiene el rango 1) para cualquiera de los vecinos compartidos Número: el peso entre dos nodos es igual al número de vecinos más próximos compartidos Jaccard: el peso entre dos nodos es igual a la similaridad de Jaccard entre los conjuntos de vecinos de estos nodos 6.5.5 Obteniendo comunidades a partir de una gráfica SNN pesada mediante un algoritmo de clustering A partir de una gráfica SNN pesada podemos aplicar algoritmos para identificar comunidades de células Una comunidad es un grupo de células que están más conectadas a células en el mismo grupo que lo que están a células de un grupo diferente Cada comunidad representa un cluster 6.5.6 Resumen de clustering basado en grafos La construcción y búsqueda de una red KNN es rápida, por lo tanto, es escalable para datasets grandes Debes evitar obtener conclusiones fuertes acerca de la forma de los clusters o la distribución de células dentro de cada cluster El algoritmo conecta cada célula con un número mínimo de células vecinas lo cual reduce, más no elimina, el riesgo de clusters no informativos Después de la construcción del grafo, no se almacena información adicional más alla de las células vecinas. Esto puede producir subclusters artificiales en regiones con muchas células 6.5.7 Detalles a considerar en la implementación ¿Cuántas céulas vecinas debo considerar durante la construcción del grafo? ¿Cómo debo pesar las aristas? ¿Cuál algoritmo de detección de comunidades se debe usar para definir los clusters? 6.5.8 Implementación library(scran) # Construir grafo usando k= 10 vecinos más cercanos en el espacio definido por el PCA g <- buildSNNGraph(sce.pbmc, k = 10, use.dimred = "PCA") # Identificar comunidades utilizando el método Walktrap clust <- igraph::cluster_walktrap(g)$membership # Visualizar clusters en una gráfica t-SNE library(scater) sce.pbmc$cluster <- factor(clust) plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster") ¿Qué pasa si utilizas una k más grande o más pequeña? library(scran) #Construir grafo usando k= 50 vecinos más cercanos en el espacio definido por el PCA g50 <- buildSNNGraph(sce.pbmc, k = 50, use.dimred = "PCA") # Identificar comunidades utilizando el método Walktrap clust50 <- igraph::cluster_walktrap(g50)$membership # Visualizar clusters en una gráfica t-SNE library(scater) sce.pbmc$cluster50 <- factor(clust50) plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster50") En esta implementación: La construcción de la red KNN se baso en la distancia Euclideana entre células La construcción de la red KNN implica que las aristas se crean entre todos los pares de células que comparten por lo menos un vecino Se utilizó el esquema de peso de: Xu and Su (2015) 6.5.9 Eligiendo un valor de k El valor de k puede ser toscamente interpretado como el tamaño anticipado de la subpoblación más pequeña Si una subpoblación tiene menos que (k+1) células entonces el método será forzado a construir aristas entre células de esa subpoblación y células de otras subpoblaciones, incrementando el riesgo de que la subpoblación en cuestión no forme su propio cluster 6.5.10 Una implementación diferente: estilo Seurat # Pesos definidos estilo Jaccard seguidos por clustering de Louvain # aka 'clustering estilo Seurat' g2 <- buildSNNGraph(sce.pbmc, k = 10, use.dimred = "PCA", type = "jaccard") clust2 <- igraph::cluster_louvain(g2)$membership sce.pbmc$cluster2 <- factor(clust2) plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster2") 6.5.11 Detalles de las implementaciones más comunes Pipelines basados en Seurat: Pesos basados en Jacard Clustering Louvain Pipelines basados en Scran: Pesos basados en Rangos Clustering Walktrap Para detalles sobre la seleccion de parámetros y comparaciones: visitar esta página. library("patchwork") ## Estilo scran vs estilo Seurat plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster") + plotReducedDim(sce.pbmc, "TSNE", colour_by = "cluster2") Figure 6.1: Estilo scran vs estilo Seurat. 6.5.12 Otras implementaciones Distintas métricas de distancia g.num <- buildSNNGraph(sce.pbmc, use.dimred = "PCA", type = "number") g.jaccard <- buildSNNGraph(sce.pbmc, use.dimred = "PCA", type = "jaccard") g.none <- buildKNNGraph(sce.pbmc, use.dimred = "PCA") Distintos métodos de clustering clust.louvain <- igraph::cluster_louvain(g)$membership clust.infomap <- igraph::cluster_infomap(g)$membership clust.fast <- igraph::cluster_fast_greedy(g)$membership clust.labprop <- igraph::cluster_label_prop(g)$membership clust.eigen <- igraph::cluster_leading_eigen(g)$membership 6.6 Evaluando la separación de los clusters Modularidad es una métrica natural para evaluar la separación entre comunidades/clusters La modularidad se define como la diferencia (escalada) entre el peso total observado de las aristas entre los nodos en el mismo cluster y el peso total esperado si los pesos fueran distribuidos aleatoriamente entre todos los pares de nodos Nosotros calcularemos un score de modularidad para cada cluster usando las tasas en vez de las diferencias, debido a que las tasas no se ven tan fuertemente influenciadas por el tamaño de los clusters library(bluster) # obteniendo la métrica de modularidad ratio <- pairwiseModularity(g, clust, as.ratio = TRUE) dim(ratio) ## [1] 19 19 library(pheatmap) pheatmap(log2(ratio + 1), cluster_rows = FALSE, cluster_cols = FALSE, color = colorRampPalette(c("white", "blue"))(100) ) Un dataset que contiene clusters bien separados debería contener la mayoría del peso total observado en las entradas diagonales, i.e la mayoría de las aristas ocurren entre células del mismo cluster Para más detalles sobre evaluación de la separación entre clusters visite esta página 6.7 Otros métodos de clustering Clustering por k-means PRO: Rápido Se debe especificar el número de clusters de antemano Favorece clusters esféricos Clustering jerárquico Produce un dendograma (árbol) representando las células y la similaridad entre subpoblaciones a varias resoluciones Demasiado lento para correrse en algo más grande que los datasets más pequeños de scRNA-seq 6.8 Evaluando la estabilidad de los clusters Una propiedad deseable de cualquier cluster es que éste sea estable a las perturbaciones en los datos de entrada, de esta manera: Pequeños cambios en el procesamiento de los datos no cambiarán el resultado Se incrementa la probabilidad de que las conclusiones puedan ser replicadas en un estudio independiente Uno puede hacer un proceso de bootstrap para evaluar la estabilidad de un algoritmo de clustering en un dataset dado y calcular la coasignación. La coasignación es la probabilidad de que células elegidas al azar del cluster X y Y sean asignadas al mismo cluster en la réplica del proceso de bootstrap myClusterFUN <- function(x) { g <- buildSNNGraph(x, use.dimred = "PCA", type = "jaccard") igraph::cluster_louvain(g)$membership } originals <- myClusterFUN(sce.pbmc) set.seed(0010010100) coassign <- bootstrapStability(sce.pbmc, FUN = myClusterFUN, clusters = originals ) pheatmap(coassign, cluster_row = FALSE, cluster_col = FALSE, color = rev(viridis::magma(100)) ) Probabilidad alta de coasignación indica que X es estable con respecto a su separación de Y. Queremos altas probabilidades de coasignación en la diagonal Debes considerar que el bootstraping solo considera el efecto del ruido de muestreo e ignora otros factores que pueden afectar la reproducibilidad (como efectos de batch) Además, una pobre separación puede ser altamente estable 6.9 Subclustering Mejora la resolución al repetir el proceso de feature selection y clustering dentro de un único cluster Se enfoca en los HGVs y PCs que son los más relevantes para un cluster específico Veamos como se comporta la expresión de ciertos genes en nuestros clusters CD3E, CCR7, CD69, y CD44 son marcadores de células T de memoria. g.full <- buildSNNGraph(sce.pbmc, use.dimred = "PCA") clust.full <- igraph::cluster_walktrap(g.full)$membership sce.pbmc$clust.full <- factor(clust.full) plotExpression(sce.pbmc, features = c("CD3E", "CCR7", "CD69", "CD44"), x = "clust.full", colour_by = "clust.full" ) De esta gráfica deducimos que las células T de memoria se encuentran en el cluster 10 Dentro de las células T de memoria, ¿dónde están las subpoblaciones CD4+ y CD8+? # Repetimos TODO el proceso de clustering en el subconjunto de células que hemos identificado como células T de memoria (cluster 10). memory <- 10 sce.memory <- sce.pbmc[, clust.full == memory] dec.memory <- modelGeneVar(sce.memory) sce.memory <- denoisePCA(sce.memory, technical = dec.memory, subset.row = getTopHVGs(dec.memory, prop = 0.1) ) g.memory <- buildSNNGraph(sce.memory, use.dimred = "PCA") clust.memory <- igraph::cluster_walktrap(g.memory)$membership sce.memory$clust.memory <- factor(clust.memory) plotExpression(sce.memory, features = c("CD8A", "CD4"), x = "clust.memory" ) Expresión de CD4 es bajo, por lo tanto, su cambio es modesto, pero la interpretación es clara Si tipos celulares o estados celulares se extienden sobre las fronteras de los clusters, entonces un subcluster podría representar contaminación de un tipo celular en un cluster separado 6.10 Resumen y recomendaciones Un cluster no implica un tipo celular Nosotros podemos definir tantos clusters como queramos y podemos utilizar el algoritmo que más nos acomode El clustering, como un microscopio, simplemente es una herramienta para explorar los datos Preguntar por el mejor clustering es similar a preguntar cuál es la mejor magnificación en un microscopio sin contenido Clustering basado en grafos es rápido y evita tener que hacer suposiciones fuertes sobre la forma de los clusters o la distribución de las células dentro de cada cluster: scran::buildSNNGraph() igraph::cluster_walktrap() o igraph::cluster_louvain() Modularidad y estabilidad de los clusters son diagnósticos útiles El proceso de subclustering podría mejorar la resolución dentro de clusters grandes 6.11 Dónde estamos 6.12 Detalles de la sesión de R ## Información de la sesión de R Sys.time() ## [1] "2023-07-31 15:47:25 EDT" proc.time() ## user system elapsed ## 620.242 22.904 1043.971 options(width = 120) sessioninfo::session_info() ## ─ Session info ─────────────────────────────────────────────────────────────────────────────────────────────────────── ## setting value ## version R version 4.3.1 (2023-06-16) ## os macOS Ventura 13.4.1 ## system aarch64, darwin20 ## ui RStudio ## language (EN) ## collate en_US.UTF-8 ## ctype en_US.UTF-8 ## tz America/New_York ## date 2023-07-31 ## rstudio 2023.06.0+421 Mountain Hydrangea (desktop) ## pandoc 3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown) ## ## ─ Packages ─────────────────────────────────────────────────────────────────────────────────────────────────────────── ## package * version date (UTC) lib source ## AnnotationDbi * 1.62.2 2023-07-02 [1] Bioconductor ## AnnotationFilter * 1.24.0 2023-05-08 [1] Bioconductor ## AnnotationHub * 3.8.0 2023-05-08 [1] Bioconductor ## beachmat 2.16.0 2023-05-08 [1] Bioconductor ## beeswarm 0.4.0 2021-06-01 [1] CRAN (R 4.3.0) ## Biobase * 2.60.0 2023-05-08 [1] Bioconductor ## BiocFileCache * 2.8.0 2023-05-08 [1] Bioconductor ## BiocGenerics * 0.46.0 2023-06-04 [1] Bioconductor ## BiocIO 1.10.0 2023-05-08 [1] Bioconductor ## BiocManager 1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0) ## BiocNeighbors 1.18.0 2023-05-08 [1] Bioconductor ## BiocParallel 1.34.2 2023-05-28 [1] Bioconductor ## BiocSingular 1.16.0 2023-05-08 [1] Bioconductor ## BiocVersion 3.17.1 2022-12-20 [1] Bioconductor ## biomaRt 2.56.1 2023-06-11 [1] Bioconductor ## Biostrings 2.68.1 2023-05-21 [1] Bioconductor ## bit 4.0.5 2022-11-15 [1] CRAN (R 4.3.0) ## bit64 4.0.5 2020-08-30 [1] CRAN (R 4.3.0) ## bitops 1.0-7 2021-04-24 [1] CRAN (R 4.3.0) ## blob 1.2.4 2023-03-17 [1] CRAN (R 4.3.0) ## bluster * 1.10.0 2023-05-08 [1] Bioconductor ## bookdown 0.34 2023-05-09 [1] CRAN (R 4.3.0) ## bslib 0.5.0 2023-06-09 [1] CRAN (R 4.3.0) ## cachem 1.0.8 2023-05-01 [1] CRAN (R 4.3.0) ## cli 3.6.1 2023-03-23 [1] CRAN (R 4.3.0) ## cluster 2.1.4 2022-08-22 [1] CRAN (R 4.3.1) ## codetools 0.2-19 2023-02-01 [1] CRAN (R 4.3.1) ## colorspace 2.1-0 2023-01-23 [1] CRAN (R 4.3.0) ## cowplot 1.1.1 2020-12-30 [1] CRAN (R 4.3.0) ## crayon 1.5.2 2022-09-29 [1] CRAN (R 4.3.0) ## curl 5.0.1 2023-06-07 [1] CRAN (R 4.3.0) ## DBI 1.1.3 2022-06-18 [1] CRAN (R 4.3.0) ## dbplyr * 2.3.3 2023-07-07 [1] CRAN (R 4.3.0) ## DelayedArray 0.26.6 2023-07-02 [1] Bioconductor ## DelayedMatrixStats 1.22.0 2023-05-08 [1] Bioconductor ## digest 0.6.33 2023-07-07 [1] CRAN (R 4.3.0) ## dplyr * 1.1.2 2023-04-20 [1] CRAN (R 4.3.0) ## dqrng 0.3.0 2021-05-01 [1] CRAN (R 4.3.0) ## DropletUtils * 1.20.0 2023-05-08 [1] Bioconductor ## edgeR 3.42.4 2023-06-04 [1] Bioconductor ## ellipsis 0.3.2 2021-04-29 [1] CRAN (R 4.3.0) ## EnsDb.Hsapiens.v86 * 2.99.0 2023-07-29 [1] Bioconductor ## ensembldb * 2.24.0 2023-05-08 [1] Bioconductor ## evaluate 0.21 2023-05-05 [1] CRAN (R 4.3.0) ## ExperimentHub 2.8.1 2023-07-16 [1] Bioconductor ## fansi 1.0.4 2023-01-22 [1] CRAN (R 4.3.0) ## farver 2.1.1 2022-07-06 [1] CRAN (R 4.3.0) ## fastmap 1.1.1 2023-02-24 [1] CRAN (R 4.3.0) ## filelock 1.0.2 2018-10-05 [1] CRAN (R 4.3.0) ## FNN 1.1.3.2 2023-03-20 [1] CRAN (R 4.3.0) ## generics 0.1.3 2022-07-05 [1] CRAN (R 4.3.0) ## GenomeInfoDb * 1.36.1 2023-07-02 [1] Bioconductor ## GenomeInfoDbData 1.2.10 2023-06-08 [1] Bioconductor ## GenomicAlignments 1.36.0 2023-05-08 [1] Bioconductor ## GenomicFeatures * 1.52.1 2023-07-02 [1] Bioconductor ## GenomicRanges * 1.52.0 2023-05-08 [1] Bioconductor ## ggbeeswarm 0.7.2 2023-04-29 [1] CRAN (R 4.3.0) ## ggplot2 * 3.4.2 2023-04-03 [1] CRAN (R 4.3.0) ## ggrepel * 0.9.3 2023-02-03 [1] CRAN (R 4.3.0) ## glue 1.6.2 2022-02-24 [1] CRAN (R 4.3.0) ## gridExtra 2.3 2017-09-09 [1] CRAN (R 4.3.0) ## gtable 0.3.3 2023-03-21 [1] CRAN (R 4.3.0) ## HDF5Array 1.28.1 2023-05-08 [1] Bioconductor ## here 1.0.1 2020-12-13 [1] CRAN (R 4.3.0) ## highr 0.10 2022-12-22 [1] CRAN (R 4.3.0) ## hms 1.1.3 2023-03-21 [1] CRAN (R 4.3.0) ## htmltools 0.5.5 2023-03-23 [1] CRAN (R 4.3.0) ## httpuv 1.6.11 2023-05-11 [1] CRAN (R 4.3.0) ## httr 1.4.6 2023-05-08 [1] CRAN (R 4.3.0) ## igraph 1.5.0.1 2023-07-23 [1] CRAN (R 4.3.0) ## interactiveDisplayBase 1.38.0 2023-05-08 [1] Bioconductor ## IRanges * 2.34.1 2023-07-02 [1] Bioconductor ## irlba 2.3.5.1 2022-10-03 [1] CRAN (R 4.3.0) ## jquerylib 0.1.4 2021-04-26 [1] CRAN (R 4.3.0) ## jsonlite 1.8.7 2023-06-29 [1] CRAN (R 4.3.0) ## KEGGREST 1.40.0 2023-05-08 [1] Bioconductor ## knitr 1.43 2023-05-25 [1] CRAN (R 4.3.0) ## labeling 0.4.2 2020-10-20 [1] CRAN (R 4.3.0) ## later 1.3.1 2023-05-02 [1] CRAN (R 4.3.0) ## lattice 0.21-8 2023-04-05 [1] CRAN (R 4.3.1) ## lazyeval 0.2.2 2019-03-15 [1] CRAN (R 4.3.0) ## lifecycle 1.0.3 2022-10-07 [1] CRAN (R 4.3.0) ## limma 3.56.2 2023-06-04 [1] Bioconductor ## locfit 1.5-9.8 2023-06-11 [1] CRAN (R 4.3.0) ## magrittr 2.0.3 2022-03-30 [1] CRAN (R 4.3.0) ## Matrix * 1.6-0 2023-07-08 [1] CRAN (R 4.3.0) ## MatrixGenerics * 1.12.2 2023-07-02 [1] Bioconductor ## matrixStats * 1.0.0 2023-06-02 [1] CRAN (R 4.3.0) ## memoise 2.0.1 2021-11-26 [1] CRAN (R 4.3.0) ## metapod 1.8.0 2023-04-25 [1] Bioconductor ## mime 0.12 2021-09-28 [1] CRAN (R 4.3.0) ## munsell 0.5.0 2018-06-12 [1] CRAN (R 4.3.0) ## patchwork * 1.1.2 2022-08-19 [1] CRAN (R 4.3.0) ## PCAtools * 2.12.0 2023-05-08 [1] Bioconductor ## pheatmap * 1.0.12 2019-01-04 [1] CRAN (R 4.3.0) ## pillar 1.9.0 2023-03-22 [1] CRAN (R 4.3.0) ## pkgconfig 2.0.3 2019-09-22 [1] CRAN (R 4.3.0) ## plyr 1.8.8 2022-11-11 [1] CRAN (R 4.3.0) ## png 0.1-8 2022-11-29 [1] CRAN (R 4.3.0) ## prettyunits 1.1.1 2020-01-24 [1] CRAN (R 4.3.0) ## progress 1.2.2 2019-05-16 [1] CRAN (R 4.3.0) ## promises 1.2.0.1 2021-02-11 [1] CRAN (R 4.3.0) ## ProtGenerics 1.32.0 2023-05-08 [1] Bioconductor ## purrr 1.0.1 2023-01-10 [1] CRAN (R 4.3.0) ## R.methodsS3 1.8.2 2022-06-13 [1] CRAN (R 4.3.0) ## R.oo 1.25.0 2022-06-12 [1] CRAN (R 4.3.0) ## R.utils 2.12.2 2022-11-11 [1] CRAN (R 4.3.0) ## R6 2.5.1 2021-08-19 [1] CRAN (R 4.3.0) ## rappdirs 0.3.3 2021-01-31 [1] CRAN (R 4.3.0) ## RColorBrewer 1.1-3 2022-04-03 [1] CRAN (R 4.3.0) ## Rcpp 1.0.11 2023-07-06 [1] CRAN (R 4.3.0) ## RCurl 1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0) ## reshape2 1.4.4 2020-04-09 [1] CRAN (R 4.3.0) ## restfulr 0.0.15 2022-06-16 [1] CRAN (R 4.3.0) ## rhdf5 2.44.0 2023-05-08 [1] Bioconductor ## rhdf5filters 1.12.1 2023-05-08 [1] Bioconductor ## Rhdf5lib 1.22.0 2023-05-08 [1] Bioconductor ## rjson 0.2.21 2022-01-09 [1] CRAN (R 4.3.0) ## rlang 1.1.1 2023-04-28 [1] CRAN (R 4.3.0) ## rmarkdown 2.23 2023-07-01 [1] CRAN (R 4.3.0) ## rprojroot 2.0.3 2022-04-02 [1] CRAN (R 4.3.0) ## Rsamtools 2.16.0 2023-06-04 [1] Bioconductor ## RSQLite 2.3.1 2023-04-03 [1] CRAN (R 4.3.0) ## rstudioapi 0.15.0 2023-07-07 [1] CRAN (R 4.3.0) ## rsvd 1.0.5 2021-04-16 [1] CRAN (R 4.3.0) ## rtracklayer 1.60.0 2023-05-08 [1] Bioconductor ## Rtsne 0.16 2022-04-17 [1] CRAN (R 4.3.0) ## S4Arrays 1.0.4 2023-05-14 [1] Bioconductor ## S4Vectors * 0.38.1 2023-05-08 [1] Bioconductor ## sass 0.4.7 2023-07-15 [1] CRAN (R 4.3.0) ## ScaledMatrix 1.8.1 2023-05-08 [1] Bioconductor ## scales 1.2.1 2022-08-20 [1] CRAN (R 4.3.0) ## scater * 1.28.0 2023-04-25 [1] Bioconductor ## scran * 1.28.2 2023-07-23 [1] Bioconductor ## scRNAseq * 2.14.0 2023-04-27 [1] Bioconductor ## scuttle * 1.9.4 2023-01-23 [1] Bioconductor ## sessioninfo 1.2.2 2021-12-06 [1] CRAN (R 4.3.0) ## shiny 1.7.4.1 2023-07-06 [1] CRAN (R 4.3.0) ## SingleCellExperiment * 1.22.0 2023-05-08 [1] Bioconductor ## sparseMatrixStats 1.12.2 2023-07-02 [1] Bioconductor ## statmod 1.5.0 2023-01-06 [1] CRAN (R 4.3.0) ## stringi 1.7.12 2023-01-11 [1] CRAN (R 4.3.0) ## stringr 1.5.0 2022-12-02 [1] CRAN (R 4.3.0) ## SummarizedExperiment * 1.30.2 2023-06-06 [1] Bioconductor ## tibble 3.2.1 2023-03-20 [1] CRAN (R 4.3.0) ## tidyselect 1.2.0 2022-10-10 [1] CRAN (R 4.3.0) ## utf8 1.2.3 2023-01-31 [1] CRAN (R 4.3.0) ## uwot 0.1.16 2023-06-29 [1] CRAN (R 4.3.0) ## vctrs 0.6.3 2023-06-14 [1] CRAN (R 4.3.0) ## vipor 0.4.5 2017-03-22 [1] CRAN (R 4.3.0) ## viridis 0.6.4 2023-07-22 [1] CRAN (R 4.3.0) ## viridisLite 0.4.2 2023-05-02 [1] CRAN (R 4.3.0) ## withr 2.5.0 2022-03-03 [1] CRAN (R 4.3.0) ## xfun 0.39 2023-04-20 [1] CRAN (R 4.3.0) ## XML 3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0) ## xml2 1.3.5 2023-07-06 [1] CRAN (R 4.3.0) ## xtable 1.8-4 2019-04-21 [1] CRAN (R 4.3.0) ## XVector 0.40.0 2023-05-08 [1] Bioconductor ## yaml 2.3.7 2023-01-23 [1] CRAN (R 4.3.0) ## zlibbioc 1.46.0 2023-05-08 [1] Bioconductor ## ## [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library ## ## ────────────────────────────────────────────────────────────────────────────────────────────────────────────────────── "],["genes-marcadores.html", "7 Genes marcadores 7.1 Diapositivas", " 7 Genes marcadores Yalbi Balderas 08 de agosto de 2023 7.1 Diapositivas "],["anotación-de-tipos-celulares.html", "8 Anotación de tipos celulares 8.1 Diapositivas", " 8 Anotación de tipos celulares Erick Cuevas 08 de agosto de 2023 8.1 Diapositivas "],["nuevas-funcionalidades-de-rstudio-quarto..html", "9 Nuevas funcionalidades de RStudio, Quarto. 9.1 Diapositivas", " 9 Nuevas funcionalidades de RStudio, Quarto. Erick Cuevas 09 de agosto de 2023 9.1 Diapositivas "],["control-de-versiones-con-github-y-rstudio.html", "10 Control de versiones con GitHub y RStudio 10.1 Diapositivas 10.2 ¿Por qué hacer control de versiones de nuestros proyectos? 10.3 Git 10.4 Recomendaciones para sus proyectos 10.5 Proyectos colaborativos 10.6 GitHub 10.7 Manual de sobreviviencia con Git Y GitHub en RStudio (en caso de ser necesario) 10.8 Cómo clonar un repositorio y tener conección/permisos para modificarlo? 10.9 Credenciales HTTPS en Cache 10.10 Conectando RStudio con Git y Github. 10.11 GitHub primero, RStudio después… 10.12 Rmarkdown en GitHub 10.13 RStudio primero y GitHub también 10.14 Proyecto existente, GitHub al final 10.15 Git basics: commands 10.16 Merge conflics 10.17 Merge conflics 10.18 En resumen", " 10 Control de versiones con GitHub y RStudio Dra. Alejandra Medina Rivera 09 de agosto de 2023 div.color { border-radius: 5px; padding: 20px; margin: 30px 0px 30px;} div.red { background-color:#f67155; } div.orange{ background-color:#f0BB51;} div.pair { display: flex; flex-direction: row; justify-content: center; text-align:center; padding:0px} div.inside { width: 49%; padding: 0px} div.scroll { max-height: 400px; overflow-y: auto; background: #111111; border-radius:5px; padding: 10px; margin: 30px 0px 30px; color: #999999;} div.alert{color:#bd475d; background-color:transparent} Este documento se basa en “Happy Git with R” de Jenny Bryan, los STAT 545 TAs, Jim Hester https://happygitwithr.com 10.1 Diapositivas 10.2 ¿Por qué hacer control de versiones de nuestros proyectos? ✅ Los proyectos suelen cambiar y crecer. 💾 Es díficil saber cuáles fueron todos los cambios a lo largo del tiempo (en especial tiempos largos, hazlo por tu yo del futuro!). 🤔 Las colaboraciones se pueden complicar sin un buen control de versiones. 🔐 Seguridad. 10.3 Git Git es un sistema de control de versiones Git funciona con GitHub, Bitbucket o GitLab ¿Por qué usar Git en vez de solo renombrar los archivos? ✅✅Por qué es mejor tener una filogenia del archivo. Git es un sistema de control de versiones distribuido, gratuito y de código abierto, diseñado para manejar todo tipo de proyectos, desde los más pequeños hasta los más grandes, con rapidez y eficiencia. Git es fácil de aprender y ocupa poco espacio con un rendimiento rapidísimo. Supera a las herramientas SCM como Subversion, CVS, Perforce y ClearCase con características como la ramificación local barata, las cómodas áreas de preparación y los múltiples flujos de trabajo. 10.3.1 Git vs controles de versión a mano Con Git cada contribuidor tiene una copia del repositorio central, con todos los archivos y la historia de los cambios por los que han pasado. Excuse me, do you have a moment to talk about version control?, Jennifer Bryan, 2017 ⚠️ NO OLVIDES TENER INSTALADO Git, en caso de que aún no lo hayas instalado, lo puedes descargar en el siguiente enlace https://git-scm.com/downloads. Para conocer la localización y la versión de Git que tienes en tu computadora, corre el siguiente comando en la terminal: which git y git --version 10.4 Recomendaciones para sus proyectos Dedicar un directorio Es mejor organizarlo en un RStudio Project Hacer un repositorio de Git Trabajen como siempre, solo además de guardar, recuerden hacer commit De vez en vez hagan push de sus cambios cuando los hayan verificado. 10.5 Proyectos colaborativos GitHub se parece más a un GoogleDoc que a un Word Document. Es fácil que los colaboradores hagan cambios y también es fácil saber quién hizo que. El owner del proyecto puede dar permisos a los diferentes colaboradores. También existen organizaciones, esto puede ser útil para manejar los permisos de grupos grandes de colaboración. 10.6 GitHub GitHub es una plataforma para guardar proyectos, hace uso de Git. Su principal utilidad es para generar código fuente de programas. ⚠️ NO OLVIDES TENER UNA CUENTA EN GITHUB, en caso de que aún no lo hayas hecho, puedes ir la página de GitHub y seleccionar join. Es indispensable tu usuario para los ejercicios que siguen. También existen otras plataformas como Bitbucked y GitLab, las cuales funcionan de manera similar a GitHub. 10.7 Manual de sobreviviencia con Git Y GitHub en RStudio (en caso de ser necesario) Por cualquier problema con la conexión entre RStudio y Git, siempre ten en cuenta la ubicación de dónde se instaló Git. Puedes usar en la terminal which git (Mac y Linux) O bien usar en la terminal where git (Windows) Recuerda que la terminal (o línea de comandos ó consola ó shell ó bash) es un programa en tu computadora que funciona para correr otros programas. Desde RStudio puedes abrir la terminal, lo cual es muy conveniente si estás trabajando en un proyecto. Puedes abrir una terminal con: Tools > Terminal (abre la terminal dentro del IDE de RStudio) Tools > Shell (abre una terminal externa a RStudio) 10.8 Cómo clonar un repositorio y tener conección/permisos para modificarlo? Git puede comunicarse con un servidor remoto usando uno de dos protocolos, HTTPS o SSH, y cada protocolo usa credenciales diferentes. La recomendación actual de GitHub es usar HTTPS porque es la manera más fácil de configurar y tiene operabilidad en multiples redes y plataformas. Es menos probable que HTTPS sea bloqueado por un firewall. Una conexión HTTPS permite que credential.helper almacene en caché su contraseña. (por tanto puedes configurar tu usuario y contraseña en tu equipo de uso) Es más sencillo acceder a un repositorio desde cualquier lugar, ya que solo necesitas los detalles de tu cuenta (no se requieren claves SSH) para escribir en el repositorio. Usualmente cuando inicies un proyecto colaborativo con GitHub inicializa el ropositorio con un README. Copia el HTTPS URL para clonar el repositorio en la terminal git clone https://github.com/TU-USUARIO/TU-REPOSITORIO.git. 10.9 Credenciales HTTPS en Cache Para usar HTTPS debes crear un token de acceso personal, PAT (PERSONAL ACCESS TOKEN), esa será tu credencial para HTTPS. Es una alternativa al uso de contraseñas para la autenticación en GitHub. Como precaución de seguridad, GitHub elimina automáticamente los tokens de acceso personales que no se han usado durante un año. ¿Cómo crear un token? Ve a tu perfil de GitHub, dale click a la imagen de perfil (usualmente en la esquina superior derecha), y busca la opción de settings ó configuración según sea la configuración de idioma que tengas. Da click a continuación en Developer settings ó Parámetros del desarrollador. En la barra lateral izquierda da click en Tokens de acceso personal. Haz click en Generar un nuevo token. Asígna un nombre descriptivo a tu token. Selecciona los alcances o permisos que deseas otorgarle a este token. Para usar tu token para acceder a repositorios desde la línea de comando, selecciona repo. (Recomendados: repo, user, workflow ) Finalmente haz click en generar token. Listo, copia y pega tu token en el lugar dónde siempre lo puedas volver a copiar, ya que por razones de seguridad, una vez salgas de la página no podrás volver a ver el token. Nota: Preserva tus tokens de la misma manera que tus contraseñas y no se las reveles a nadie. Una vez que tengas un token, puedes ingresarlo en lugar de tu contraseña cuando realices operaciones de Git a través de HTTPS. El punto final es que una vez configurada una PAT, varios paquetes de R, incluidos usethis y gh, podrán trabajar con la API de GitHub en su nombre, de forma automática. Por lo tanto, una PAT configurada correctamente significa que todo esto funcionará a la perfección: - Operaciones HTTPS remotas a través de la línea de comando Git y, por lo tanto, a través de RStudio - Operaciones HTTPS remotas a través del paquete gert R y, por lo tanto, usethis - Operaciones de la API de GitHub a través del paquete gh R y, por lo tanto, usethis Probar el repositorio Clonado Después de hacer clone Usa estos comandos para verificar tu repositorio y revisar desde dónde se está sincorinzando. cd myrepo ls -la head README.md git remote show origin Probemos haciendo un cambio en el README echo "Something I want to add to the README in my local computer" >> README.md git status Qué pasó? Ahora tenemos que decirle a git que queremos seguir los cambios de ese archivo Vamos a commit los cambios y luego a subir (push) los mismos a GitHub git add README.md git commit -m "A commit from my local computer" git push Recuerda tu TOKEN!! ¿Cómo crear un token desde R? Puedes ir directamente a la página de GitHub a la parte para generar tu token de acceso personal mediante la siguiente función: usethis::create_github_token() Y con las opciones que se mencionaban anteriormente puedes configurar y crear tu PAT. Si lo que quieres es especificar tu PAT en RStudio, las siguientes funciones te serán útiles: library(gitcreds) gitcreds_set() library(credentials) set_github_pat() Para eliminar credenciales utiliza la función credentials::git_credential_forget() 10.9.1 Actividad Ejecuta los códigos y genera tu PAT, recuerda no perderlo! 10.10 Conectando RStudio con Git y Github. Para lo que sigue a continuación, deberías tener esto: Tener una cuenta en GitHub R y RStudio actualizados Git instalado Saber que desde la terminal puedes hacer push y pull 10.11 GitHub primero, RStudio después… Crea un repositorio en GitHub: mi_repositorio > Public > YES initialize this repository with a README > clicken el gran botón verde “Create repository” En RStudio crea un nuevo proyecto: File > New Project > Version Control > Git. Ahi pega el URL del repositorio https://github.com/mi_usuario/mi_repositorio.git. Da click en Create Project. Esto nos generará los siguientes elementos: Un directorio nuevo Un repositorio Git enlazado a al repositorio de GitHub Un proyecto en RStudio Con este procedimiento ya no es necesario preocuparse por configurar controles remotos Git y rastrear ramas en la línea de comandos. 10.11.1 Actividad Genera un repositorio con el nombre que desees. Y conéctalo a RStudio. Cerciorate de que el archivo README se encuentre en tu nueva carpeta. Usa la función usethis::use_r(\"titulo_de_un_script\") y observa lo que sucede. PAUSA ¿Cómo comento y doy push/pull desde RStudio? 10.11.2 Comentar, pull y push Con la flecha azul podemos hacer pull (RECUERDA HACERLO ANTES DE HACER UN PUSH), y con la flecha verde un push. Para poder comentar y hacer push debemos marcar con una flechita mediante un click en las pequeñas cajas blancas de la columna Staged, damoc click en commit lo cual no abre la siguiente ventana. Volvemos a dar click en commit, y finalizamos con push (flecha verde). 10.12 Rmarkdown en GitHub Creemos un Rmakrdown y subámoslo a GitHub Ahora hay que agregarlo al repositorio (add), stage and commit. Subieron el hmlt? Qué tal se ve? No se ve como queremos, verdad? Para eso necesitamos recuperar el .md. El .md es un resultado intermedio de crear el html desde Rmd. Tenemos que cambiar el header para esto --- title: "RmarkwondTest" output: html_document: keep_md: true --- 10.12.1 Actividad Usa el código dir.create(\"mis_imagenes\") en la consola de tu sesión de RStudio (la que está vinculada a tu repositorio). Ejecuta el siguiente código quitando los #: install.packages("MASS") library (MASS) data(MASS::cats) # pdf("mis_imagenes/cats_plot.pdf") ggplot(cats, aes(x = Sex)) + geom_bar(fill = "orange", color = "black") + theme_classic() + xlab("Sexo") + ylab("Número de Gatos") + ggtitle("Gatos") # dev.off() Comenta y da push a los cambios que realizaste en el repositorio. 10.13 RStudio primero y GitHub también Usa uno de los proyectos que hayas generado en las sesiones anteriores, PERO, que no esté enlazado a GitHub. Ahora veremos como conectar un proyecto de R existente con GitHub. Realiza los pasos que hicimos en GitHub primero, RStudio después pero asegurate de crear un repositorio con un nuevo nombre. Y LISTO!! usa un simple ctrl + c, ó mv ó click derecho + copiar ó el método que prefieras para mover o copiar archivos. Copia los archivos de tu antigüo proyecto al proyecto nuevo. Solo haz commit y push y listo, lo que tenía en tu antigüo proyecto ya está enlazado a GitHub. 10.14 Proyecto existente, GitHub al final Supongamos que tenemos un proyecto de R existente en algún lugar de nuestra computadora. NOTA: Para generar proyecto de RStudio desde la consola puedes utilizar el siguiente código: usethis::create_project() O en RStudio con File > New Project > Existing Directory Si su proyecto ya es un proyecto de RStudio, ejecútelo. ¿Ya es un repositorio de Git? La presencia del panel de Git debería alertarlo. Si es así, ha terminado. Sino este es el primer camino a seguir: Con el páquete usethis usa la función usethis::use_git En RStudio ve a Tools > Project Options > Git/SVN. Dentro de Version control system, selecciona Git. Y da click a “Yes” cuando aparezca “Confirm New Git Repository?”. Si usaste RStudio o usethis, el proyecto debería reiniciarse en RStudio. Hazlo tu mismo si hizo git init. RStudio ahora debería tener un panel Git. 10.14.1 Breviario cultural con los PATs Si usas el paquete usethis Y has configurado un token de acceso personal (PAT) de GitHub has esto en R: usethis::use_github() Esto creará un nuevo repositorio en GitHub, lo agregará como un control remoto, configurará una rama de seguimiento y lo abrirá en su navegador. Lea la ayuda de use_github() para conocer sus argumentos y consejos sobre cómo configurar una PAT. Esto es extremadamente útil para una variedad de flujos de trabajo que llaman a la API de GitHub. Considere configurar esto si usa usethis, devtools o gh con regularidad. Volviendo al tema de Proyecto existente, GitHub al final. Otra opción que se puede hacer para conectar un proyecto existen a GitHub es ir a hacer un repositorio a GitHub PERO ten en cuenta los siguientes cambios: Elije un nombre de repositorio; probablemente debería coincidir con el nombre de su proyecto y directorio local. NO inicialice este repositorio con un archivo README. Todo lo demás es igual a los pasos que hacíamos en GitHub primero, RStudio después… Ahora ve a tu proyecto de RStudio, has clic en los “dos cuadros de color púrpura y un cuadrado blanco” en el panel de Git. Has clic en “Agregar control remoto”. Pegue la URL aquí y elija un nombre remoto, casi con certeza el origin. Ahora “ADD”. Pasado esto deberiamos volver en el cuadro de diálogo “New Branch”. Ingresa “master” como el nombre de la rama y asegúrate de que la opción “Sync branch with remote” esté marcada. Haz clic en “Create”. En el siguiente cuadro de diálogo elije “overwrite”. Ahora solo haz commit/pull/push y cérciorate que FUNCIONE!! 10.15 Git basics: commands Fetch Commits git fetch Create and Switch to a branch git branch [branch-name] git checkout [branch-name] 10.16 Merge conflics A veces, no tan a veces también, las cosas no salen bien a la primera Merging (Fusionar) es una de esas cosas Cuando bajamos un cambio o fusionamos branches esto puede pasar. Primera regla: NO ENTRAR EN PANICO!!! Revisen el status del repositorio. Qué archivo tiene conflicto? 10.17 Merge conflics Abran ese archivo y busquen los problemas de merge. Es fácil, se ven así: <<<<<<< HEAD:index.html <div id="footer">contact : email.support@github.com</div> ======= <div id="footer"> please contact us at support@github.com </div> >>>>>>> issue-5:index.html Editen esa sección, dejen una versión final. Hagan commit y push Si entran en pánico? Aborten la misión! git merge --abort t 10.18 En resumen ¡QUE LA FUERZA TE ACOMPAÑE! "],["solución-de-problemas-con-las-versiones-de-paquetes-de-rstudio..html", "11 Solución de problemas con las versiones de paquetes de Rstudio. 11.1 Diapositivas", " 11 Solución de problemas con las versiones de paquetes de Rstudio. Yalbi Balderas 09 de agosto de 2023 11.1 Diapositivas "],["keynote-convirtiendo-tu-flujo-de-análisis-en-un-paquete-de-rbioconductor..html", "12 Keynote: Convirtiendo tu flujo de análisis en un paquete de R/Bioconductor. 12.1 Diapositivas", " 12 Keynote: Convirtiendo tu flujo de análisis en un paquete de R/Bioconductor. Dr. Leonardo Collado Torres 02 de agosto de 2022 12.1 Diapositivas Puedes encontrar las diapositivas aquí. "],["documentación-de-funciones..html", "13 Documentación de funciones. 13.1 Diapositivas 13.2 Links importantes: 13.3 ¿Que es la documentacion de una función y por qué es impotante? 13.4 Generacion de la documentacion con ayuda del paquete roxygen 13.5 Antes de empezar…✏️ 13.6 Generacion de un bloque de documentacion con ayuda del paquete roxygen. 13.7 Otros campos de la documentacion.", " 13 Documentación de funciones. Andrés Arredondo Cruz 09 de agosto de 2023 13.1 Diapositivas [ ](https://comunidadbioinfo.github.io/cdsb2023/brett_talk.pdf) 13.2 Links importantes: Esta lección esta basada en algunos manuales sobre documentación: Una viñeta del cranproject El manual de paqutes de r En esta viñeta de cranproject 13.3 ¿Que es la documentacion de una función y por qué es impotante? 🙇️ Es la información complementaria que el desarrollador escribe sobre una función y que se accede con ? seguido el nombre de una función actual de un paquete p.ej. ?unafuncion. 📁 La documentación se almacena como un archivo .Rd (“R documentation) en la carpeta man/. 🔎 La documentación usa una síntesis especial, que es distinta a la de r y que esta ligeramente basada en LaTeX. 📄 Se puede renderizar como html, pdf o texto sin formato según se necesite. 13.4 Generacion de la documentacion con ayuda del paquete roxygen En un paquete de r y en cualquier ecosistema de devtools no editamos un documento .Rd manualmente. La documentación usa una síntesis parecida a LaTex que puede ser fácil de estropear. Por ventaja existen paquetes como roxigen2. Usar roxigen nos permite usar comentarios especiales sobre el inicio de la función, esto nos da un par de ventajas: ✅ La documentación y la función estarán en un mismo lugar, por lo que si editas la función será mas fácil recordar actualizar la documentcion también. 🎉 Puedes usar markdown en lugar de la síntesis especial para los archivos .Rd 13.5 Antes de empezar…✏️ Vamos a crear un función para nuestro paquete. Supongamos que para nuestro paquete necesitamos una función que calcule la moda. Esta es una forma sencilla de calcular la moda: getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } unique(serievector): Crea un vector que contiene únicamente los valores únicos de la serie de números serievector. match(serievector, uniqv): Encuentra la posición de cada valor de serievector en el vector único uniqv. tabulate(match(serievector, uniqv)): Cuenta cuántas veces aparece cada valor en la serie serievector. which.max(tabulate(match(serievector, uniqv))): Encuentra el índice del valor máximo en el vector de frecuencias. uniqv[which.max(tabulate(match(serievector, uniqv)))]: Devuelve el valor correspondiente al índice calculado, que es la moda. Creamos un ejemplo para ver que funcione: serie_numeros <- c(1, 2, 2, 2, 2, 3, 3, 4, 4, 4) resultado <- getmoda(serie_numeros) print(resultado) ## [1] 2 Bien ahora si podemos podemos empezar a usar el paquete de roxygen para documentar nuestra función.. comencemos. 13.6 Generacion de un bloque de documentacion con ayuda del paquete roxygen. Podemos insertar un esqueleto de comentarios de roxygen para ver su síntesis. Colocamos el cursor en algún lugar de la definición de nuestra función y buscamos en la pestaña Código > Insertar Roxygen Skeleton. #' Title #' #' @param serievector #' #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Ahora ya tenemos un esqueleto de la documentación que nos da una ventaja para su creación. Las líneas de comentarios de Roxygen siempre comienzan con #', el habitual para un comentario # mas un ' Veamos los comentarios de uno por uno: Empezamos con el titulo. Se sugiere poner en el titulo las acciones principales que realiza la función en este caso por ejemplo podremos usar: #' @title Encontrar la Moda de una Serie de Números #' #' @param serievector #' #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Muy bien!. El siguiente comentario que podemos ver es @param. Pero antes, vamos a añadir una pequeña descripción de la función y como usarla. Primero añadimos la pequeña descripción con @description: #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' @param serievector #' #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Ahora vamos a añadir el comentario @usage que nos indica como puedes mandar a llamar la función. #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' @usage getmoda(serievector) #' @param serievector #' #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Ahora si vamos a añadir una pequeña descripción de nuestros argumentos. Si tuviéramos mas de un parámetro en nuestra función podríamos llamar las veces que sea necesario el comentario de parámetro con @param, veamoslo. Ahora añadimos una pequeña descripción a nuestro único parámetro que es serievector: #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' #' @param serievector Es una serie de números en forma de un vector simple de r. #' #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Después, podemos añadir un comentario de detalles de la función con @details. Por ejemplo, si en nuestro ejemplo tuviéramos ciertos valores no numéricos en nuestro vector de entrada, por ejemplo letras, ¿nuestra función podría leerlas?, o si le diéramos un vector sin caracteres ¿que pasaría?, veamos: serie_numeros <- c(0,2,2,"d", "d","d") resultado <- getmoda(serie_numeros) print(resultado) ## [1] "d" serie_numeros <- c() resultado <- getmoda(serie_numeros) print(resultado) ## NULL Entonces, esto es un ejemplo de lo que podríamos poner en el comentario @details. Hagamoslo describiendo esto. En details podemos agregar detalles un poco mas específicos que en la descripción de la función #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' #' @param serievector Es una serie de números en forma de un vector simple de r. #' #' @details si tu vector de entrada puede ser interpretado alternando números y #' letras escritas entre comillas "". Si un vector esta vacío, dará como #' resultado un NULL. #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Ya casi terminamos de llenar nuestra documentación, pero antes vamos a ver algunos otros arrobas que pudieran ser importantes. El @import e @importfrom importan funciones de otros paquetes en caso de que las necesitemos, el primero importa todas las funciones del paquete que que solicites, y el segundo importa solo algunas funciones especificas. En nuestra función no necesitamos llamar funciones de otros paquetes puesto que todas las que usamos están en r base. Pero imaginemos que tu función, por ejemplo necesita leer un archivo .tsv con la función read_tsv del paquete readr y después reconvertir la tabla resultante en un archivo con write.table pero solo necesitas esa función del paquete utils, entonces haríamos: #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' #' @param serievector Es una serie de números en forma de un vector simple de r. #' #' @details si tu vector de entrada puede ser interpretado alternando números y #' letras escritas entre comillas "". Si un vector esta vacío, dará como #' resultado un NULL. #' @import readr #' @importFrom utils write.table #' @return #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Así podemos importar las funciones que necesitemos de otros paquetes y se incluirán en la documentación y se cargaran automáticamente al cargar tu paquete. :eyes::exclamation: Para un correcto funcionamiento de tu paquete y al estar los paquetes necesarios incluidos en la documentación, no será necesario llamarlos de la forma ``library(“apackage”)```. Entonces llegamos a la sección @return. Esta descripción le servirá al usuario del paquete para conocer cual sera el resultado de la función, que puede ser un archivo, una tabla, un numero,etc. Entonces retomando la función que usamos al inicio, vamos a escribir una descripción corta del resultado de la función getmoda(). #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' #' @param serievector Es una serie de números en forma de un vector simple de r. #' #' @details si tu vector de entrada puede ser interpretado alternando números y #' letras escritas entre comillas "". Si un vector esta vacío, dará como #' resultado un NULL. #' @return El carácter con mas frecuencia de el vector de entrada. #' @export #' #' @examples getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Por ultimo tenemos @export que es el encargado de renderizar la documentación para que pueda aparecer en la ventana de Ayuda (abajo a la derecha). esta opción la dejamos para funciones principales que el usuario va a utilizar, aunque puede que existan alguna funciones internas que no queremos que el usuario vea. En ese caso vamos a usar @noRd en lugar de este. Antes de terminar podemos incluir ejemplos de como funciona nuestra función para un mejor entendimiento, pongamos los que ya realizamos: #' @title Encontrar la Moda de una Serie de Números #' #' @description Esta función lee una serie de números en forma de vector y #' encuentra el elemento que mas se repite, es decir la moda. #' #' @param serievector Es una serie de números en forma de un vector simple de r. #' #' @details si tu vector de entrada puede ser interpretado alternando números y #' letras escritas entre comillas "". Si un vector esta vacío, dará como #' resultado un NULL. #' @return El carácter con mas frecuencia de el vector de entrada. #' @export #' #' @examples #' serie_números <- c(1, 2, 2, 2, 2, 3, 3, 4, 4, 4) #' resultado <- getmoda(serie_números) #' print(resultado) getmoda <- function(serievector) { uniqv <- unique(serievector) uniqv[which.max(tabulate(match(serievector, uniqv)))] } Ahora si, una vez teniendo listo el bloque de comentarios para la documentación, vamos a ejecutar devtools::load_all() para cargar nuestras funciones y hecho esto, ejecutamos devtools::document() o presionamos Ctrl/Cmd + Shift + D para convertir los comentarios en archivo .Rd y poder renderizarlo. 💯 Listo, tenemos nuestra documentación para una función. Así se verá cuando el paquete esté terminado. 13.7 Otros campos de la documentacion. @seealso para indicar funciones relacionadas y facilitar la búsqueda de funciones. @references añade algunas referencias. @author para especificar el autor de la función. "],["diseño-de-pruebas.html", "14 Diseño de pruebas 14.1 Diapositivas", " 14 Diseño de pruebas Mirna Vázquez Rosas-Landa 10 de agosto de 2023 14.1 Diapositivas "],["creación-de-viñetas.html", "15 Creación de viñetas 15.1 Diapositivas", " 15 Creación de viñetas Instructor 10 de agosto de 2023 15.1 Diapositivas "],["compilación-e-instalación-de-paquetes.html", "16 Compilación e instalación de paquetes 16.1 Diapositivas", " 16 Compilación e instalación de paquetes Joselyn Chávez 10 de agosto de 2023 16.1 Diapositivas "],["proyectos-colaborativos-1.html", "17 Proyectos colaborativos", " 17 Proyectos colaborativos Proyecto 1 Proyecto 2 Proyecto 3 Proyecto 4 "],["404.html", "Page not found", " Page not found The page you requested cannot be found (perhaps it was moved or renamed). You may want to try searching to find the page's new location, or use the table of contents to find the page you are looking for. "]] diff --git "a/docs/selecci\303\263n-de-genes-altamente-variables.html" "b/docs/selecci\303\263n-de-genes-altamente-variables.html" new file mode 100644 index 0000000..c135d7f --- /dev/null +++ "b/docs/selecci\303\263n-de-genes-altamente-variables.html" @@ -0,0 +1,1345 @@ + + + + + + + 4 Selección de genes altamente variables | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

4 Selección de genes altamente variables

+

José Antonio Ovando

+

08 de agosto de 2023

+
+

4.1 Diapositivas

+

+
+
+

4.2 Diapositivas de Peter Hickey

+

Ver las diapositivas originales aquí

+
+
+

4.3 Motivación

+
    +

  • Usualmente usamos datos scRNA-seq para caracterizar la heterogeneidad entre células

    • +

  • Para hacer esto, usamos métodos como el clustering y la reducción de dimensionalidad

    • +

  • Esto involucra resumir las diferencias por gen en una sola medida de (dis)similitud entre un par de células

    • +

  • ¿Cuáles genes deberíamos usar para calcular esta medida de (dis)similitud?

    • +
+
+
+

4.4 Selección de features (genes)

+

La elección de los features tiene un mayor impacto en qué tan similares decidimos que son las células

+
    +
  • ➕ Features que contienen información útil biológica
    • +
  • ➖ Features que contienen ruido aleatorio
    • +
  • 👉 Efectos laterales al reducir la dimensionalidad de los datos
    • +
+

Deseamos seleccionar los genes altamente variables (High Variable Genes HVGs). Genes con una variación incrementada en comparación con otros genes que están siendo afectados por ruido técnico u otra variación biológica que no es de nuestro interés.

+
+
+

4.5 Dataset ilustrativo: PBMC4k 10X sin filtrar

+
+

4.5.1 Descargar datos

+
# Usemos datos de pbmc4k
+library(BiocFileCache)
+bfc <- BiocFileCache()
+raw.path <- bfcrpath(bfc, file.path(
+    "http://cf.10xgenomics.com/samples",
+    "cell-exp/2.1.0/pbmc4k/pbmc4k_raw_gene_bc_matrices.tar.gz"
+))
+untar(raw.path, exdir = file.path(tempdir(), "pbmc4k"))
+
+library(DropletUtils)
+library(Matrix)
+fname <- file.path(tempdir(), "pbmc4k/raw_gene_bc_matrices/GRCh38")
+sce.pbmc <- read10xCounts(fname, col.names = TRUE)
+sce.pbmc
+
## class: SingleCellExperiment 
+## dim: 33694 737280 
+## metadata(1): Samples
+## assays(1): counts
+## rownames(33694): ENSG00000243485 ENSG00000237613 ... ENSG00000277475 ENSG00000268674
+## rowData names(2): ID Symbol
+## colnames(737280): AAACCTGAGAAACCAT-1 AAACCTGAGAAACCGC-1 ... TTTGTCATCTTTAGTC-1 TTTGTCATCTTTCCTC-1
+## colData names(2): Sample Barcode
+## reducedDimNames(0):
+## mainExpName: NULL
+## altExpNames(0):
+

Dataset “Células mononucleares humanas de sangre periférica” de 10X Genomics

+

Descripción aquí 1

+
+
+

4.5.2 Anotación

+
# Anotación de los genes
+library(scater)
+rownames(sce.pbmc) <- uniquifyFeatureNames(
+    rowData(sce.pbmc)$ID, rowData(sce.pbmc)$Symbol
+)
+library(EnsDb.Hsapiens.v86)
+location <- mapIds(EnsDb.Hsapiens.v86,
+    keys = rowData(sce.pbmc)$ID,
+    column = "SEQNAME", keytype = "GENEID"
+)
+
+# Detección de _droplets_ con células
+set.seed(100)
+e.out <- emptyDrops(counts(sce.pbmc))
+sce.pbmc <- sce.pbmc[, which(e.out$FDR <= 0.001)]
+
+
+

4.5.3 Control de calidad

+
# Control de calidad
+stats <- perCellQCMetrics(sce.pbmc,
+    subsets = list(Mito = which(location == "MT"))
+)
+high.mito <- isOutlier(stats$subsets_Mito_percent,
+    type = "higher"
+)
+sce.pbmc <- sce.pbmc[, !high.mito]
+
+# Normalización de los datos
+library(scran)
+set.seed(1000)
+clusters <- quickCluster(sce.pbmc)
+sce.pbmc <- computeSumFactors(sce.pbmc, cluster = clusters)
+sce.pbmc <- logNormCounts(sce.pbmc)
+
+
+
+

4.6 Dataset ilustrativo: 416B

+
library(scRNAseq)
+sce.416b <- LunSpikeInData(which = "416b")
+sce.416b$block <- factor(sce.416b$block)
+

Línea celular de células mieloides progenitoras inmortalizadas de ratón usando SmartSeq2 +https://osca.bioconductor.org/lun-416b-cell-line-smart-seq2.html 2

+
# gene-annotation
+library(AnnotationHub)
+ens.mm.v97 <- AnnotationHub()[["AH73905"]]
+rowData(sce.416b)$ENSEMBL <- rownames(sce.416b)
+rowData(sce.416b)$SYMBOL <- mapIds(ens.mm.v97,
+    keys = rownames(sce.416b),
+    keytype = "GENEID", column = "SYMBOL"
+)
+rowData(sce.416b)$SEQNAME <- mapIds(ens.mm.v97,
+    keys = rownames(sce.416b),
+    keytype = "GENEID", column = "SEQNAME"
+)
+library(scater)
+rownames(sce.416b) <- uniquifyFeatureNames(
+    rowData(sce.416b)$ENSEMBL,
+    rowData(sce.416b)$SYMBOL
+)
+
# quality-control
+mito <- which(rowData(sce.416b)$SEQNAME == "MT")
+stats <- perCellQCMetrics(sce.416b, subsets = list(Mt = mito))
+qc <- quickPerCellQC(stats,
+    percent_subsets = c("subsets_Mt_percent", "altexps_ERCC_percent"),
+    batch = sce.416b$block
+)
+sce.416b <- sce.416b[, !qc$discard]
+
+# normalization
+library(scran)
+sce.416b <- computeSumFactors(sce.416b)
+sce.416b <- logNormCounts(sce.416b)
+
+
+

4.7 Cuantificando la varianza por gen

+
+

4.7.1 Varianza de los log-counts

+

El enfoque más simple para cuantificar la variación per-feature es simplemente calcular la varianza de los log-counts

+
    +
  • ➕ Selección del feature basado en los log-counts (que serán usadas en los análisis más adelante)
    • +
  • ⚠️ La transformación log no logra la estabilización de la varianza perfecta, así que se requiere modelar la relación de la varianza-media de los features.
    • +
+
+
+

4.7.2 Enfoque simple

+
    +
  1. Calcular la varianza de los log-counts para cada gen (ignorando grupos experimentales)
    2. +
  2. Ordenar los genes del más-al-menos variable
    3. +
+
+
+

4.7.3 Un enfoque más sofisticado

+
    +
  1. Calcular la varianza de los log-counts para cada gen (ignorando grupos experimentales)
    2. +
  2. Modelar la relación entre la media y la varianza de los log-counts para estimar la variación técnica
    3. +
  3. Estimar la varianza biológica sustrayendo la varianza técnica de la varianza total
    4. +
  4. Ordenar los genes de la variable de mayor-a-menor biológicamente
    5. +
+
+
+

4.7.4 Supuestos

+
# Varianza de las log-counts
+library(scran)
+dec.pbmc <- modelGeneVar(sce.pbmc)
+
    +
  • 🤓 El supuesto es que a cualquier abundancia dada, la abundancia de los perfiles de expresión de la mayoría de los genes están dominados por el ruido aleatorio técnico
    • +
  • 🤓 Por lo consiguiente, una tendencia representa un estimado del ruido técnico como una función de la abundancia
    • +
  • 🤓 Podemos entonces descomponer la varianza total de cada gen en un componente técnico y uno biológico
    • +
  • 🤓 Genes con una gran varianza biológica son considerados interesantes
    • +
+
+
+

4.7.5 Visualizando la media y varianza

+
# Visualicemos la relación entre la media y la varianza
+fit.pbmc <- metadata(dec.pbmc)
+plot(fit.pbmc$mean, fit.pbmc$var,
+    xlab = "Mean of log-expression",
+    ylab = "Variance of log-expression"
+)
+curve(fit.pbmc$trend(x), col = "dodgerblue", add = TRUE, lwd = 2)
+

+
+
+

4.7.6 Ordenando genes interesantes

+
# Ordenemos por los genes más interesantes para checar
+# los datos
+dec.pbmc[order(dec.pbmc$bio, decreasing = TRUE), ]
+
## DataFrame with 33694 rows and 6 columns
+##              mean     total      tech       bio      p.value          FDR
+##         <numeric> <numeric> <numeric> <numeric>    <numeric>    <numeric>
+## LYZ       1.94129   4.99949  0.824172   4.17532 1.44008e-250 2.83205e-246
+## S100A9    1.92243   4.48842  0.824008   3.66441 1.25315e-193 6.16112e-190
+## S100A8    1.68566   4.35303  0.814526   3.53850 6.89502e-185 2.71195e-181
+## HLA-DRA   2.09063   3.73576  0.819396   2.91636 7.27124e-125 1.19164e-121
+## CD74      2.90080   3.34898  0.786799   2.56218 6.72905e-105 6.96492e-102
+## ...           ...       ...       ...       ...          ...          ...
+## PTMA      3.83144  0.474774  0.733464 -0.258690     0.990672            1
+## HLA-B     4.49970  0.479899  0.748285 -0.268386     0.991626            1
+## EIF1      3.23434  0.471616  0.766366 -0.294750     0.994844            1
+## TMSB4X    6.07476  0.408677  0.719095 -0.310419     0.998006            1
+## B2M       5.94601  0.311508  0.690710 -0.379202     0.999875            1
+
+
+
+

4.8 Coeficiente de variación de las cuentas

+

El coeficiente de variación de las cuentas al cuadrado (CV2) es una alternativa a la varianza de los log-counts

+
    +

  • 👉 Se calcula usando las cuentas en lugar de los log-counts

    • +

  • 🤓 CV es el ratio de la desviación estándar a la media y está muy relacionada con el parámetro de dispersión de la distribución binomial negativa usada en edgeR y DESeq2

    • +
+
+

4.8.1 Coeficiente de variación

+
# Coeficiente de variación
+dec.cv2.pbmc <- modelGeneCV2(sce.pbmc)
+
    +
  • 🤓 Modela la relación de la media de la varianza cuando se considera la relevancia de cada gen
    • +
  • 🤓 Asume que la mayoría de los genes contienen ruido aleatorio y que la tendencia captura la mayoría de la variación técnica
    • +
  • 🤓 Genes con un gran CV2 que se desvían fuertemente de la tendencia es probable que representen genes afectados por la estructura biológica
    • +
  • 🤓 Usa la tasa (en lugar de la diferencia) del CV2 a la tendencia
    • +
+
+
+

4.8.2 Visualizando el coeficiente de variación

+
# Visualicemos la relación con la media
+fit.cv2.pbmc <- metadata(dec.cv2.pbmc)
+plot(fit.cv2.pbmc$mean, fit.cv2.pbmc$cv2,
+    log = "xy"
+)
+curve(fit.cv2.pbmc$trend(x),
+    col = "dodgerblue",
+    add = TRUE, lwd = 2
+)
+

+
+
+

4.8.3 Genes por coeficiente de variación

+
# Ordenemos por los genes más interesantes para checar
+# los datos
+dec.cv2.pbmc[order(dec.cv2.pbmc$ratio,
+    decreasing = TRUE
+), ]
+
## DataFrame with 33694 rows and 6 columns
+##                 mean     total     trend     ratio   p.value       FDR
+##            <numeric> <numeric> <numeric> <numeric> <numeric> <numeric>
+## GNG11      1.0300722   694.193   1.39084   499.117         0         0
+## PTK7       0.0710992  3664.385  17.32128   211.554         0         0
+## RNF208     0.0721694  3558.419  17.06755   208.490         0         0
+## TUBA8      0.0723199  3544.014  17.03246   208.074         0         0
+## ARHGAP6    0.0777368  3074.612  15.86022   193.857         0         0
+## ...              ...       ...       ...       ...       ...       ...
+## AC023491.2         0       NaN       Inf       NaN       NaN       NaN
+## AC233755.2         0       NaN       Inf       NaN       NaN       NaN
+## AC233755.1         0       NaN       Inf       NaN       NaN       NaN
+## AC213203.1         0       NaN       Inf       NaN       NaN       NaN
+## FAM231B            0       NaN       Inf       NaN       NaN       NaN
+
+
+
+

4.9 Varianza de los log-counts vs coeficiente de variación

+

Generalmente se usa la varianza de los log-counts

+
    +
  • Ambas son medidas efectivas para cuantificar la variación en la expresión génica
    • +
  • CV2 tiende a tener otorgar rangos altos a genes altamente variables (HGVs) con bajos niveles de expresión +
      +
    • Éstos son dirigidos por una sobreregulación en subpoblaciones raras
      • +
    • Puede asignar un alto rango a genes que no son de nuestro interés con varianza baja absoluta
      +
      • +
    • +
  • La variación descrita por el CV2 de las cuentas es menos relevante para los procedimientos que operan en los log-counts
    • +
+
+
+

4.10 Cuantificando el ruido técnico

+
    +

  • Previamente, ajustamos una línea de tendencia a todos los genes endógenos y asumimos que la mayoría de los genes no están dominados por ruido técnico

    • +

  • En la práctica, todos los genes expresados tienen algún nivel de variabilidad biológica diferente de cero (e.g., transcriptional bursting)

    • +

  • Esto sugiere que nuestros estimados de los componentes técnicos estarán inflados probablemente

    • +

  • 👉 Es mejor que pensemos estos estimados como una variación técnica más la variación biológica que no es interesante

    • +

  • 🤔 Pero que tal si un grupo de genes a una abundancia particular es afectado por un proceso biológico? +E.g., fuerte sobre regulación de genes específicos de un tipo celular podrían conllevar a un enriquecimiento de HVGs en abundancias altas. Esto inflaría la tendencia y compromete la detección de los genes relevantes

    • +
+

¿Cómo podemos evitar este problema?

+

Podemos revisar dos enfoques:

+
    +
  1. Cuando tenemos spike-ins
    2. +
  2. Cuando no tenemos spike-ins
    3. +
+
+

4.10.1 En la presencia de spike-ins

+
dec.spike.416b <- modelGeneVarWithSpikes(
+    sce.416b,
+    "ERCC"
+)
+# Ordering by most interesting genes for
+# inspection.
+dec.spike.416b[order(dec.spike.416b$bio,
+    decreasing = TRUE
+), ]
+
## DataFrame with 46604 rows and 6 columns
+##               mean     total      tech       bio      p.value          FDR
+##          <numeric> <numeric> <numeric> <numeric>    <numeric>    <numeric>
+## Lyz2       6.61097   13.8497   1.57131   12.2784 1.48993e-186 1.54156e-183
+## Ccl9       6.67846   13.1869   1.50035   11.6866 2.21855e-185 2.19979e-182
+## Top2a      5.81024   14.1787   2.54776   11.6310  3.80015e-65  1.13040e-62
+## Cd200r3    4.83180   15.5613   4.22984   11.3314  9.46221e-24  6.08573e-22
+## Ccnb2      5.97776   13.1393   2.30177   10.8375  3.68706e-69  1.20193e-66
+## ...            ...       ...       ...       ...          ...          ...
+## Rpl5-ps2   3.60625  0.612623   6.32853  -5.71590     0.999616     0.999726
+## Gm11942    3.38768  0.798570   6.51473  -5.71616     0.999459     0.999726
+## Gm12816    2.91276  0.838670   6.57364  -5.73497     0.999422     0.999726
+## Gm13623    2.72844  0.708071   6.45448  -5.74641     0.999544     0.999726
+## Rps12l1    3.15420  0.746615   6.59332  -5.84670     0.999522     0.999726
+
    +
  • 👉 Ajusta la tendencia solo con los spike-ins (que deberían estar afectados solamente por variación técnica)
    • +
+
plot(dec.spike.416b$mean, dec.spike.416b$total,
+    xlab = "Mean of log-expression",
+    ylab = "Variance of log-expression"
+)
+fit.spike.416b <- metadata(dec.spike.416b)
+points(fit.spike.416b$mean, fit.spike.416b$var,
+    col = "red", pch = 16
+)
+curve(fit.spike.416b$trend(x),
+    col = "dodgerblue",
+    add = TRUE, lwd = 2
+)
+

+
+
+
+

4.11 En la ausencia de spike-ins

+
set.seed(0010101)
+dec.pois.pbmc <- modelGeneVarByPoisson(sce.pbmc)
+# Ordering by most interesting genes for inspection.
+dec.pois.pbmc[order(dec.pois.pbmc$bio, decreasing = TRUE), ]
+
## DataFrame with 33694 rows and 6 columns
+##              mean     total      tech        bio   p.value       FDR
+##         <numeric> <numeric> <numeric>  <numeric> <numeric> <numeric>
+## LYZ       1.94129   4.99949  0.625290    4.37420         0         0
+## S100A9    1.92243   4.48842  0.628977    3.85944         0         0
+## S100A8    1.68566   4.35303  0.669965    3.68307         0         0
+## HLA-DRA   2.09063   3.73576  0.594291    3.14146         0         0
+## CD74      2.90080   3.34898  0.418950    2.93003         0         0
+## ...           ...       ...       ...        ...       ...       ...
+## COX6A1   0.905824  0.579594  0.633121 -0.0535269  0.883561  0.968946
+## NEDD8    0.842764  0.558542  0.612707 -0.0541655  0.893881  0.978680
+## NDUFA1   0.863339  0.557910  0.619832 -0.0619222  0.920683  1.000000
+## SAP18    0.766806  0.515749  0.582464 -0.0667157  0.946979  1.000000
+## SUMO2    1.362264  0.612538  0.694805 -0.0822664  0.952613  1.000000
+
    +
  • 👉 Realiza algunas asunciones estadísticas acerca del ruido
    • +
  • 🤓 Las cuentas UMI típicamente muestran una variación cercana a Poisson si solo consideramos ruido técnico de la preparación de las librerías y la secuenciación
    • +
  • ⚠️ modelGeneVarByPoisson() realiza simulaciones, por lo que necesitamos “ajustar la “semilla” para obtener resultados reproducibles
    • +
  • 🤓 modelGeneVarByPoisson() pueden también simular una variación binomial negativa (variación de Poisson sobredispersada)
    • +
+
plot(dec.pois.pbmc$mean, dec.pois.pbmc$total,
+    pch = 16, xlab = "Mean of log-expression",
+    ylab = "Variance of log-expression"
+)
+curve(metadata(dec.pois.pbmc)$trend(x),
+    col = "dodgerblue", add = TRUE
+)
+

+
    +
  • 🤓 La línea de tendencia basada puramente en ruido técnico tiende a producir componentes “biológicos” más grandes por los genes altamente expresados, que frecuentemente incluyen los genes “house-keeping”
    • +
  • 🤔 Necesitas considerar si tales genes son “interesantes” o no en tu dataset de interés
    • +
+
+
+

4.12 Recordemos propiedades de los datos de sce.416b

+

Este dataset consiste de células de una línea celular de células inmortalizadas mieloides progenitoras de ratón utilizando SmartSeq2

+

Una cantidad constante de spike-in ERCC RNA se agregó a cada lisado celular antes de la prepatación de la librería

+

Descripción aquí

+

Lun, A. T. L., Calero-Nieto, F. J., Haim-Vilmovsky, L., Göttgens, B. & Marioni, J. C. Assessing the reliability of spike-in normalization for analyses of single-cell RNA sequencing data. Genome Res. 27, 1795–1806 (2017)

+
+
+

4.13 Considerando factores experimentales

+
    +
  • Los datos que contienen múltiples batches muy seguido presentan efecto de bloque que pueden crear HGVs artificiales
    • +
  • Se debe identificar los HGVs en cada batch y combinarlos en una única lista de HGVs
    • +
+
# calculando la variacion por bloque
+dec.block.416b <- modelGeneVarWithSpikes(sce.416b,
+    "ERCC",
+    block = sce.416b$block
+)
+dec.block.416b[order(
+    dec.block.416b$bio,
+    decreasing = TRUE
+), ]
+
## DataFrame with 46604 rows and 7 columns
+##               mean     total      tech       bio      p.value          FDR
+##          <numeric> <numeric> <numeric> <numeric>    <numeric>    <numeric>
+## Lyz2       6.61235   13.8619   1.58416   12.2777  0.00000e+00  0.00000e+00
+## Ccl9       6.67841   13.2599   1.44553   11.8143  0.00000e+00  0.00000e+00
+## Top2a      5.81275   14.0192   2.74571   11.2734 3.89855e-137 8.43398e-135
+## Cd200r3    4.83305   15.5909   4.31892   11.2719  1.17783e-54  7.00721e-53
+## Ccnb2      5.97999   13.0256   2.46647   10.5591 1.20380e-151 2.98405e-149
+## ...            ...       ...       ...       ...          ...          ...
+## Gm12816    2.91299  0.842574   6.67730  -5.83472     0.999989     0.999999
+## Gm5786     2.90717  0.879485   6.71686  -5.83738     0.999994     0.999999
+## Rpl9-ps4   3.26421  0.807057   6.64932  -5.84226     0.999988     0.999999
+## Gm13623    2.72788  0.700296   6.63875  -5.93845     0.999998     0.999999
+## Rps12l1    3.15425  0.750775   6.70033  -5.94955     0.999995     0.999999
+##                                                          per.block
+##                                                        <DataFrame>
+## Lyz2       6.35652:13.3748:2.08227:...:6.86819:14.3490:1.08605:...
+## Ccl9       6.68726:13.0778:1.65923:...:6.66956:13.4420:1.23184:...
+## Top2a      5.34891:17.5972:3.91642:...:6.27659:10.4411:1.57501:...
+## Cd200r3    4.60115:15.7870:5.55587:...:5.06496:15.3948:3.08197:...
+## Ccnb2      5.56701:15.4150:3.46931:...:6.39298:10.6362:1.46362:...
+## ...                                                            ...
+## Gm12816  2.86995:0.624143:7.43036:...:2.95604:1.061004:5.92424:...
+## Gm5786   2.96006:0.902872:7.49911:...:2.85427:0.856098:5.93462:...
+## Rpl9-ps4 3.60690:0.543276:7.36805:...:2.92151:1.070839:5.93058:...
+## Gm13623  2.83129:0.852901:7.39442:...:2.62447:0.547692:5.88308:...
+## Rps12l1  3.14399:0.716670:7.57246:...:3.16452:0.784881:5.82819:...
+

Al calcular tendencias específicas por batch se tomarán en cuenta las diferencias en la relación media-varianza entre batches

+

Se deben obtener estimados de los componentes biológico y técnico para cada gene específicos de cada batch, los cuales se promedian entre los batches para crear una única lista de HVGs

+
+
+

4.14 Seleccionando genes altamante variables (high-variable genes, HVGs)

+

Hasta ahora hemos ordenado los genes del más al menos interesantemente variable

+

¿Qué tanto debemos de bajar en la lista para seleccionar nuestros HVGs?

+

Para responder esta pregunta debemos tomar en cuenta lo siguiente: elegir un subset más grande:

+
    +
  • Reduce el riesgo de desechar señal biológica
    • +
  • Incrementa el ruido por la inclusión de genes irrelevantes
    • +
+

Es difícil determinar el balance óptimo porque el rudio en un contexto podría ser una señal útil en otro contexto

+

Discutiremos algunas estrategias para seleccionar HVGs

+
+

4.14.1 Seleccionando HVGs sobre la métrica de varianza

+

La estrategia más simple es seleccionar los top-X genes con los valores más grandes para la métrica relevante de varianza, por ejemplo, la varianza biológica más grande calculada con scran::modelGeneVar()

+

Pro: El usuario puede controlar directamente el número de HVGs

+

Contra: ¿Qué valor de X se debe usar?

+
# Works with modelGeneVar() output
+hvg.pbmc.var <- getTopHVGs(dec.pbmc, n = 1000)
+str(hvg.pbmc.var)
+
##  chr [1:1000] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ...
+
# Works with modelGeneVarWithSpikes() output
+hvg.416b.var <- getTopHVGs(dec.spike.416b, n = 1000)
+str(hvg.416b.var)
+
##  chr [1:1000] "Lyz2" "Ccl9" "Top2a" "Cd200r3" "Ccnb2" "Gm10736" "Hbb-bt" "Mcm5" "Cenpa" "Birc5" "Cd200r4" "Mcm6" ...
+
# Also works with modelGeneCV2() but note `var.field`
+hvg.pbmc.cv2 <- getTopHVGs(dec.cv2.pbmc,
+    var.field = "ratio", n = 1000
+)
+str(hvg.pbmc.cv2)
+
##  chr [1:1000] "GNG11" "PTK7" "RNF208" "TUBA8" "ARHGAP6" "PDZK1IP1" "CTB-55O6.8" "NDST2" "GUCY1B3" "MAP1LC3A" "HYI" ...
+
+

4.14.1.1 Estrategias para seleccionar X

+

Asume que, por ejemplo, no más del 5% de los genes están diferencialmente expresados entre las células de nuestra población:

+
    +
  • Establece X como el 5% de los genes
    • +
+

Normalmente no conocemos el número de genes diferencialmente expresados desde antes, por lo tanto, solo hemos cambiado un número arbitrario por otro número arbitrario

+

RECOMENDACIÓN: Si decides utilizar los top-X HGVs, elige un valor de X y procede con el resto del análisis con la intención de regresar más adelante y probar otros valores, en vez de dedicarle mucho esfuerzo a encontrar el valor óptimo

+
+
+
+

4.14.2 Seleccionando HVGs de acuerdo a su significancia estadística

+

Establece un límite fijo en alguna métrica de significancia estadística. Por ejemplo: algunos de los métodos reportan un p-valor para cada gene, entonces selecciona todos los genes con un p-valor ajustado menor que 0.05

+

Recuerda que las pruebas estadísticas siempre dependen del tamaño de la muestra

+

Ventajas: +* Fácil de implementar +* Menos predecible que la estrategia de los top-X

+

Desventajas: +* Podría priorizar genes con significancia estadística fuerte en vez de significancia biológica fuerte

+
# Works with modelGeneVar() output
+hvg.pbmc.var.2 <- getTopHVGs(dec.pbmc, fdr.threshold = 0.05)
+str(hvg.pbmc.var.2)
+
##  chr [1:629] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ...
+
# Works with modelGeneVarWithSpikes() output
+hvg.416b.var.2 <- getTopHVGs(dec.spike.416b,
+    fdr.threshold = 0.05
+)
+str(hvg.416b.var.2)
+
##  chr [1:2568] "Lyz2" "Ccl9" "Top2a" "Cd200r3" "Ccnb2" "Gm10736" "Hbb-bt" "Mcm5" "Cenpa" "Birc5" "Cd200r4" "Mcm6" ...
+
# Also works with modelGeneCV2() but note `var.field`
+hvg.pbmc.cv2.2 <- getTopHVGs(dec.cv2.pbmc,
+    var.field = "ratio", fdr.threshold = 0.05
+)
+str(hvg.pbmc.cv2.2)
+
##  chr [1:1706] "GNG11" "PTK7" "RNF208" "TUBA8" "ARHGAP6" "PDZK1IP1" "CTB-55O6.8" "NDST2" "GUCY1B3" "MAP1LC3A" "HYI" ...
+
+
+

4.14.3 Seleccionando genes por arriba de la tendencia media-varianza

+

Selecciona todos los genes con una varianza biológica positiva

+

Este es un extremo del equilibrio sesgo-varianza que minimiza el sesgo con el costo de maximizar el ruido

+

Si seguimos esta aproximación, estamos:

+
    +
  • Dándole a la estructura secundaria de la población una oportunidad de manifestarse
    • +
  • Capturando más ruido, lo cual puede reducir la resolución de poblaciones bien separadas enmascarando la señal secundaria que intentamos preservar
    • +
+

Funciona mejor si tenemos datasets altamente heterogeneos que contienen muchos tipos celulares diferentes

+
# Works with modelGeneVar() output
+hvg.pbmc.var.3 <- getTopHVGs(dec.pbmc, var.threshold = 0)
+str(hvg.pbmc.var.3)
+
##  chr [1:12852] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ...
+
# Works with modelGeneVarWithSpikes() output
+hvg.416b.var.3 <- getTopHVGs(dec.spike.416b,
+    var.threshold = 0
+)
+str(hvg.416b.var.3)
+
##  chr [1:11087] "Lyz2" "Ccl9" "Top2a" "Cd200r3" "Ccnb2" "Gm10736" "Hbb-bt" "Mcm5" "Cenpa" "Birc5" "Cd200r4" "Mcm6" ...
+
# Also works with modelGeneCV2() but note `var.field` and
+# value of `var.threshold`
+hvg.pbmc.cv2.3 <- getTopHVGs(dec.cv2.pbmc,
+    var.field = "ratio", var.threshold = 1
+)
+str(hvg.pbmc.cv2.2)
+
##  chr [1:1706] "GNG11" "PTK7" "RNF208" "TUBA8" "ARHGAP6" "PDZK1IP1" "CTB-55O6.8" "NDST2" "GUCY1B3" "MAP1LC3A" "HYI" ...
+
+
+

4.14.4 EJERCICIO: Dibujando los HVGs

+

Para este ejercicio tendrás que repetir la gráfica que muestra la tendencia de la relación media-varianza (ejeX: media de la expresión, ejeY: varianza de la expresión) incluyendo la línea de tendencia obtenida con alguna de las funciones vistas en la primer parte de la clase (modelGeneVar, modelGeneVarWithSpikes, modelGeneCV2). En esta gráfica, deberás colorear los puntos que corresponden a los HGVs obtenidos con algunos de los enfoques revisados

+

RESPUESTA

+
plot(fit.pbmc$mean, fit.pbmc$var,
+    xlab = "Mean of log-expression",
+    ylab = "Variance of log-expression"
+)
+points(fit.pbmc$mean[hvg.pbmc.var], fit.pbmc$var[hvg.pbmc.var], col = "orange")
+curve(fit.pbmc$trend(x), col = "dodgerblue", add = TRUE, lwd = 2)
+

+
+
+

4.14.5 Seleccionando genes de interés a priori

+

Una estrategia contundente es usar sets predefinidos de genes de interés. No hay vergüenza en aprovechar el conocimiento biológivo previo

+

Sin embargo, limita nuestra capacidad de descubrir aspectos nuevos o inesperados de la variación. Por lo tanto, considera esta como una estrategia complementaria a otros tipo de estrategias de selección de HGVs

+

También podrías eliminar listas pre-definidas de genes:

+
    +
  • Genes de proteínas ribosomales o genes mitocondriales son conocidos por encontrarse dentro de los genes más variables y por interferir con análisis posteriores
    • +
+

Sin embargo, tampoco hay que pecar de prevacido, espera a que estos genes demuestren ser problemáticos para removerlos

+
+
+
+

4.15 Poniendo todo junto

+
# Elegimos el 10% de los genes con con componente biologico de variacion mayor
+dec.pbmc <- modelGeneVar(sce.pbmc)
+chosen <- getTopHVGs(dec.pbmc, prop = 0.1)
+str(chosen)
+
##  chr [1:1285] "LYZ" "S100A9" "S100A8" "HLA-DRA" "CD74" "CST3" "TYROBP" "IGKC" "CCL5" "S100A4" "HLA-DRB1" "NKG7" ...
+

Después de esto tenemos varias opciones para imponer nuestra selección de HGVs durante el resto del análisis:

+
    +
  1. Hacer un subset de SCE para quedarnos únicamente con los HGVs
    2. +
  2. Especificar los HGVs en funciones posteriores
    3. +
  3. Magia (altExps)
    4. +
+
+

4.15.1 Quedándonos sólo con los HGVs

+
sce.pbmc.hvg <- sce.pbmc[chosen, ]
+sce.pbmc.hvg
+
## class: SingleCellExperiment 
+## dim: 1285 3968 
+## metadata(1): Samples
+## assays(2): counts logcounts
+## rownames(1285): LYZ S100A9 ... ZNF770 TMEM106C
+## rowData names(2): ID Symbol
+## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1
+## colData names(3): Sample Barcode sizeFactor
+## reducedDimNames(0):
+## mainExpName: NULL
+## altExpNames(0):
+

PRO: Te aseguras de que los métodos posteriores sólo usen estos genes para sus cálculos

+

CONTRA: Los genes no-HGVs son eliminados del nuevo objeto SingleCellExperiment, lo cual hace menos conveniente la interrogación del dataset completo sobre genes que no son HGVs

+
+
+

4.15.2 Especificando los HGVs

+
# Example of specifying HVGs in a downstream function
+# Performing PCA only on the chosen HVGs.
+library(scater)
+sce.pbmc <- runPCA(sce.pbmc, subset_row = chosen)
+sce.pbmc
+
## class: SingleCellExperiment 
+## dim: 33694 3968 
+## metadata(1): Samples
+## assays(2): counts logcounts
+## rownames(33694): RP11-34P13.3 FAM138A ... AC213203.1 FAM231B
+## rowData names(2): ID Symbol
+## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1
+## colData names(3): Sample Barcode sizeFactor
+## reducedDimNames(1): PCA
+## mainExpName: NULL
+## altExpNames(0):
+

Mantiene el objeto SingleCellExperiment original y especifica los genes para usar en funciones posteriores mediante un argumento adicional como subset_row

+

PRO: Es útil si el análisis usa varios conjuntos de HGVs en diferentes pasos

+

CONTRA: Podría ser inconveniente especificar repetidamente el mismo conjunto de HGVs en diferentes pasos

+
+
+

4.15.3 Witchcraft (Brujería)

+
# Add the full SCE to the subsetted data SCE
+altExp(sce.pbmc.hvg, "original") <- sce.pbmc
+sce.pbmc.hvg
+
## class: SingleCellExperiment 
+## dim: 1285 3968 
+## metadata(1): Samples
+## assays(2): counts logcounts
+## rownames(1285): LYZ S100A9 ... ZNF770 TMEM106C
+## rowData names(2): ID Symbol
+## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1
+## colData names(3): Sample Barcode sizeFactor
+## reducedDimNames(0):
+## mainExpName: NULL
+## altExpNames(1): original
+
altExp(sce.pbmc.hvg, "original")
+
## class: SingleCellExperiment 
+## dim: 33694 3968 
+## metadata(1): Samples
+## assays(2): counts logcounts
+## rownames(33694): RP11-34P13.3 FAM138A ... AC213203.1 FAM231B
+## rowData names(2): ID Symbol
+## colnames(3968): AAACCTGAGACAGACC-1 AAACCTGAGGCATGGT-1 ... TTTGTCAGTTAAGACA-1 TTTGTCATCCCAAGAT-1
+## colData names(3): Sample Barcode sizeFactor
+## reducedDimNames(1): PCA
+## mainExpName: NULL
+## altExpNames(0):
+

Utilizando el sistema de “experimento alternartivo” en la clase SingleCellExperiment

+

PRO: Evita algunos problemas a largo plazo cuando el dataset original no está sincronizado con el conjunto filtrado por HVGs

+

CONTRA: Ralentiza todos los análisis subsecuentes

+
+
+
+

4.16 Resumen y recomendaciones

+
    +
  • Es fácil atorarse en este paso debido a la variedad de opciones disponibles
    • +
  • Elige un conjunto de HVGs y continúa con el análisis, recuerda regresar para probar la robustez de tus resultados usando una forma diferente para seleccionar los HVGs
    • +
  • Si tienes spike-ins, trata de usarlos. No obstante, recuerda que los spike-ins no pueden capturar todas las fuentes de variación técnica
    • +
+
+
+

4.17 Recomendaciones para empezar

+

Para CEL-Seq2:

+
    +
  • scran::modelGeneVarWithSpikes()
    • +
+

Para 10X:

+
    +
  • scran::modelGeneVarByPoisson()
    • +
+

Si quieres irte por el lado de conservar demasiados genes:

+
    +
  • scran::getTopHVGs(dec, var.threshold=0)
    • +
+

Y realiza una comparación rápida con, por lo menos, el top-1000 HVGs

+

Regresa al paso de selección de HVG para eliminar genes problemáticos tantas veces como sea necesario

+
+
+

4.18 Detalles de la sesión de R

+
## Información de la sesión de R
+Sys.time()
+
## [1] "2023-07-31 15:44:00 EDT"
+
proc.time()
+
##    user  system elapsed 
+## 422.764  17.018 839.118
+
options(width = 120)
+sessioninfo::session_info()
+
## ─ Session info ───────────────────────────────────────────────────────────────────────────────────────────────────────
+##  setting  value
+##  version  R version 4.3.1 (2023-06-16)
+##  os       macOS Ventura 13.4.1
+##  system   aarch64, darwin20
+##  ui       RStudio
+##  language (EN)
+##  collate  en_US.UTF-8
+##  ctype    en_US.UTF-8
+##  tz       America/New_York
+##  date     2023-07-31
+##  rstudio  2023.06.0+421 Mountain Hydrangea (desktop)
+##  pandoc   3.1.1 @ /Applications/RStudio.app/Contents/Resources/app/quarto/bin/tools/ (via rmarkdown)
+## 
+## ─ Packages ───────────────────────────────────────────────────────────────────────────────────────────────────────────
+##  package                * version   date (UTC) lib source
+##  AnnotationDbi          * 1.62.2    2023-07-02 [1] Bioconductor
+##  AnnotationFilter       * 1.24.0    2023-05-08 [1] Bioconductor
+##  AnnotationHub          * 3.8.0     2023-05-08 [1] Bioconductor
+##  beachmat                 2.16.0    2023-05-08 [1] Bioconductor
+##  beeswarm                 0.4.0     2021-06-01 [1] CRAN (R 4.3.0)
+##  Biobase                * 2.60.0    2023-05-08 [1] Bioconductor
+##  BiocFileCache          * 2.8.0     2023-05-08 [1] Bioconductor
+##  BiocGenerics           * 0.46.0    2023-06-04 [1] Bioconductor
+##  BiocIO                   1.10.0    2023-05-08 [1] Bioconductor
+##  BiocManager              1.30.21.1 2023-07-18 [1] CRAN (R 4.3.0)
+##  BiocNeighbors            1.18.0    2023-05-08 [1] Bioconductor
+##  BiocParallel             1.34.2    2023-05-28 [1] Bioconductor
+##  BiocSingular             1.16.0    2023-05-08 [1] Bioconductor
+##  BiocVersion              3.17.1    2022-12-20 [1] Bioconductor
+##  biomaRt                  2.56.1    2023-06-11 [1] Bioconductor
+##  Biostrings               2.68.1    2023-05-21 [1] Bioconductor
+##  bit                      4.0.5     2022-11-15 [1] CRAN (R 4.3.0)
+##  bit64                    4.0.5     2020-08-30 [1] CRAN (R 4.3.0)
+##  bitops                   1.0-7     2021-04-24 [1] CRAN (R 4.3.0)
+##  blob                     1.2.4     2023-03-17 [1] CRAN (R 4.3.0)
+##  bluster                  1.10.0    2023-05-08 [1] Bioconductor
+##  bookdown                 0.34      2023-05-09 [1] CRAN (R 4.3.0)
+##  bslib                    0.5.0     2023-06-09 [1] CRAN (R 4.3.0)
+##  cachem                   1.0.8     2023-05-01 [1] CRAN (R 4.3.0)
+##  cli                      3.6.1     2023-03-23 [1] CRAN (R 4.3.0)
+##  cluster                  2.1.4     2022-08-22 [1] CRAN (R 4.3.1)
+##  codetools                0.2-19    2023-02-01 [1] CRAN (R 4.3.1)
+##  colorspace               2.1-0     2023-01-23 [1] CRAN (R 4.3.0)
+##  cowplot                  1.1.1     2020-12-30 [1] CRAN (R 4.3.0)
+##  crayon                   1.5.2     2022-09-29 [1] CRAN (R 4.3.0)
+##  curl                     5.0.1     2023-06-07 [1] CRAN (R 4.3.0)
+##  DBI                      1.1.3     2022-06-18 [1] CRAN (R 4.3.0)
+##  dbplyr                 * 2.3.3     2023-07-07 [1] CRAN (R 4.3.0)
+##  DelayedArray             0.26.6    2023-07-02 [1] Bioconductor
+##  DelayedMatrixStats       1.22.0    2023-05-08 [1] Bioconductor
+##  digest                   0.6.33    2023-07-07 [1] CRAN (R 4.3.0)
+##  dplyr                  * 1.1.2     2023-04-20 [1] CRAN (R 4.3.0)
+##  dqrng                    0.3.0     2021-05-01 [1] CRAN (R 4.3.0)
+##  DropletUtils           * 1.20.0    2023-05-08 [1] Bioconductor
+##  edgeR                    3.42.4    2023-06-04 [1] Bioconductor
+##  ellipsis                 0.3.2     2021-04-29 [1] CRAN (R 4.3.0)
+##  EnsDb.Hsapiens.v86     * 2.99.0    2023-07-29 [1] Bioconductor
+##  ensembldb              * 2.24.0    2023-05-08 [1] Bioconductor
+##  evaluate                 0.21      2023-05-05 [1] CRAN (R 4.3.0)
+##  ExperimentHub            2.8.1     2023-07-16 [1] Bioconductor
+##  fansi                    1.0.4     2023-01-22 [1] CRAN (R 4.3.0)
+##  farver                   2.1.1     2022-07-06 [1] CRAN (R 4.3.0)
+##  fastmap                  1.1.1     2023-02-24 [1] CRAN (R 4.3.0)
+##  filelock                 1.0.2     2018-10-05 [1] CRAN (R 4.3.0)
+##  generics                 0.1.3     2022-07-05 [1] CRAN (R 4.3.0)
+##  GenomeInfoDb           * 1.36.1    2023-07-02 [1] Bioconductor
+##  GenomeInfoDbData         1.2.10    2023-06-08 [1] Bioconductor
+##  GenomicAlignments        1.36.0    2023-05-08 [1] Bioconductor
+##  GenomicFeatures        * 1.52.1    2023-07-02 [1] Bioconductor
+##  GenomicRanges          * 1.52.0    2023-05-08 [1] Bioconductor
+##  ggbeeswarm               0.7.2     2023-04-29 [1] CRAN (R 4.3.0)
+##  ggplot2                * 3.4.2     2023-04-03 [1] CRAN (R 4.3.0)
+##  ggrepel                  0.9.3     2023-02-03 [1] CRAN (R 4.3.0)
+##  glue                     1.6.2     2022-02-24 [1] CRAN (R 4.3.0)
+##  gridExtra                2.3       2017-09-09 [1] CRAN (R 4.3.0)
+##  gtable                   0.3.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  HDF5Array                1.28.1    2023-05-08 [1] Bioconductor
+##  here                     1.0.1     2020-12-13 [1] CRAN (R 4.3.0)
+##  highr                    0.10      2022-12-22 [1] CRAN (R 4.3.0)
+##  hms                      1.1.3     2023-03-21 [1] CRAN (R 4.3.0)
+##  htmltools                0.5.5     2023-03-23 [1] CRAN (R 4.3.0)
+##  httpuv                   1.6.11    2023-05-11 [1] CRAN (R 4.3.0)
+##  httr                     1.4.6     2023-05-08 [1] CRAN (R 4.3.0)
+##  igraph                   1.5.0.1   2023-07-23 [1] CRAN (R 4.3.0)
+##  interactiveDisplayBase   1.38.0    2023-05-08 [1] Bioconductor
+##  IRanges                * 2.34.1    2023-07-02 [1] Bioconductor
+##  irlba                    2.3.5.1   2022-10-03 [1] CRAN (R 4.3.0)
+##  jquerylib                0.1.4     2021-04-26 [1] CRAN (R 4.3.0)
+##  jsonlite                 1.8.7     2023-06-29 [1] CRAN (R 4.3.0)
+##  KEGGREST                 1.40.0    2023-05-08 [1] Bioconductor
+##  knitr                    1.43      2023-05-25 [1] CRAN (R 4.3.0)
+##  labeling                 0.4.2     2020-10-20 [1] CRAN (R 4.3.0)
+##  later                    1.3.1     2023-05-02 [1] CRAN (R 4.3.0)
+##  lattice                  0.21-8    2023-04-05 [1] CRAN (R 4.3.1)
+##  lazyeval                 0.2.2     2019-03-15 [1] CRAN (R 4.3.0)
+##  lifecycle                1.0.3     2022-10-07 [1] CRAN (R 4.3.0)
+##  limma                    3.56.2    2023-06-04 [1] Bioconductor
+##  locfit                   1.5-9.8   2023-06-11 [1] CRAN (R 4.3.0)
+##  magrittr                 2.0.3     2022-03-30 [1] CRAN (R 4.3.0)
+##  Matrix                 * 1.6-0     2023-07-08 [1] CRAN (R 4.3.0)
+##  MatrixGenerics         * 1.12.2    2023-07-02 [1] Bioconductor
+##  matrixStats            * 1.0.0     2023-06-02 [1] CRAN (R 4.3.0)
+##  memoise                  2.0.1     2021-11-26 [1] CRAN (R 4.3.0)
+##  metapod                  1.8.0     2023-04-25 [1] Bioconductor
+##  mime                     0.12      2021-09-28 [1] CRAN (R 4.3.0)
+##  munsell                  0.5.0     2018-06-12 [1] CRAN (R 4.3.0)
+##  pillar                   1.9.0     2023-03-22 [1] CRAN (R 4.3.0)
+##  pkgconfig                2.0.3     2019-09-22 [1] CRAN (R 4.3.0)
+##  png                      0.1-8     2022-11-29 [1] CRAN (R 4.3.0)
+##  prettyunits              1.1.1     2020-01-24 [1] CRAN (R 4.3.0)
+##  progress                 1.2.2     2019-05-16 [1] CRAN (R 4.3.0)
+##  promises                 1.2.0.1   2021-02-11 [1] CRAN (R 4.3.0)
+##  ProtGenerics             1.32.0    2023-05-08 [1] Bioconductor
+##  purrr                    1.0.1     2023-01-10 [1] CRAN (R 4.3.0)
+##  R.methodsS3              1.8.2     2022-06-13 [1] CRAN (R 4.3.0)
+##  R.oo                     1.25.0    2022-06-12 [1] CRAN (R 4.3.0)
+##  R.utils                  2.12.2    2022-11-11 [1] CRAN (R 4.3.0)
+##  R6                       2.5.1     2021-08-19 [1] CRAN (R 4.3.0)
+##  rappdirs                 0.3.3     2021-01-31 [1] CRAN (R 4.3.0)
+##  Rcpp                     1.0.11    2023-07-06 [1] CRAN (R 4.3.0)
+##  RCurl                    1.98-1.12 2023-03-27 [1] CRAN (R 4.3.0)
+##  restfulr                 0.0.15    2022-06-16 [1] CRAN (R 4.3.0)
+##  rhdf5                    2.44.0    2023-05-08 [1] Bioconductor
+##  rhdf5filters             1.12.1    2023-05-08 [1] Bioconductor
+##  Rhdf5lib                 1.22.0    2023-05-08 [1] Bioconductor
+##  rjson                    0.2.21    2022-01-09 [1] CRAN (R 4.3.0)
+##  rlang                    1.1.1     2023-04-28 [1] CRAN (R 4.3.0)
+##  rmarkdown                2.23      2023-07-01 [1] CRAN (R 4.3.0)
+##  rprojroot                2.0.3     2022-04-02 [1] CRAN (R 4.3.0)
+##  Rsamtools                2.16.0    2023-06-04 [1] Bioconductor
+##  RSQLite                  2.3.1     2023-04-03 [1] CRAN (R 4.3.0)
+##  rstudioapi               0.15.0    2023-07-07 [1] CRAN (R 4.3.0)
+##  rsvd                     1.0.5     2021-04-16 [1] CRAN (R 4.3.0)
+##  rtracklayer              1.60.0    2023-05-08 [1] Bioconductor
+##  S4Arrays                 1.0.4     2023-05-14 [1] Bioconductor
+##  S4Vectors              * 0.38.1    2023-05-08 [1] Bioconductor
+##  sass                     0.4.7     2023-07-15 [1] CRAN (R 4.3.0)
+##  ScaledMatrix             1.8.1     2023-05-08 [1] Bioconductor
+##  scales                   1.2.1     2022-08-20 [1] CRAN (R 4.3.0)
+##  scater                 * 1.28.0    2023-04-25 [1] Bioconductor
+##  scran                  * 1.28.2    2023-07-23 [1] Bioconductor
+##  scRNAseq               * 2.14.0    2023-04-27 [1] Bioconductor
+##  scuttle                * 1.9.4     2023-01-23 [1] Bioconductor
+##  sessioninfo              1.2.2     2021-12-06 [1] CRAN (R 4.3.0)
+##  shiny                    1.7.4.1   2023-07-06 [1] CRAN (R 4.3.0)
+##  SingleCellExperiment   * 1.22.0    2023-05-08 [1] Bioconductor
+##  sparseMatrixStats        1.12.2    2023-07-02 [1] Bioconductor
+##  statmod                  1.5.0     2023-01-06 [1] CRAN (R 4.3.0)
+##  stringi                  1.7.12    2023-01-11 [1] CRAN (R 4.3.0)
+##  stringr                  1.5.0     2022-12-02 [1] CRAN (R 4.3.0)
+##  SummarizedExperiment   * 1.30.2    2023-06-06 [1] Bioconductor
+##  tibble                   3.2.1     2023-03-20 [1] CRAN (R 4.3.0)
+##  tidyselect               1.2.0     2022-10-10 [1] CRAN (R 4.3.0)
+##  utf8                     1.2.3     2023-01-31 [1] CRAN (R 4.3.0)
+##  vctrs                    0.6.3     2023-06-14 [1] CRAN (R 4.3.0)
+##  vipor                    0.4.5     2017-03-22 [1] CRAN (R 4.3.0)
+##  viridis                  0.6.4     2023-07-22 [1] CRAN (R 4.3.0)
+##  viridisLite              0.4.2     2023-05-02 [1] CRAN (R 4.3.0)
+##  withr                    2.5.0     2022-03-03 [1] CRAN (R 4.3.0)
+##  xfun                     0.39      2023-04-20 [1] CRAN (R 4.3.0)
+##  XML                      3.99-0.14 2023-03-19 [1] CRAN (R 4.3.0)
+##  xml2                     1.3.5     2023-07-06 [1] CRAN (R 4.3.0)
+##  xtable                   1.8-4     2019-04-21 [1] CRAN (R 4.3.0)
+##  XVector                  0.40.0    2023-05-08 [1] Bioconductor
+##  yaml                     2.3.7     2023-01-23 [1] CRAN (R 4.3.0)
+##  zlibbioc                 1.46.0    2023-05-08 [1] Bioconductor
+## 
+##  [1] /Library/Frameworks/R.framework/Versions/4.3-arm64/Resources/library
+## 
+## ──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────
+ +
+
+
+
+
    +

  1. Zheng, G. X. Y. et al. Massively parallel digital transcriptional profiling of single cells. Nat. Commun. 8, 14049 (2017).↩︎

    2. +

  2. Lun, A. T. L., Calero-Nieto, F. J., Haim-Vilmovsky, L., Göttgens, B. & Marioni, J. C. Assessing the reliability of spike-in normalization for analyses of single-cell RNA sequencing data. Genome Res. 27, 1795–1806 (2017)).↩︎

    3. +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + + diff --git "a/docs/soluci\303\263n-de-problemas-con-las-versiones-de-paquetes-de-rstudio..html" "b/docs/soluci\303\263n-de-problemas-con-las-versiones-de-paquetes-de-rstudio..html" new file mode 100644 index 0000000..2817824 --- /dev/null +++ "b/docs/soluci\303\263n-de-problemas-con-las-versiones-de-paquetes-de-rstudio..html" @@ -0,0 +1,510 @@ + + + + + + + 11 Solución de problemas con las versiones de paquetes de Rstudio. | 01_sesion2 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ +
+ +
+ +
+
+ + +
+
+ +
+
+

11 Solución de problemas con las versiones de paquetes de Rstudio.

+

Yalbi Balderas

+

09 de agosto de 2023

+
+

11.1 Diapositivas

+

+ +
+
+
+ +
+
+
+ + +
+
+ + + + + + + + + + + + + + +