1 Background
After fertilization but prior to the onset of zygotic transcription, the C. elegans zygote cleaves asymmetrically to create the anterior AB and posterior P1 blastomeres, each of which goes on to generate distinct cell lineages. To understand how patterns of RNA inheritance and abundance arise after this first asymmetric cell division, we pooled hand-dissected AB and P1 blastomeres and performed RNA-seq (Study GSE59943).
1.1 Read alignment and Count table
We downloaded the SRA files, converted them to fastQ files and aligned them using the Hisat2 mapper through the QuasR and RHisat2 package in the script elegansAlignmentCountTable on the SGA course website.
Next, we import the count table derived from the full fastQ files for the elegans experiment. The count table can be found on the elegansFastq branch of the course website.
Note, that you can also work with the count table that you generated using the small fastQ files that contained 2% of the reads of the full fastQ files.
geneCounts <- read.csv("https://raw.githubusercontent.com/statOmics/SGA/elegansFastq/elegansCountTableFull.csv",row.names = 1)
head(geneCounts)Note, that
The first column is the size of the gene.
The remaining columns are the count for each fastq files.
The column names of the count columns are the names of the SRA files, which can be used to link them to the experiment.
1.2 Meta Data
The information which connects the sample information from GEO with the SRA run id is downloaded from SRA using the Send to: File button.
Download SRA info to link sample info to info sequencing:
Go to corresponding SRA page and save the information via the “Send to: File button”.
Select RunInfo!
Note, that this file is already included on the elegansFastq branch of
the course github site.
sraInfo <- read.csv("https://raw.githubusercontent.com/statOmics/SGA/elegansFastq/SraRunInfo.csv")1.2.1 Read background experiment
Via the GEOquery package we can access the meta data from experiments that are deposited to GEO.
suppressPackageStartupMessages({
library( "GEOquery" )
})
gse <- getGEO("GSE59943")## Found 2 file(s)## GSE59943-GPL13657_series_matrix.txt.gz## GSE59943-GPL9269_series_matrix.txt.gzlength(gse)## [1] 2There are two objects because there were runs with two different machines. Combine the data from both files and add sample name column in order to be able to link the info to that from SRA names in the count table.
pdata <- rbind(pData(gse[[1]]),pData(gse[[2]]))
pdata$SampleName <- rownames(pdata)1.2.2 Combine experiment metadata with metadata on the SRA sequencing files
The SampleName column that we made in the pdata object can be used to combine the metadata from SRA files to that of GEO experiment data.
sraInfo$SampleName## [1] "GSM1462555" "GSM1462556" "GSM1462557" "GSM1462558" "GSM1462559"
## [6] "GSM1462560"pdata$SampleName## [1] "GSM1462557" "GSM1462558" "GSM1462559" "GSM1462560" "GSM1462555"
## [6] "GSM1462556"The order is different, but we can use merge to combine them correctly.
pdata <- merge(pdata,sraInfo,by="SampleName")The run is also the name of the SRA file so we will be able to link alignment file name to the experiment via the SRA file info.
2 Differential analysis
2.1 Preprocessing
2.1.1 Setup count object edgeR
- First column of geneCounts is the size of the gene, so we will not use it to setup the count object for edgeR.
suppressPackageStartupMessages({
library(edgeR)
})
dge <- DGEList(geneCounts[,-1])cbind(pdata$Run,colnames(dge))## [,1] [,2]
## [1,] "SRR1532959" "SRR1532959"
## [2,] "SRR1532960" "SRR1532960"
## [3,] "SRR1532961" "SRR1532961"
## [4,] "SRR1532962" "SRR1532962"
## [5,] "SRR1532963" "SRR1532963"
## [6,] "SRR1532964" "SRR1532964"pdata$Run==colnames(dge)## [1] TRUE TRUE TRUE TRUE TRUE TRUEThe order of the samples in the metadata and count table is the same
We replace the name of the SRA file with the title of the experiment, which is more informative
colnames(dge) <- pdata$title- The pdata contains many variables with long names. We extract rename the relevant data and convert it into a factor.
pdata <- pdata %>%
dplyr::rename(cellType = `cell type:ch1`,
rep = `replicate:ch1`,
model = Model) %>%
mutate(
cellType = as.factor(cellType),
rep = as.factor(rep),
model = as.factor(model)
)2.1.2 Filtering
We typically filter out lowly abundant genes. Note, that the filtering is independent from the downstream analysis.
The main rationale is to keeps genes that have at least min.count reads in a worthwhile number samples. The latter is derived from the design matrix.
Indeed, genes with many zeros do not contain a lot of information and the DE analysis is typically underpowered for these genes.
design <- model.matrix(~cellType, pdata)
keep <- filterByExpr(dge, design)
dge <- dge[keep, ,keep.lib.sizes=FALSE]The option keep.lib.sizes=FALSE causes the library sizes to be recomputed after the filtering. This is generally recommended, although the effect on the downstream analysis is usually small.
2.1.3 Normalisation to correct for differences in effective library size
The normalisation factors/offsets have to be calculated upon filtering.
dge <- calcNormFactors(dge)2.2 Data exploration
One way to reduce dimensionality is the use of multidimensional scaling (MDS). For MDS, we first have to calculate all pairwise distances between our objects (samples in this case), and then create a (typically) two-dimensional representation where these pre-calculated distances are represented as accurately as possible. This means that depending on how the pairwise sample distances are defined, the two-dimensional plot can be very different, and it is important to choose a distance that is suitable for the type of data at hand.
edgeR contains a function plotMDS, which operates on a DGEList object and generates a two-dimensional MDS representation of the samples. The default distance between two samples can be interpreted as the “typical” log fold change between the two samples, for the genes that are most different between them (by default, the top 500 genes, but this can be modified). We generate an MDS plot from the DGEList object dge, coloring by the treatment and using different plot symbols for different cell lines.
plotMDS(dge, top = 500, col=as.double(pdata$cellType))
The cell types of the same repeat seem to line up.
2.3 Modeling
2.3.1 Estimation of the dispersion
We first estimate the overdispersion.
dge <- estimateDisp(dge, design)
plotBCV(dge)
2.3.2 Fitting and inference
Finally, we fit the generalized linear model and perform the test. In the glmLRT function, we indicate which coefficient (which column in the design matrix) that we would like to test for. It is possible to test more general contrasts as well, and the user guide contains many examples on how to do this. The topTags function extracts the top-ranked genes. You can indicate the adjusted p-value cutoff, and/or the number of genes to keep.
Here we keep all genes in the toptable:
n = nrow(dge)
fit <- glmFit(dge, design)
lrt <- glmLRT(fit, coef = "cellTypeP1")
ttAll <-topTags(lrt, n = nrow(dge)) # all genesNote, that the workflow with glmFit and glmLRT is no longer the default workflow of edgeR. We will discuss this when we focus on the technical aspects of differential analysis of RNASeq data.
2.4 Plots
2.4.1 P-values
We first assess the p-values.
qplot(ttAll$table$PValue,geom = "histogram", binwidth=.05,center=0.025) + xlab("pvalue")
2.4.2 Volcano and MA plot
Next we make a volcano plot and an MA plot.
library(ggplot2)
volcano<- ggplot(
ttAll$table,
aes(x=logFC,y=-log10(PValue),
color=FDR<0.05)) +
geom_point() + scale_color_manual(values=c("black","red"))
volcano
plotSmear(lrt, de.tags = row.names(ttAll$table |> filter(FDR < 0.05)))
2.4.3 Heatmap
Another way of representing the results of a differential expression analysis is to construct a heatmap of the top differentially expressed genes. Here, we would expect the contrasted sample groups to cluster separately. A heatmap is a “color coded expression matrix”, where the rows and columns are clustered using hierarchical clustering. Typically, it should not be applied to counts, but works better with transformed values. Here we show how it can be applied to log CPM values.
sigNames <- row.names(ttAll$table |> filter(FDR < 0.05))
heatmap(cpm(dge)[sigNames, ])
2.5 List of significant genes
ttAll$table |> filter(FDR < 0.05)2.6 What did we forgot to account for in the data analysis?
Assess the MDS plot and the first figure in the paper that published the data (Osborne et all, 2013, DOI: 10.1371/journal.pgen.1005117).
knitr::include_graphics("https://europepmc.org/articles/PMC4395330/bin/pgen.1005117.g001.jpg")
Differential transcript abundance in AB and P1 blastomeres following the first embryonic division. (Source: Osborne et all, 2013, DOI: 10.1371/journal.pgen.1005117)
Which source of variability is not included in the analysis and how could we account for this? Try to adjust the script accordingly.
3 Session Info
With respect to reproducibility, it is highly recommended to include a session info in your script so that readers of your output can see your particular setup of R.
sessionInfo()## R version 4.2.3 (2023-03-15)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 22.04.3 LTS
##
## Matrix products: default
## BLAS: /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
## LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.20.so
##
## locale:
## [1] LC_CTYPE=C.UTF-8 LC_NUMERIC=C LC_TIME=C.UTF-8
## [4] LC_COLLATE=C.UTF-8 LC_MONETARY=C.UTF-8 LC_MESSAGES=C.UTF-8
## [7] LC_PAPER=C.UTF-8 LC_NAME=C LC_ADDRESS=C
## [10] LC_TELEPHONE=C LC_MEASUREMENT=C.UTF-8 LC_IDENTIFICATION=C
##
## attached base packages:
## [1] stats graphics grDevices datasets utils methods base
##
## other attached packages:
## [1] edgeR_3.38.4 limma_3.52.1 GEOquery_2.64.2
## [4] Biobase_2.56.0 BiocGenerics_0.42.0 R.utils_2.11.0
## [7] R.oo_1.24.0 R.methodsS3_1.8.1 forcats_0.5.1
## [10] stringr_1.4.1 dplyr_1.0.9 purrr_0.3.4
## [13] readr_2.1.2 tidyr_1.2.0 tibble_3.1.7
## [16] ggplot2_3.3.6 tidyverse_1.3.2
##
## loaded via a namespace (and not attached):
## [1] httr_1.4.3 sass_0.4.1 splines_4.2.3
## [4] jsonlite_1.8.0 modelr_0.1.8 bslib_0.3.1
## [7] assertthat_0.2.1 highr_0.9 BiocManager_1.30.18
## [10] renv_0.15.4 googlesheets4_1.0.0 cellranger_1.1.0
## [13] yaml_2.3.5 pillar_1.7.0 backports_1.4.1
## [16] lattice_0.20-45 glue_1.6.2 digest_0.6.29
## [19] rvest_1.0.2 colorspace_2.0-3 htmltools_0.5.2
## [22] pkgconfig_2.0.3 broom_0.8.0 haven_2.5.0
## [25] scales_1.2.0 tzdb_0.3.0 googledrive_2.0.0
## [28] farver_2.1.0 generics_0.1.2 ellipsis_0.3.2
## [31] withr_2.5.0 cli_3.3.0 magrittr_2.0.3
## [34] crayon_1.5.1 readxl_1.4.0 evaluate_0.16
## [37] fs_1.5.2 fansi_1.0.3 xml2_1.3.3
## [40] tools_4.2.3 data.table_1.14.2 hms_1.1.1
## [43] gargle_1.2.0 lifecycle_1.0.1 munsell_0.5.0
## [46] reprex_2.0.1 locfit_1.5-9.5 compiler_4.2.3
## [49] jquerylib_0.1.4 rlang_1.0.2 grid_4.2.3
## [52] labeling_0.4.2 rmarkdown_2.14 gtable_0.3.0
## [55] DBI_1.1.2 curl_4.3.2 R6_2.5.1
## [58] lubridate_1.8.0 knitr_1.40.1 fastmap_1.1.0
## [61] utf8_1.2.2 stringi_1.7.8 Rcpp_1.0.8.3
## [64] vctrs_0.4.1 dbplyr_2.1.1 tidyselect_1.1.2
## [67] xfun_0.33