diff --git a/scripts/functions/lf_bp.R b/scripts/functions/lf_bp.R
index c88f805..9c68644 100644
--- a/scripts/functions/lf_bp.R
+++ b/scripts/functions/lf_bp.R
@@ -66,14 +66,21 @@ lf_bp <- function(lf_df = lf_duet
                     , aes(colour = factor(eval(parse(text = colour_categ))) ))  
       
     } else {
+    #Legend=factor(eval(parse(text = colour_categ)))
     # ggbeeswarm (better than geom_point)
-    p2 = p1 +  geom_beeswarm(priority = "density"
+    p2 = p1 +
+      #theme(legend.title=element_text('XXX')) + # Legend doesn't need a title)
+      
+      geom_beeswarm(priority = "density"
                     #, shape = 21
                     , size = dot_size
                     , alpha = dot_transparency
                     , show.legend = FALSE
                     , cex = 0.8
-                    , aes(colour = factor(eval(parse(text = colour_categ))) )) 
+                    , aes(colour = factor(eval(parse(text = colour_categ))) )
+                    #, aes(colour = Legend)
+                    )
+
     }
 
    # Add foramtting to graph