moved plotting_func to functions and replaced 3 basic_barplots scripts with 1

This commit is contained in:
Tanushree Tunstall 2021-06-10 16:09:58 +01:00
parent 5c018e23be
commit dccdfe9742
9 changed files with 287 additions and 237 deletions

View file

@ -26,7 +26,7 @@ site_snp_count_bp <- function (plotdf
, df_colname = "position"
#, bp_plot_title = ""
#, leg_title = "Legend title"
#, leg_text_size = 20
, leg_text_size = 20
, axis_text_size = 25
, axis_label_size = 22
, xaxis_title = "Number of nsSNPs"
@ -111,7 +111,7 @@ site_snp_count_bp <- function (plotdf
#, legend.position = c(0.73,0.8)
#, legend.text = element_text(size = leg_text_size)
#, legend.title = element_text(size = axis_label_size)
, plot.title = element_text(size = axis_label_size)) +
, plot.title = element_text(size = leg_text_size)) +
labs(title = bp_plot_title
, x = xaxis_title