diff --git a/Figures_manuscript/scripts/Fig_SUP6_h2_missing.R b/Figures_manuscript/scripts/Fig_SUP6_h2_missing.R index 8aa4e8bbd7b85541500a8485b32e4111015c0909..cb59736aec0a06201d8e509e4fe6835e9e21aba2 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()