tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

renamed 2 to _v2

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-22 11:41:42 +01:00
parent c9d7ea9fad
commit 802d6f8495
18 changed files with 761 additions and 976 deletions
Download patch file Download diff file Expand all files Collapse all files

14
scripts/plotting/plotting_thesis/gg_pairs_all.R
View file

@ -52,13 +52,15 @@ corr_plotdf = corr_data_extract(merged_df3
, extract_scaled_cols = F)
aff_dist_cols = colnames(corr_plotdf)[grep("Dist", colnames(corr_plotdf))]
static_cols = c("Log10(MAF)")
#, "Log10(OR)")
static_cols = c("Log10(MAF)"
, "Log10(OR)"
)
############################################################
#=============================================
# Creating masked df for affinity data
#=============================================
corr_affinity_df = corr_plotdf
#----------------------
# Mask affinity columns
#-----------------------
@ -70,7 +72,7 @@ if (tolower(gene)%in%geneL_ppi2){
}
# if (tolower(gene)%in%geneL_na){
# corr_affinity_df[corr_affinity_df["NA-Dist"]>DistCutOff,"mCSM-NA"]=0
# corr_affinity_df[corr_affinity_df["NCA-Dist"]>DistCutOff,"mCSM-NA"]=0
# }
# count 0
@ -89,10 +91,12 @@ corr_ps_colnames = c(static_cols
, "Dynamut2"
, aff_dist_cols
, "dst_mode")
corr_df_ps = corr_plotdf[, corr_ps_colnames]
# Plot #1
plot_corr_df_ps = my_gg_pairs(corr_df_ps, plot_title="Stability estimates")
##########################################################
#================
# Conservation
@ -101,7 +105,7 @@ corr_conservation_cols = c( static_cols
, "ConSurf"
, "SNAP2"
, "PROVEAN"
, aff_dist_cols
#, aff_dist_cols
, "dst_mode"
)
@ -166,6 +170,6 @@ png(paste0(outdir_images
,"_CorrC.png"), height =7, width=7, unit="in",res=300)
cowplot::plot_grid(ggmatrix_gtable(plot_corr_df_aff),
labels = "C",
labels = "C",
label_size = 12)
dev.off()