johrpan/ubigen
1
0
Fork 0
mirror of https://github.com/johrpan/ubigen.git synced 2025-10-26 19:57:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

scripts: Add Venn diagram

Browse source
This commit is contained in:
Elias Projahn 2024-10-02 11:01:58 +02:00
parent 1ed42c53aa
commit 765760df33
1 changed files with 7 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

7
scripts/comparison.R
View file

@ -17,6 +17,13 @@ datasets <- list(
"Joshi 2022" = j2022 "Joshi 2022" = j2022
) )
VennDiagram::venn.diagram(datasets, filename = NULL, disable.logging = TRUE) |>
ggplot2::ggsave(file = here("scripts/output/venn.svg"), device = "svg")
partitions <- VennDiagram::get.venn.partitions(datasets) |> data.table()
genes_venn <- partitions[1]$..values..[[1]]
write(genes_venn, file = here("scripts/output/genes_venn.txt"))
ranking_gtex <- ubigen::rank_genes(ubigen::gtex_all) ranking_gtex <- ubigen::rank_genes(ubigen::gtex_all)
ranking_cmap <- ubigen::rank_genes(ubigen::cmap) ranking_cmap <- ubigen::rank_genes(ubigen::cmap)