tweaks

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

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"