adde format_results_dynamut2.py and ran shiny scripts for barplots

scripts/functions/test_bp.R

@@ -6,21 +6,24 @@ getwd()
 # load functions, data, dirs, hardocded vars
 # that will be used in testing the functions
 #===========================================
-source("plotting_data.R")
-infile = "/home/tanu/git/Data/streptomycin/output/gid_comb_stab_struc_params.csv"
+drug = "streptomycin"
+gene = "gid"
+
+source("plotting_data.R")
+
+infile = paste0("~/git/Data/", drug, "/output/", gene, "_comb_stab_struc_params.csv")
+infile_df = read.csv(infile)
+
+lig_dist = 5
+pd_df = plotting_data(infile_df
+                      , lig_dist_colname = 'ligand_distance'
+                      , lig_dist_cutoff = lig_dist)
 
-pd_df = plotting_data(infile)
 my_df       = pd_df[[1]]
 my_df_u     = pd_df[[2]]
 my_df_u_lig = pd_df[[3]]
 dup_muts    = pd_df[[4]]
 
-source("plotting_globals.R")
-drug = "streptomycin"
-gene = "gid"
-
-import_dirs(drug, gene)
-
 #=====================
 # functions to test 
 #=====================
@@ -40,7 +43,9 @@ print(paste0("plot filename:", basic_bp_duet))
 # function only
 stability_count_bp(plotdf = my_df_u
                , df_colname = "duet_outcome"
-               , leg_title = "DUET outcome")
+               , leg_title = "DUET outcome"
+               , label_categories = c("Destabilising", "Stabilising")
+               , leg_position = "top")
 
 dev.off()
 
@@ -54,10 +59,13 @@ svg(plot_basic_bp_ligand)
 print(paste0("plot filename:", basic_bp_ligand))
 
 # function only
+lig_dist = 10
 stability_count_bp(plotdf = my_df_u_lig
                , df_colname = "ligand_outcome"
                , leg_title = "Ligand outcome"
-               , bp_plot_title = "Sites < 10 Ang of ligand")
+               , yaxis_title = paste0("Number of nsSNPs\nLigand dist: <", lig_dist, "\u212b")
+               #, bp_plot_title = "Sites < 10 Ang of ligand"
+               )
 
 dev.off()
 # ------------------------------