Skip to content

Analysis of specifity for a given receiver cell type

Shao, Xin edited this page Dec 24, 2024 · 6 revisions

To weigh the regulatory contribution of cell-type-specific miRNAs in senders on the same target gene in receivers and identify the key inhibitor of the target gene in case all the co-inhibitor miRNAs are lowly expressed in the receiver cells, we have incorporated the analysis of specifity for a given receiver cell type based on the inferred MiTIs and miRNA scores with the function plot_target_heatmap.Step-by-step procedures are shown below:

[1] load the example data

> load(paste0(system.file(package = 'miRTalk'), "/extdata/example.rda"))

> dim(sc_data)
[1] 22898   515

> table(sc_celltype)
sc_celltype
  Bcell Myeloid Stromal   Tcell   Tumor 
     83      38      23      54     317 

[2] create miRTalk object using single-cell transcriptomics data

> obj <- create_miRTalk(sc_data = sc_data,
                        sc_celltype = sc_celltype,
                        species = "Human",
                        condition = rep("condition",length(sc_celltype)),
                        evbiog = evbiog,
                        risc = risc,
                        ritac = ritac)
Warning: The following features are not present in the object: AGO2, not searching for symbol synonyms

[3] Find highly variable target genes with DEGs and HVGs with find_hvtg

> obj <- find_hvtg(object = obj)

[4] Find expressed miRNAs among all cells and generate background distribution for permutation test with find_miRNA.

> obj <- find_miRNA(object = obj,
                    mir_info = mir_info,
                    mir2tar = mir2tar)

[5] Infer cell-cell communication mediated by EV-derived miRNAs from senders to receivers

> obj <- find_miRTalk(obj, if_doParallel = F)
[condition] 
[++++++++++++++++++++++++++++++] Finished:100% time:00:04:57

> obj
An object of class miRTalk 
460 EV-derived miRNA-target interactions

[6] Analysis of specifity for a given receiver cell type, here, B cell

> plot_target_heatmap(object = obj, celltype = "Bcell")

image