From 996d67b423bc4ee5033f53c78ca2f8be93a52ae0 Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Mon, 13 Sep 2021 10:24:41 +0100
Subject: [PATCH] added pretty colnames to corr_data.R

---
 scripts/plotting/corr_data.R | 53 ++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)

diff --git a/scripts/plotting/corr_data.R b/scripts/plotting/corr_data.R
index d33efc5..3120763 100644
--- a/scripts/plotting/corr_data.R
+++ b/scripts/plotting/corr_data.R
@@ -32,6 +32,32 @@ corr_cols_select <- c("mutationinformation", drug, "mutation_info_labels"
 
 corr_df_m2 = merged_df2[,colnames(merged_df2)%in%corr_cols_select]
 
+#-----------------------
+# formatting: some cols
+# Add pretty colnames
+#-----------------------
+corr_df_m2_f <- corr_df_m2 %>% 
+  rename(
+      DUET       = duet_stability_change
+    , 'mCSM-lig' = ligand_affinity_change
+    , FoldX      = ddg_foldx
+    , DeepDDG    = deepddg
+    , ASA        = asa
+    , RSA        = rsa
+    , KD         = kd_values
+    , RD         = rd_values
+    , MAF        = af
+    , 'Log (OR)' = log10_or_mychisq
+    , '-Log (P)' = neglog_pval_fisher
+    , Dynamut    = ddg_dynamut        
+    , 'ENCoM-DDG'= ddg_encom
+    , mCSM       = ddg_mcsm
+    , SDM        = ddg_sdm           
+    , 'DUET-d'   = ddg_duet
+    , 'ENCoM-DDS'= dds_encom
+    , Dynamut2   = ddg_dynamut2
+    , 'mCSM-NA'  = mcsm_na_affinity ) 
+
 #===========================
 # Corr data for plots: PS
 # short_df ps: ~merged_df3
@@ -53,6 +79,33 @@ if (nrow(corr_df_m3) == nrow(merged_df3) && nrow(merged_df3_comp) == check1) {
       , "\nGot: ", check1)
 }
 
+#-----------------------
+# formatting: some cols
+# Add pretty colnames
+#-----------------------
+corr_df_m3_f <- corr_df_m3 %>% 
+  rename(
+      DUET       = duet_stability_change
+    , 'mCSM-lig' = ligand_affinity_change
+    , FoldX      = ddg_foldx
+    , DeepDDG    = deepddg
+    , ASA        = asa
+    , RSA        = rsa
+    , KD         = kd_values
+    , RD         = rd_values
+    , MAF        = af
+    , 'Log (OR)' = log10_or_mychisq
+    , '-Log (P)' = neglog_pval_fisher
+    , Dynamut    = ddg_dynamut        
+    , 'ENCoM-DDG'= ddg_encom
+    , mCSM       = ddg_mcsm
+    , SDM        = ddg_sdm           
+    , 'DUET-d'   = ddg_duet
+    , 'ENCoM-DDS'= dds_encom
+    , Dynamut2   = ddg_dynamut2
+    , 'mCSM-NA'  = mcsm_na_affinity ) 
+
+########################################################################
 cat("\nCorr Data created:"
 , "\n==================================="
 , "\ncorr_df_m2: created from merged_df2"