added leg_title size for bp function

This commit is contained in:
Tanushree Tunstall 2021-07-07 13:11:13 +01:00
parent 4bf4650c88
commit 5eb07cdf86

View file

@ -20,6 +20,7 @@ stability_count_bp <- function(plotdf
, axis_text_size = 25
, axis_label_size = 22
, leg_text_size = 20
, leg_title_size = 22
, yaxis_title = "Number of nsSNPs"
, bp_plot_title = ""){
@ -36,7 +37,7 @@ stability_count_bp <- function(plotdf
, axis.text.y = element_text(size = axis_text_size)
, legend.position = c(0.73,0.8)
, legend.text = element_text(size = leg_text_size)
, legend.title = element_text(size = axis_label_size)
, legend.title = element_text(size = leg_title_size)
, plot.title = element_text(size = axis_label_size)) +
labs(title = bp_plot_title
, y = yaxis_title) +