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

made tweaks to output plot filenames

Browse source
This commit is contained in:
Tanushree Tunstall 2020-07-15 16:29:36 +01:00
parent 55f03bc343
commit 3cb33df009
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
scripts/plotting/basic_barplots_PS.R
View file

@ -20,7 +20,7 @@ getwd()
#?????????????
#
#########################################################
#%% variable assignment: input and output paths & filenames
drug = 'pyrazinamide'
gene = 'pncA'
@ -46,12 +46,12 @@ cat(paste0('Input file 1:', infile_params) )
# output
#=======
# plot 1
duet_basic_bp = 'basic_barplots_DUET.svg'
outfile_duet_basic_bp = paste0(outdir, '/plots/', duet_basic_bp)
basic_bp_duet = 'basic_barplot_PS.svg'
plot_basic_bp_duet = paste0(outdir, '/plots/', basic_bp_duet)
# plot 2
duet_pos_count = 'position_count_DUET.svg'
outfile_duet_pos_count = paste0(outdir, '/plots/', duet_pos_count)
pos_count_duet = 'position_count_PS.svg'
plot_pos_count_duet = paste0(outdir, '/plots/', pos_count_duet)
#%%===============================================================
###########################
@ -109,9 +109,9 @@ library(ggplot2)
#****************
# Plot 1:Count of stabilising and destabilsing muts
#****************
#svg('basic_barplots_DUET.svg')
svg(outfile_duet_basic_bp)
print(paste0('plot filename:', duet_basic_bp))
#svg('basic_barplots_PS.svg')
svg(plot_basic_bp_duet)
print(paste0('plot filename:', basic_bp_duet))
my_ats = 25 # axis text size
my_als = 22 # axis label size
@ -178,9 +178,9 @@ foo = select(df, mutationinformation
#write.csv(foo, "/pos_count_freq.csv")
#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
#svg('position_count_DUET.svg')
svg(outfile_duet_pos_count)
print(paste0('plot filename:', outfile_duet_pos_count))
#svg('position_count_PS.svg')
svg(plot_pos_count_duet)
print(paste0('plot filename:', plot_pos_count_duet))
my_ats = 25 # axis text size
my_als = 22 # axis label size