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

various

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-09 19:56:47 +01:00
parent af03fc6fd6
commit faf9ab9707
1 changed files with 14 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

27
scripts/plotting/plotting_thesis/dm_om_plots.R
View file

@ -138,6 +138,19 @@ consurfP = lf_bp2(lf_consurfP
#, p_title = ""
, violin_quantiles = c(0.5), monochrome = F)
#==============
# Plot:PROVEAN
#==============
lf_proveanP = all_dm_om_df[['lf_provean']]
#lf_proveanP = lf_provean[!lf_provean$param_type%in%c(static_colsP),]
table(lf_proveanP$param_type)
lf_proveanP$param_type = factor(lf_proveanP$param_type)
table(lf_proveanP$param_type)
proveanP = lf_bp2(lf_proveanP
#, p_title = ""
, violin_quantiles = c(0.5), monochrome = F)
#==============
# Plot:SNAP2
#==============
@ -151,18 +164,6 @@ snap2P = lf_bp2(lf_snap2P
#, p_title = ""
, violin_quantiles = c(0.5), monochrome = F)
#==============
# Plot:PROVEAN
#==============
lf_proveanP = all_dm_om_df[['lf_provean']]
#lf_proveanP = lf_provean[!lf_provean$param_type%in%c(static_colsP),]
table(lf_proveanP$param_type)
lf_proveanP$param_type = factor(lf_proveanP$param_type)
table(lf_proveanP$param_type)
proveanP = lf_bp2(lf_proveanP
#, p_title = ""
, violin_quantiles = c(0.5), monochrome = F)
############################################################################
#================
@ -246,7 +247,7 @@ cowplot::plot_grid(
, nrow=1
, rel_widths = c(1/7, 1/7,1/7,1/7, 1/7, 1.75/7)),
#, rel_widths = c(1/8, 1/8,1/8,1/8, 1/8, 2.75/8)), # for 3 distances
cowplot::plot_grid(consurfP, snap2P, proveanP
cowplot::plot_grid(consurfP, proveanP, snap2P
, mcsmligP
, mcsmlig2P
, mcsmppi2P