Compartmap extends methods to perform A/B compartment inference from (sc)ATAC-seq and methylation arrays originally proposed by Fortin and Hansen 2015, Genome Biology (https://genomebiology.biomedcentral.com/articles/10.1186/s13059-015-0741-y). Originally, Fortin and Hansen demonstrated that chromatin conformation could be inferred from (sc)ATAC-seq, bisulfite sequencing, DNase-seq and methylation arrays, similar to the results provided by HiC. Thus, in addition to the base information provided by the aforementioned assays, chromatin state could also be inferred. However, these data were restricted to group level A/B compartment inference.
Here, we propose a method to infer sample-level chromatin state, thus enabling (un)supervised clustering of samples/cells based on A/B compartments. To accomplish this, we employ a shrinkage estimator towards a global or targeted mean, using either chromsome or genome-wide information from ATAC-seq and methylation arrays (e.g. Illumina 450k or EPIC arrays). The output from compartmap can then be embedded and visualized using your favorite clustering approach, such as UMAP/tSNE.
library(compartmap) library(GenomicRanges) library(Homo.sapiens) #Load in some example methylation array data #This data is derived from https://f1000research.com/articles/5-1281/v3 #data(meth_array_450k_chr14, package = "compartmap") #Load in some example ATAC-seq data data(bulkATAC_raw_filtered_chr14, package = "compartmap")
To process the data (filter and perform compartment inference) a wrapper function is used for all data types.
#Process chr14 of the example array data #Note: running this in parallel is memory hungry! #array_compartments <- getCompartments(array.data.chr14, type = "array", parallel = FALSE, chrs = "chr14") #Process chr14 of the example ATAC-seq data atac_compartments <- getCompartments(filtered.data.chr14, type = "atac", parallel = FALSE, chrs = "chr14")
Once the data have been processed, the object returned is a matrix of sample-level A/B compartments (samples as columns and compartments as rows). These are normalized to chromosome length and each compartment corresponds to a non-empty bin (based on the desired resolution - 1 Mb is the default). From here, the data can be visualized using something like plotAB for individual samples or your favorite clustering method. Additionally, these can be overlaid in something like IGV to see where compartments are changing between samples/conditions.
#Plotting individual samples #For 7 samples #Adjust ylim as necessary par(mar=c(1,1,1,1)) par(mfrow=c(7,1)) plotAB(array_compartments[,1], ylim = c(-0.2, 0.2), unitarize = TRUE) plotAB(array_compartments[,2], ylim = c(-0.2, 0.2), unitarize = TRUE, top.col = "goldenrod") plotAB(array_compartments[,3], ylim = c(-0.2, 0.2), unitarize = TRUE, top.col = "darkblue") plotAB(array_compartments[,4], ylim = c(-0.2, 0.2), unitarize = TRUE, top.col = "red") plotAB(array_compartments[,5], ylim = c(-0.2, 0.2), unitarize = TRUE, top.col = "black") plotAB(array_compartments[,6], ylim = c(-0.2, 0.2), unitarize = TRUE, top.col = "cyan") plotAB(array_compartments[,7], ylim = c(-0.2, 0.2), unitarize = TRUE, top.col = "seagreen") #Embed with UMAP for unsupervised clustering library(uwot) embed_compartments <- umap(t(array_compartments), n_neighbors = 3, metric = "manhattan", n_components = 5, n_trees = 100) #Visualize embedding library(vizier) library(plotly) embed_plotly(embed_compartments, tooltip = colnames(embed_compartments), show_legend = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.