diff --git a/scripts/functions/stability_count_bp.R b/scripts/functions/stability_count_bp.R
index 0f54ec7..aa8f5a4 100644
--- a/scripts/functions/stability_count_bp.R
+++ b/scripts/functions/stability_count_bp.R
@@ -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) +