@@ -18,17 +18,16 @@ library(echoannot)
1818
1919#### Import data
2020
21+ * Note:* These functions download remote bigwig files from UCSC, which
22+ requires network access and may take several minutes.
23+
2124``` r
2225
2326superenhancers <- echoannot :: get_NOTT2019_superenhancer_interactome()
2427enhancers_promoters <- echoannot :: NOTT2019_get_promoter_interactome_data()
2528peaks <- echoannot :: NOTT2019_get_epigenomic_peaks()
2629```
2730
28- ## Importing previously downloaded files: /github/home/.cache/R/echoannot/NOTT2019_epigenomic_peaks.rds
29-
30- ## ++ NOTT2019:: 634,540 ranges retrieved.
31-
3231#### Plot
3332
3433``` r
@@ -37,97 +36,19 @@ dat <- echodata::BST1
3736histo_out <- echoannot :: NOTT2019_epigenomic_histograms(dat = dat )
3837```
3938
40- ## NOTT2019:: Creating epigenomic histograms plot
41-
42- ## + Inferring genomic limits for window: 1x
43-
44- ## Constructing GRanges query using min/max ranges across one or more chromosomes.
45-
46- ## Downloading data from UCSC.
47-
48- ## Importing... [1] exvivo_H3K27ac_tbp
49-
50- ## Importing... [2] microglia_H3K27ac
51-
52- ## Importing... [3] neurons_H3K27ac
53-
54- ## Importing... [4] oligodendrocytes_H3K27ac
55-
56- ## Importing... [5] astrocytes_H3K27ac
57-
58- ## Importing... [6] exvivo_atac_tbp
59-
60- ## Importing... [7] microglia_atac
61-
62- ## Importing... [8] neurons_atac
63-
64- ## Importing... [9] oligodendrocytes_atac
65-
66- ## Importing... [10] astrocytes_atac
67-
68- ## Importing... [11] microglia_H3K4me3
69-
70- ## Importing... [12] neurons_H3K4me3
71-
72- ## Importing... [13] oligodendrocytes_H3K4me3
73-
74- ## Importing... [14] astrocytes_H3K4me3
75-
76- ## Importing previously downloaded files: /github/home/.cache/R/echoannot/NOTT2019_epigenomic_peaks.rds
77-
78- ## ++ NOTT2019:: 634,540 ranges retrieved.
79-
80- ## dat is already a GRanges object.
81-
82- ## 543 query SNP(s) detected with reference overlap.
83-
84- ## + Calculating max histogram height
85-
86- ## + Converting label units to Mb.
87-
88- ## using coord:genome to parse x scale
89- ## using coord:genome to parse x scale
90-
91- ## Warning in !vapply(ggl, fixed, logical(1L)) & !vapply(PlotList, is, "Ideogram",
92- ## : longer object length is not a multiple of shorter object length
93-
94- ![ ] ( cell_type_specific_epigenomics_files/figure-html/nott2019_plot-1.png )
95-
9639In addition to the plot object, tables of both raw read ranges and
9740called peaks are included in the output list.
9841
9942``` r
10043
10144knitr :: kable(head(histo_out $ data $ raw ))
102- ```
103-
104- | seqnames | start | end | width | strand | score | Cell_type | Assay | Experiment |
105- | :---| ---:| ---:| ---:| :---| ---:| :---| :---| :---|
106- | chr4 | 14737349 | 14737411 | 63 | \* | 0.6 | microglia | H3K27ac | exvivo H3K27ac tbp |
107- | chr4 | 14737488 | 14737562 | 75 | \* | 0.2 | microglia | H3K27ac | exvivo H3K27ac tbp |
108- | chr4 | 14737692 | 14737766 | 75 | \* | 0.6 | microglia | H3K27ac | exvivo H3K27ac tbp |
109- | chr4 | 14737782 | 14737856 | 75 | \* | 0.4 | microglia | H3K27ac | exvivo H3K27ac tbp |
110- | chr4 | 14738054 | 14738126 | 73 | \* | 0.6 | microglia | H3K27ac | exvivo H3K27ac tbp |
111- | chr4 | 14738127 | 14738128 | 2 | \* | 1.2 | microglia | H3K27ac | exvivo H3K27ac tbp |
112-
113- ``` r
114-
11545knitr :: kable(head(histo_out $ data $ peaks ))
11646```
11747
118- | seqnames | start | end | width | strand | Assay | Marker | Cell_type | Cell_type.1 | Assay.1 | Experiment | y |
119- | :---| ---:| ---:| ---:| :---| :---| :---| :---| :---| :---| :---| ---:|
120- | 4 | 14745668 | 14746002 | 335 | \* | peaks | Olig2 | oligo | microglia | H3K27ac | exvivo H3K27ac tbp | -1.1e-06 |
121- | 4 | 14751439 | 14751837 | 399 | \* | peaks | Olig2 | oligo | microglia | H3K27ac | exvivo H3K27ac tbp | -1.1e-06 |
122- | 4 | 14768551 | 14768735 | 185 | \* | peaks | PU1 | microglia | microglia | H3K27ac | exvivo H3K27ac tbp | -1.1e-06 |
123- | 4 | 14768704 | 14769257 | 554 | \* | peaks | PU1 | microglia | microglia | H3K27ac | exvivo H3K27ac tbp | -1.1e-06 |
124- | 4 | 14771450 | 14773099 | 1650 | \* | peaks | LHX2 | astrocytes | microglia | H3K27ac | exvivo H3K27ac tbp | -1.1e-06 |
125- | 4 | 14829018 | 14829146 | 129 | \* | peaks | NeuN | neurons | microglia | H3K27ac | exvivo H3K27ac tbp | -1.1e-06 |
126-
12748### Corces2020
12849
12950` echoannot ` also includes data generated by
130- [ “Corces2019 ”] ( https://doi.org/10.1038/s41588-020-00721-x ) :
51+ [ “Corces2020 ”] ( https://doi.org/10.1038/s41588-020-00721-x ) :
13152
13253> Corces, M.R., Shcherbina, A., Kundu, S. et al. Single-cell epigenomic
13354> analyses implicate candidate causal variants at inherited risk loci
@@ -147,10 +68,6 @@ scATACseq_peaks <- echoannot::get_CORCES2020_scATACseq_peaks()
14768
14869#### Plot
14970
150- * Note:* This chunk is kept as ` eval=FALSE ` because it depends on the
151- ` dat ` variable from a prior analysis and
152- [ ` ggbio::autoplot ` ] ( https://ggplot2.tidyverse.org/reference/autoplot.html ) .
153-
15471``` r
15572
15673peak_dat <- echoannot :: granges_overlap(
@@ -172,7 +89,7 @@ ggbio::autoplot(peak_dat,
17289utils :: sessionInfo()
17390```
17491
175- ## R Under development (unstable) (2026-03-12 r89607 )
92+ ## R Under development (unstable) (2026-03-15 r89629 )
17693 ## Platform: x86_64-pc-linux-gnu
17794 ## Running under: Ubuntu 24.04.4 LTS
17895 ##
@@ -253,7 +170,7 @@ utils::sessionInfo()
253170 ## [105] bookdown_0.46 RBGL_1.87.0
254171 ## [107] ProtGenerics_1.43.0 scales_1.4.0
255172 ## [109] Biobase_2.71.0 lmom_3.2
256- ## [111] png_0.1-9 knitr_1.51
173+ ## [111] png_0.1-8 knitr_1.51
257174 ## [113] rstudioapi_0.18.0 tzdb_0.5.0
258175 ## [115] reshape2_1.4.5 rjson_0.2.23
259176 ## [117] checkmate_2.3.4 curl_7.0.0
@@ -265,19 +182,18 @@ utils::sessionInfo()
265182 ## [129] grid_4.6.0 vctrs_0.7.1
266183 ## [131] cluster_2.1.8.2 htmlTable_2.4.3
267184 ## [133] evaluate_1.0.5 readr_2.2.0
268- ## [135] GenomicFeatures_1.63.1 mvtnorm_1.3-6
185+ ## [135] GenomicFeatures_1.63.1 mvtnorm_1.3-5
269186 ## [137] cli_3.6.5 compiler_4.6.0
270187 ## [139] Rsamtools_2.27.1 rlang_1.1.7
271- ## [141] crayon_1.5.3 labeling_0.4.3
272- ## [143] aws.signature_0.6.0 plyr_1.8.9
273- ## [145] forcats_1.0.1 fs_1.6.7
274- ## [147] stringi_1.8.7 viridisLite_0.4.3
275- ## [149] BiocParallel_1.45.0 Biostrings_2.79.5
276- ## [151] lazyeval_0.2.2 Matrix_1.7-4
277- ## [153] downloadR_1.0.0 dir.expiry_1.19.0
278- ## [155] BSgenome_1.79.1 patchwork_1.3.2
279- ## [157] hms_1.1.4 bit64_4.6.0-1
280- ## [159] ggplot2_4.0.2 KEGGREST_1.51.1
281- ## [161] SummarizedExperiment_1.41.1 haven_2.5.5
282- ## [163] memoise_2.0.1 bslib_0.10.0
283- ## [165] bit_4.6.0 readxl_1.4.5
188+ ## [141] crayon_1.5.3 aws.signature_0.6.0
189+ ## [143] plyr_1.8.9 forcats_1.0.1
190+ ## [145] fs_1.6.7 stringi_1.8.7
191+ ## [147] BiocParallel_1.45.0 Biostrings_2.79.5
192+ ## [149] lazyeval_0.2.2 Matrix_1.7-4
193+ ## [151] downloadR_1.0.0 dir.expiry_1.19.0
194+ ## [153] BSgenome_1.79.1 patchwork_1.3.2
195+ ## [155] hms_1.1.4 bit64_4.6.0-1
196+ ## [157] ggplot2_4.0.2 KEGGREST_1.51.1
197+ ## [159] SummarizedExperiment_1.41.1 haven_2.5.5
198+ ## [161] memoise_2.0.1 bslib_0.10.0
199+ ## [163] bit_4.6.0 readxl_1.4.5
0 commit comments