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

tweaks

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-02 09:49:06 +01:00
parent c845d96102
commit 00ca7a6b27
2 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scripts/functions/dashboard_ggpairs.R
View file

@ -2,7 +2,18 @@ dashboard_ggpairs=function(
plot_df, plot_title plot_df, plot_title
, tt_args_size = 2.5 , tt_args_size = 2.5
, gp_args_size = 2.5 , gp_args_size = 2.5
, method = "spearman"
){ ){
if (method == "spearman") {
title="ρ"
}
if (method == "kendall") {
title="τ"
}
else {
title="P"
}
ggpairs( ggpairs(
plot_df, plot_df,
columns = 1:(ncol(plot_df)-1), columns = 1:(ncol(plot_df)-1),
@ -11,7 +22,7 @@ dashboard_ggpairs=function(
'cor', # ggally_cor() 'cor', # ggally_cor()
method = "spearman", method = "spearman",
use = "pairwise.complete.obs", use = "pairwise.complete.obs",
title="ρ", title=title,
digits=2, digits=2,
justify_labels = "centre", justify_labels = "centre",
title_args=list(size=tt_args_size, colour="black"),#2.5 title_args=list(size=tt_args_size, colour="black"),#2.5

2
scripts/functions/lf_bp.R
View file

@ -7,7 +7,7 @@
############################# #############################
lf_bp <- function(lf_df = lf_duet lf_bp <- function(lf_df = lf_duet
, p_title = "DUET-DDG" , p_title = ""
, colour_categ = "outcome" , colour_categ = "outcome"
, x_grp = "mutation_info_labels" , x_grp = "mutation_info_labels"
, y_var = "param_value" , y_var = "param_value"