added plots for thesis

This commit is contained in:
Tanushree Tunstall 2022-08-03 21:32:47 +01:00
parent 41c4996426
commit aabe466599
17 changed files with 24 additions and 2913 deletions

View file

@ -96,7 +96,7 @@ site_snp_count_bp <- function (plotdf
# but atm being using as plot title
#my_leg_title
bp_plot_title = paste0("Total nsSNPs: ", tot_muts
, ", Total no. of nsSNPs sites: ", tot_sites)
, "\nTotal sites: ", tot_sites)
#-------------
# start plot 2
@ -123,7 +123,8 @@ site_snp_count_bp <- function (plotdf
#, legend.text = element_text(size = leg_text_size)
#, legend.title = element_text(size = axis_label_size)
, plot.title = element_text(size = leg_text_size
, colour = title_colour)
, colour = title_colour
, hjust = 0.5)
, plot.subtitle = element_text(size = subtitle_size
, hjust = 0.5
, colour = subtitle_colour)) +