added leg_title size for bp function

This commit is contained in:
Tanushree Tunstall 2021-07-07 13:11:13 +01:00
parent 59a1213f65
commit 55adc3fa60

View file

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