Figure 3A

Code

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

# Read in sample.
sample <- readRDS("/omics/odcf/analysis/OE0145_projects/idh_gliomas/Figures_Science/revision/IDH_gliomas_book/datasets/microglia_primary.rds")

# Define colors.
cluster_cols <- c("Mg Homeostatic"= "#ECA809",                          
                  "Mg Inflammatory TAMs" = "#043362",                  
                  "Mg Activated"= "#9A031E",                 
                  "Mg Resident−like TAMs"= "#009FF5",                    
                  "BMD Anti−inflammatory TAMs"= "#BC5210",            
                  "Mg Phagocytic"= "#279185",                 
                  "Mg IFNg TAMs"= "#7EB356",                   
                  "Mg Stressed TAMs"= "#AC70FF",                  
                  "Mg Inflammatory ICAM1+"= "#63412C",                  
                  "BAMs" = "#5F0F40")

Code

p <- SCpubr::do_DimPlot(sample = sample,
                        colors.use = cluster_cols,
                        font.size = 20,
                        raster = TRUE,
                        raster.dpi = 2048,
                        pt.size = 4,
                        legend.icon.size = 8,
                        legend.ncol = 2,
                        na.value = "grey50",
                        axis.title.face = "plain")