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