NADfinder Guide
8 May 2019
Package
NADfinder 1.8.1
Contents
1 Introduction
Nucleoli serve as major organizing hubs for the three-dimensional structure of mammalian heterochromatin1. Specific loci, termed nucleolar-associated domains (NADs), form frequent three-dimensional associations with nucleoli2. Early mammalian development is a critical period to study NAD biological function, because interactions between pericentromeric chromatin and perinucleolar regions are particularly dynamic during embryonic development4. Here, we developed a Bioconductor package NADfinder for bioinformatic analysis of the NAD-seq data, including normalization, smoothing, peak calling, peak trimming and annotation. We demonstrate the application of NADfinder in mapping the NADs in the mouse genome, determining how these associations are altered during embryonic stem cell (ESC) differentiation, and develop tools for study of these higher-order chromosome interactions in fixed and live single cells (Fig. 1).
Fig. 1 Workflow for NAD peak identification. Read counts are summarized for each 50kb moving window with step size of 1kb for nucleolar and genomic samples. Log2 ratio between nucleolar and genomic samples was computed for each window, followed by local background correction, smoothing, peak calling, filtering and annotation.
2 Single pair of nucleoleus associated DNA and whole genomic DNA sequencing
samples
Here is an example to use NADfinder for peak calling.
2.1 Coverage calculation
Here is the code snippet for calculating coverage with a sliding window in a given step along the genome using a pair of bam files from genomic sample as background and purified nucleoleus-associated DNA as target signal.
## load the library
library(NADfinder)
library(SummarizedExperiment)
## test bam files in the package
path <- system.file("extdata", package = "NADfinder", lib.loc = NULL,
mustWork = TRUE)
bamFiles <- dir(path, ".bam$")
## window size for tile of genome. Here we set it to a big window size,
## ie., 50k because of the following two reasons:
## 1. peaks of NADs are wide;
## 2. data will be smoothed better with bigger window size.
ws <- 50000
## step for tile of genome
step <- 5000
## Set the background.
## 0.25 means 25% of the lower ratios will be used for background training.
backgroundPercentage <- 0.25
## Count the reads for each window with a given step in the genome.
## The output will be a GRanges object.
library(BSgenome.Mmusculus.UCSC.mm10)se <- tileCount(reads=file.path(path, bamFiles),
genome=Mmusculus,
windowSize=ws,
step=step,
mode = IntersectionNotStrict,
dataOverSamples = FALSE)Here we load the pre-computed coverage data single.count to save build time.
data(single.count)
se <- single.countFor quality asessment, cumulativePercentage can be used to plot the
cumulative sums of sorted read counts for nucleolus-associated DNA and
whole genomic DNA. We expect the cumulative sum in the genomic DNA to
be close to a straight line because the coverage for the genomic DNA
sample should be uniformly distributed. Unlike ChIP-seq data, the
cumulative sum for the nucleoleus sample will not exhibit sharp changes
because most of NADs are broad regions as wide as 100 kb. However, we
should observe clear differences between the two curves.
## Calculate ratios for peak calling. We use nucleoleus vs genomic DNA.
dat <- log2se(se, nucleolusCols = "N18.subsampled.srt.bam",
genomeCols ="G18.subsampled.srt.bam",
transformation = "log2CPMRatio")
## Smooth the ratios for each chromosome.
## We found that for each chromosome, the ratios are higher in 5'end than 3'end.
datList <- smoothRatiosByChromosome(dat, chr = c("chr18", "chr19"), N = 100)
## check the difference between the cumulative percentage tag allocation
## in genome and nucleoleus samples.
cumulativePercentage(datList[["chr18"]])
2.2 Call peaks
Before peak calling, the function smoothRatiosByChromosome is used for
log ratios calculation, normalization and smoothing.
The peaks will be called if the ratios are significantly higher than
chromosome-specific background determined by trimPeaks.
The following figure shows the peaks (black rectangles) called
using normalized (green curve) and smoothed (red curve) log2 ratios.
## check the results of smooth function
chr18 <- datList[["chr18"]] ## we only have reads in chr18 in test data.
chr18subset <- subset(chr18, seq.int(floor(length(chr18)/10))*10)
chr18 <- assays(chr18subset)
ylim <- range(c(chr18$ratio[, 1],
chr18$bcRatio[, 1],
chr18$smoothedRatio[, 1]))
plot(chr18$ratio[, 1],
ylim=ylim*c(.9, 1.1),
type="l", main="chr18")
abline(h=0, col="cyan", lty=2)
points(chr18$bcRatio[, 1], type="l", col="green")
points(chr18$smoothedRatio[, 1], type="l", col="red")
legend("topright",
legend = c("raw_ratio", "background_corrected", "smoothed"),
fill = c("black", "green", "red"))
## call peaks for each chromosome
peaks <- lapply(datList, trimPeaks,
backgroundPercentage=backgroundPercentage,
cutoffPvalue=0.05, countFilter=1000)
## plot the peaks in "chr18"
peaks.subset <- countOverlaps(rowRanges(chr18subset), peaks$chr18)>=1
peaks.run <- rle(peaks.subset)
run <- cumsum(peaks.run$lengths)
run <- data.frame(x0=c(1, run[-length(run)]), x1=run)
#run <- run[peaks.run$values, , drop=FALSE]
rect(xleft = run$x0, ybottom = ylim[2]*.75,
xright = run$x1, ytop = ylim[2]*.8,
col = "black")
## convert list to a GRanges object
peaks.gr <- unlist(GRangesList(peaks))The following shows how to save or export the called peaks for downstream analysis.
## output the peaks
write.csv(as.data.frame(unname(peaks.gr)), "peaklist.csv", row.names=FALSE)
## export peaks to a bed file.
library(rtracklayer)
#export(peaks.gr, "peaklist.bed", "BED")3 Samples with more than one replicate
Data analysis with multiple biological replicates follows the same steps as that of a single paired samples, i.e., coverage calculation, normalization and smoothing, and peak calling. The only difference is that limma is used to determine the statistical significance in peak calling.
library(NADfinder)
## bam file path
path <- system.file("extdata", package = "NADfinder", lib.loc = NULL,
mustWork = TRUE)
bamFiles <- dir(path, ".bam$")
f <- bamFiles
ws <- 50000
step <- 5000
library(BSgenome.Mmusculus.UCSC.mm10)se <- tileCount(reads=file.path(path, f),
genome=Mmusculus,
windowSize=ws,
step=step)Load saved coverage.
data(triplicate.count)
se <- triplicate.count
## Calculate ratios for nucleoloar vs genomic samples.
se <- log2se(se,
nucleolusCols = c("N18.subsampled.srt-2.bam",
"N18.subsampled.srt-3.bam",
"N18.subsampled.srt.bam" ),
genomeCols = c("G18.subsampled.srt-2.bam",
"G18.subsampled.srt-3.bam",
"G18.subsampled.srt.bam"),
transformation = "log2CPMRatio")
seList<- smoothRatiosByChromosome(se, chr="chr18")
cumulativePercentage(seList[["chr18"]])
peaks <- lapply(seList, callPeaks,
cutoffAdjPvalue=0.05, countFilter=1)
peaks <- unlist(GRangesList(peaks))
peaks## GRanges object with 557 ranges and 6 metadata columns:
## seqnames ranges strand | N18.subsampled.srt.2.bam
## <Rle> <IRanges> <Rle> | <numeric>
## chr18.1 chr18 2956001-3138000 * | 1.97568648812916
## chr18.2 chr18 3141001-3249000 * | 2.1544379015058
## chr18.3 chr18 3302001-3381000 * | 1.82705096318418
## chr18.4 chr18 3413001-3455000 * | 1.91336569386678
## chr18.5 chr18 3480001-3526000 * | 1.84524499394483
## ... ... ... ... . ...
## chr18.557 chr18 90001001-90086000 * | 2.01710665097692
## chr18.558 chr18 90087001-90182000 * | 2.05569754137179
## chr18.559 chr18 90291001-90421000 * | 1.2231252965598
## chr18.560 chr18 90465001-90554000 * | 0.849524365257808
## chr18.561 chr18 90645001-90649000 * | 1.93710202665383
## N18.subsampled.srt.3.bam N18.subsampled.srt.bam
## <numeric> <numeric>
## chr18.1 1.97568648812916 1.97568648812916
## chr18.2 2.1544379015058 2.1544379015058
## chr18.3 1.82705096318418 1.82705096318418
## chr18.4 1.91336569386678 1.91336569386678
## chr18.5 1.84524499394483 1.84524499394483
## ... ... ...
## chr18.557 2.01710665097692 2.01710665097692
## chr18.558 2.05569754137179 2.05569754137179
## chr18.559 1.2231252965598 1.2231252965598
## chr18.560 0.849524365257808 0.849524365257808
## chr18.561 1.93710202665383 1.93710202665383
## AveSig P.value adj.P.Val
## <numeric> <numeric> <numeric>
## chr18.1 1.97568648812916 6.07774744657402e-45 1.04607251207039e-43
## chr18.2 2.1544379015058 6.19622758967668e-45 1.04607251207039e-43
## chr18.3 1.82705096318418 7.11951046762163e-45 1.04607251207039e-43
## chr18.4 1.91336569386678 7.10161737193469e-45 1.04607251207039e-43
## chr18.5 1.84524499394483 7.40228192152164e-45 1.04607251207039e-43
## ... ... ... ...
## chr18.557 2.01710665097692 7.000815500399e-45 1.04607251207039e-43
## chr18.558 2.05569754137179 6.51280307843472e-45 1.04607251207039e-43
## chr18.559 1.2231252965598 8.00000092665794e-45 1.04607251207039e-43
## chr18.560 0.849524365257808 1.65778201195244e-44 1.89984418683201e-43
## chr18.561 1.93710202665383 2.38741283949983e-43 1.77613314108961e-42
## -------
## seqinfo: 66 sequences (1 circular) from mm10 genomeThe peaks can be visualized along the ideogram using plotSig.
ideo <- readRDS(system.file("extdata", "ideo.mm10.rds",
package = "NADfinder"))
plotSig(ideo=ideo, grList=GRangesList(peaks), mcolName="AveSig",
layout=list("chr18"),
parameterList=list(types="heatmap"))
4 Session Info
sessionInfo()## R version 3.6.0 (2019-04-26)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 18.04.2 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.9-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.9-bioc/R/lib/libRlapack.so
##
## locale:
## [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
## [3] LC_TIME=en_US.UTF-8 LC_COLLATE=C
## [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
## [7] LC_PAPER=en_US.UTF-8 LC_NAME=C
## [9] LC_ADDRESS=C LC_TELEPHONE=C
## [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
##
## attached base packages:
## [1] stats4 parallel stats graphics grDevices utils datasets
## [8] methods base
##
## other attached packages:
## [1] BSgenome.Mmusculus.UCSC.mm10_1.4.0 BSgenome_1.52.0
## [3] rtracklayer_1.44.0 Biostrings_2.52.0
## [5] XVector_0.24.0 NADfinder_1.8.1
## [7] SummarizedExperiment_1.14.0 DelayedArray_0.10.0
## [9] BiocParallel_1.18.0 matrixStats_0.54.0
## [11] Biobase_2.44.0 GenomicRanges_1.36.0
## [13] GenomeInfoDb_1.20.0 IRanges_2.18.0
## [15] S4Vectors_0.22.0 BiocGenerics_0.30.0
## [17] BiocStyle_2.12.0
##
## loaded via a namespace (and not attached):
## [1] backports_1.1.4 Hmisc_4.2-0
## [3] AnnotationHub_2.16.0 corrplot_0.84
## [5] BiocFileCache_1.8.0 plyr_1.8.4
## [7] lazyeval_0.2.2 splines_3.6.0
## [9] ggplot2_3.1.1 digest_0.6.18
## [11] ensembldb_2.8.0 htmltools_0.3.6
## [13] GO.db_3.8.2 checkmate_1.9.3
## [15] csaw_1.18.0 magrittr_1.5
## [17] memoise_1.1.0 baseline_1.2-1
## [19] grImport2_0.1-5 cluster_2.0.9
## [21] InteractionSet_1.12.0 limma_3.40.0
## [23] prettyunits_1.0.2 jpeg_0.1-8
## [25] colorspace_1.4-1 signal_0.7-6
## [27] blob_1.1.1 rappdirs_0.3.1
## [29] xfun_0.6 dplyr_0.8.0.1
## [31] crayon_1.3.4 RCurl_1.95-4.12
## [33] graph_1.62.0 VariantAnnotation_1.30.0
## [35] survival_2.44-1.1 glue_1.3.1
## [37] EmpiricalBrownsMethod_1.12.0 gtable_0.3.0
## [39] zlibbioc_1.30.0 seqinr_3.4-5
## [41] Rgraphviz_2.28.0 SparseM_1.77
## [43] scales_1.0.0 futile.options_1.0.1
## [45] DBI_1.0.0 edgeR_3.26.0
## [47] bibtex_0.4.2 Rcpp_1.0.1
## [49] plotrix_3.7-5 metap_1.1
## [51] htmlTable_1.13.1 xtable_1.8-4
## [53] progress_1.2.0 foreign_0.8-71
## [55] bit_1.1-14 Formula_1.2-3
## [57] htmlwidgets_1.3 httr_1.4.0
## [59] RColorBrewer_1.1-2 acepack_1.4.1
## [61] pkgconfig_2.0.2 XML_3.98-1.19
## [63] nnet_7.3-12 Gviz_1.28.0
## [65] dbplyr_1.4.0 locfit_1.5-9.1
## [67] tidyselect_0.2.5 rlang_0.3.4
## [69] later_0.8.0 polynom_1.4-0
## [71] AnnotationDbi_1.46.0 munsell_0.5.0
## [73] tools_3.6.0 RSQLite_2.1.1
## [75] ade4_1.7-13 evaluate_0.13
## [77] stringr_1.4.0 rGADEM_2.32.0
## [79] yaml_2.2.0 knitr_1.22
## [81] bit64_0.9-7 purrr_0.3.2
## [83] randomForest_4.6-14 AnnotationFilter_1.8.0
## [85] RBGL_1.60.0 mime_0.6
## [87] formatR_1.6 biomaRt_2.40.0
## [89] rstudioapi_0.10 compiler_3.6.0
## [91] curl_3.3 png_0.1-7
## [93] interactiveDisplayBase_1.22.0 MotIV_1.40.0
## [95] preseqR_4.0.0 ATACseqQC_1.8.0
## [97] tibble_2.1.1 stringi_1.4.3
## [99] idr_1.2 futile.logger_1.4.3
## [101] GenomicFeatures_1.36.0 ChIPpeakAnno_3.18.0
## [103] lattice_0.20-38 ProtGenerics_1.16.0
## [105] Matrix_1.2-17 trackViewer_1.20.1
## [107] multtest_2.40.0 pillar_1.3.1
## [109] BiocManager_1.30.4 Rdpack_0.11-0
## [111] grImport_0.9-1.1 data.table_1.12.2
## [113] bitops_1.0-6 gbRd_0.4-11
## [115] httpuv_1.5.1 R6_2.4.0
## [117] latticeExtra_0.6-28 bookdown_0.9
## [119] promises_1.0.1 gridExtra_2.3
## [121] KernSmooth_2.23-15 motifStack_1.28.0
## [123] dichromat_2.0-0 lambda.r_1.2.3
## [125] MASS_7.3-51.4 assertthat_0.2.1
## [127] seqLogo_1.50.0 GenomicScores_1.8.0
## [129] regioneR_1.16.1 GenomicAlignments_1.20.0
## [131] Rsamtools_2.0.0 GenomeInfoDbData_1.2.1
## [133] hms_0.4.2 rpart_4.1-15
## [135] VennDiagram_1.6.20 grid_3.6.0
## [137] rmarkdown_1.12 biovizBase_1.32.0
## [139] shiny_1.3.2 base64enc_0.1-3References
1. Politz, J. C. R., Scalzo, D. & Groudine, M. The redundancy of the mammalian heterochromatic compartment. Current opinion in genetics & development 37, 1–8 (2016).
2. Németh, A. et al. Initial genomics of the human nucleolus. PLoS Genet 6, e1000889 (2010).
3. Koningsbruggen, S. van et al. High-resolution whole-genome sequencing reveals that specific chromatin domains from most human chromosomes associate with nucleoli. Molecular biology of the cell 21, 3735–3748 (2010).
4. Aguirre-Lavin, T. et al. 3D-fish analysis of embryonic nuclei in mouse highlights several abrupt changes of nuclear organization during preimplantation development. BMC developmental biology 12, 1 (2012).
5. Popken, J. et al. Reprogramming of fibroblast nuclei in cloned bovine embryos involves major structural remodeling with both striking similarities and differences to nuclear phenotypes of in vitro fertilized embryos. Nucleus 5, 555–589 (2014).