Figure S1F

Code

# Enrique Blanco Carmona
# e.blancocarmona@kitz-heidelberg.de
# PhD Student – Clinical Bioinformatics
# Division of Pediatric Neurooncology (B062)
# DKFZ-KiTZ | Germany

sample <- readRDS("/omics/odcf/analysis/OE0145_projects/idh_gliomas/Figures_Science/revision/IDH_gliomas_book/datasets/integrated_primary_AS.rds")
sample$relabelling <- as.character(sample$relabelling)
sample$relabelling[sample$relabelling == "RA"] <- "RE"
Seurat::Idents(sample) <- sample$relabelling

Code

p <- SCpubr::do_CorrelationPlot(sample,
                                group.by = "relabelling",
                                font.size = 20,
                                legend.title = "P. Corr.",
                                legend.length = 12,
                                legend.width = 0.5,
                                legend.framecolor = "grey50",
                                legend.tickcolor = "white",
                                legend.framewidth = 0.2,
                                legend.tickwidth = 0.2,
                                axis.text.face = "plain",
                                mode = "hvg", 
                                min.cutoff = -0.25,
                                max.cutoff = 0.25)