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

stability and cons revised bp out

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-16 14:45:31 +01:00
parent f244741e83
commit cd9b1ad245
2 changed files with 222 additions and 125 deletions
Download patch file Download diff file Expand all files Collapse all files

114
scripts/plotting/plotting_thesis/basic_barplots2.R
View file

@ -321,6 +321,120 @@ sensP
# coord_flip() + scale_x_reverse()
# sensP2
##############################################################
#===================
# Stability
#===================
# duetP
duetP = stability_count_bp(plotdf = df3
, df_colname = "duet_outcome"
, leg_title = "mCSM-DUET"
#, label_categories = labels_duet
, yaxis_title = "Number of nsSNPs"
, leg_position = "none"
, subtitle_text = "mCSM-DUET"
, bar_fill_values = c("#F8766D", "#00BFC4")
, subtitle_colour= "black"
, sts = 10
, lts = 8
, ats = 12
, als = 11
, ltis = 11
, geom_ls = 2.5
)
duetP
# foldx
foldxP = stability_count_bp(plotdf = df3
, df_colname = "foldx_outcome"
#, leg_title = "FoldX"
#, label_categories = labels_foldx
, yaxis_title = ""
, leg_position = "none"
, subtitle_text = "FoldX"
, bar_fill_values = c("#F8766D", "#00BFC4")
, sts = 10
, lts = 8
, ats = 12
, als = 11
, ltis = 11
, geom_ls = 2.5
)
# deepddg
deepddgP = stability_count_bp(plotdf = df3
, df_colname = "deepddg_outcome"
#, leg_title = "DeepDDG"
#, label_categories = labels_deepddg
, yaxis_title = ""
, leg_position = "none"
, subtitle_text = "DeepDDG"
, bar_fill_values = c("#F8766D", "#00BFC4")
, sts = 10
, lts = 8
, ats = 12
, als = 11
, ltis = 11
, geom_ls = 2.5
)
# deepddg
dynamut2P = stability_count_bp(plotdf = df3
, df_colname = "ddg_dynamut2_outcome"
#, leg_title = "Dynamut2"
#, label_categories = labels_ddg_dynamut2_outcome
, yaxis_title = ""
, leg_position = "none"
, subtitle_text = "Dynamut2"
, bar_fill_values = c("#F8766D", "#00BFC4")
, sts = 10
, lts = 8
, ats = 12
, als = 11
, ltis = 11
, geom_ls = 2.5
)
dynamut2P
# provean
proveanP = stability_count_bp(plotdf = df3
, df_colname = "provean_outcome"
#, leg_title = "PROVEAN"
#, label_categories = labels_provean
, yaxis_title = "Number of nsSNPs"
, leg_position = "none" # top
, subtitle_text = "PROVEAN"
, bar_fill_values = c("#D01C8B", "#F1B6DA") # light pink and deep
, sts = 10
, lts = 8
, ats = 12
, als = 11
, ltis = 11
, geom_ls = 2.5
)
# snap2
snap2P = stability_count_bp(plotdf = df3
, df_colname = "snap2_outcome"
#, leg_title = "SNAP2"
#, label_categories = labels_snap2
, yaxis_title = ""
, leg_position = "none" # top
, subtitle_text = "SNAP2"
, bar_fill_values = c("#D01C8B", "#F1B6DA") # light pink and deep
, sts = 10
, lts = 8
, ats = 12
, als = 11
, ltis = 11
, geom_ls = 2.5)
##############################################################
##############################
# FIXME for other genes: ATTEMPTED to derive numbers
##############################