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

added script basic_barplots_combined.R to combine basic barplots for PS and lig

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-18 18:09:24 +01:00
parent 0c5ef2e72c
commit 07fa82520e
1 changed files with 36 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

36
scripts/plotting/basic_barplots_combined.R Normal file
View file

@ -0,0 +1,36 @@
#!/usr/bin/env Rscript
#########################################################
# TASK: producing barplots
# basic barplots with count of mutations
# basic barplots with frequency of count of mutations
#########################################################
#=======================================================================
# working dir and loading libraries
getwd()
setwd("~/git/LSHTM_analysis/scripts/plotting")
getwd()
source("basic_barplots_PS.R")
source("basic_barplots_LIG.R")
#=======
# output
#=======
basic_bp_combined_labelled = "basic_barplots_combined_labelled.svg"
plot_basic_bp_combined_labelled = paste0(plotdir,"/", basic_bp_combined_labelled)
#=======================================================================
#=======
# combin DUET and Ligand affinity plots
#=======
svg(plot_basic_bp_combined_labelled , width = 12, height = 12 )
bp_duet_combined = cowplot::plot_grid(OutPlot_count, OutPlot_pos_count
, OutPlot_lig_count, OutPlot_lig_pos_count
, labels = c("(a)", "(b)", "(c)", "(d)")
, label_size = 25)
bp_duet_combined
dev.off()