From 00ca7a6b27da9b8a7ce53682a7f2fc8896b3d87c Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Fri, 2 Sep 2022 09:49:06 +0100
Subject: [PATCH] tweaks

---
 scripts/functions/dashboard_ggpairs.R | 13 ++++++++++++-
 scripts/functions/lf_bp.R             |  2 +-
 2 files changed, 13 insertions(+), 2 deletions(-)

diff --git a/scripts/functions/dashboard_ggpairs.R b/scripts/functions/dashboard_ggpairs.R
index 88f8444..f934fe6 100644
--- a/scripts/functions/dashboard_ggpairs.R
+++ b/scripts/functions/dashboard_ggpairs.R
@@ -2,7 +2,18 @@ dashboard_ggpairs=function(
     plot_df, plot_title
     , tt_args_size = 2.5
     , gp_args_size = 2.5
+    , method = "spearman"
 ){
+  if (method == "spearman") {
+    title="ρ"
+    
+  }
+  if (method == "kendall") {
+    title="τ"
+  }
+  else {
+    title="P"
+  }
   ggpairs(
     plot_df,
     columns = 1:(ncol(plot_df)-1),
@@ -11,7 +22,7 @@ dashboard_ggpairs=function(
         'cor', # ggally_cor()
         method = "spearman",
         use = "pairwise.complete.obs",
-        title="ρ",
+        title=title,
         digits=2,
         justify_labels = "centre",
         title_args=list(size=tt_args_size, colour="black"),#2.5
diff --git a/scripts/functions/lf_bp.R b/scripts/functions/lf_bp.R
index e983df2..9ae8b89 100644
--- a/scripts/functions/lf_bp.R
+++ b/scripts/functions/lf_bp.R
@@ -7,7 +7,7 @@
 #############################
 
 lf_bp <- function(lf_df = lf_duet
-                  , p_title = "DUET-DDG"
+                  , p_title = ""
                   , colour_categ = "outcome"
                   , x_grp = "mutation_info_labels"
                   , y_var = "param_value"