setwd("~/git/LSHTM_analysis/scripts/plotting/")
source("~/git/LSHTM_analysis/scripts/Header_TT.R")
source("../functions/lf_bp.R")
# ================================================
# Data: run get_plotting_data.R
# to get the long format data to test this function 
# drug = "streptomycin" 
# gene = "gid"
# source("get_plotting_dfs.R")
# ==================================================

######################
# Make plot: ggplot
######################
lf_bp(lf_df = lf_encomddg
      , p_title = "ENCoM-DDG"
      , colour_categ = "ddg_encom_outcome"
      , x_grp = "mutation_info_labels"
      , y_var = "param_value"
      , facet_var = "param_type"
      , n_facet_row = 1
      , y_scales = "free_y"
      , colour_bp_strip = "khaki2"
      , dot_size = 3
      , dot_transparency = 0.3
      , violin_quantiles = c(0.25, 0.5, 0.75)
      , my_ats = 22 # axis text size
      , my_als = 20 # axis label size
      , my_fls = 20 # facet label size
      , my_pts = 22 # plot title size 
      , make_boxplot = F
      , bp_width = "auto"
      , add_stats = T
      , stat_grp_comp = c("DM", "OM")
      , stat_method = "wilcox.test"
      , my_paired = FALSE
      , stat_label = c("p.format", "p.signif") )

#wilcox.test(wf_encomdds$`EnCOM ΔΔS`[wf_encomdds$mutation_info == "DM"]
#            , wf_encomdds$`EnCOM ΔΔS`[wf_encomdds$mutation_info == "OM"])

######################
# Make plot: plotly
######################
# FIXME: This labels are not working as I want!
# lf_bp_plotly(lf_df = lf_deepddg
#       , p_title = "DeepDDG"
#       , colour_categ = "deepddg_outcome"
#       , x_grp = "mutation_info"
#       , y_var = "param_value"
#       , facet_var = "param_type"
#       , n_facet_row = 1
#       , y_scales = "free_y"
#       , colour_bp_strip = "khaki2"
#       , dot_size = 3
#       , dot_transparency = 0.3
#       , violin_quantiles = c(0.25, 0.5, 0.75)
#  )