From 454e1e1c4d7ddecb119e41f061addf3ee03f1a18 Mon Sep 17 00:00:00 2001
From: Yuka Suzuki <yuka.suzuki@pasteur.fr>
Date: Fri, 22 Dec 2023 16:09:30 +0100
Subject: [PATCH] cleanup
---
Figures_manuscript/scripts/Fig_SUP6_h2_missing.R | 9 +++------
1 file changed, 3 insertions(+), 6 deletions(-)
diff --git a/Figures_manuscript/scripts/Fig_SUP6_h2_missing.R b/Figures_manuscript/scripts/Fig_SUP6_h2_missing.R
index 8aa4e8b..cb59736 100644
--- a/Figures_manuscript/scripts/Fig_SUP6_h2_missing.R
+++ b/Figures_manuscript/scripts/Fig_SUP6_h2_missing.R
@@ -3,9 +3,8 @@ library(ggplot2)
library(cowplot)
library(psych)
-trait_features = fread("V:\\5._ARTICLE_DISCOVERABILITY\\Figures\\inputs\\72trait_data_2023-07-07.csv")
-#trait_features = fread("V:\\5._ARTICLE_DISCOVERABILITY\\Tables\\Supp\\Output\\72trait_data_2023-07-07.csv")
-number_of_gwas_hits = fread("V:\\5._ARTICLE_DISCOVERABILITY\\Figures\\inputs\\GWAS_hit_count_plink.csv")
+trait_features = fread("../inputs/72trait_data_2023-07-07.csv")
+number_of_gwas_hits = fread("../inputs/GWAS_hit_count_plink.csv")
setkey(number_of_gwas_hits,"trait_name")
@@ -33,9 +32,7 @@ p_mes = p_mes + theme(legend.pos="top")
# legend_poly <- get_legend(p_poly + theme(legend.pos="top",legend.box.margin = margin(0, 12, 0, 0)))
# legend_mes <- get_legend(p_mes+theme(legend.pos="top",legend.box.margin = margin(0, 12, 0, 0)))
-#"/mnt/zeus/JASS/5._ARTICLE_DISCOVERABILITY/Figures/outputs/Figure_SUPP_h2_missing.png"
-
-png("V:\\5._ARTICLE_DISCOVERABILITY\\Figures\\outputs\\Figure_SUPP_h2_missing.png", width=10, height=4,unit="in",res=300)
+png("../outputs/Figure_SUPP_h2_missing.png", width=10, height=4,unit="in",res=300)
#plot_grid(p_poly, legend_poly, p_mes, legend_mes, ncol=4, labels=c("A","","B",""),rel_widths=c(4,1, 4,1))
plot_grid(p_poly, p_mes, ncol=2, labels=c("A","B"),rel_widths=c(4,4))
dev.off()
--
GitLab