Skip to content

GitLab

Commit 3850ff23 authored by Giorgia Giacomini's avatar Giorgia Giacomini
Browse files

Update Figure_5b.R

parent 1e116618
Hide whitespace changes
Inline Side-by-side
Script/Figure_5b.R
View file @ 3850ff23
...@@ -8,7 +8,7 @@ library(pheatmap) ...@@ -8,7 +8,7 @@ library(pheatmap)
library(Seurat) library(Seurat)
# Loads the GSEA results from an RDS file # Loads the GSEA results from an RDS file
gsea_res <- readRDS("/beegfs/scratch/ric.gregori/ric.gregori/Infertility/object/gsea_intracluster_OAT_NOA_vs_FER.rds") gsea_res <- readRDS("gsea_intracluster_OAT_NOA_vs_FER.rds")
# Removes comparisons between NOA and OAT # Removes comparisons between NOA and OAT
index<- c(3, 6 ,9 ,12, 15, 18, 21, 24, 27) index<- c(3, 6 ,9 ,12, 15, 18, 21, 24, 27)
...@@ -162,4 +162,4 @@ gsea_tile_plot <-ggplot(data = total_cast_melt, mapping = aes(x = cluster, y = I ...@@ -162,4 +162,4 @@ gsea_tile_plot <-ggplot(data = total_cast_melt, mapping = aes(x = cluster, y = I
low='#005295',high='#770000', mid = 'white') # + low='#005295',high='#770000', mid = 'white') # +
# Save the plot to a file # Save the plot to a file
ggsave(filename = "GSEA_tile_plot.png", width = 7, height = 6, plot =gsea_tile_plot) ggsave(filename = "GSEA_tile_plot.png", width = 7, height = 6, plot =gsea_tile_plot)
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment