diff --git a/scripts/functions/lf_bp.R b/scripts/functions/lf_bp.R
index 9c68644..33d378c 100644
--- a/scripts/functions/lf_bp.R
+++ b/scripts/functions/lf_bp.R
@@ -57,7 +57,7 @@ lf_bp <- function(lf_df = lf_duet
                   , outlier.colour = NA
                   #, position = position_dodge(width = 0.9)
                   , width = bp_width) + 
-      geom_beeswarm(priority = "density"
+      geom_quasirandom(priority = "density"
                     #, shape = 21
                     , size = dot_size
                     , alpha = dot_transparency
@@ -71,11 +71,12 @@ lf_bp <- function(lf_df = lf_duet
     p2 = p1 +
       #theme(legend.title=element_text('XXX')) + # Legend doesn't need a title)
       
-      geom_beeswarm(priority = "density"
+      geom_quasirandom(priority = "density"
                     #, shape = 21
                     , size = dot_size
                     , alpha = dot_transparency
                     , show.legend = FALSE
+                    # , fast = FALSE
                     , cex = 0.8
                     , aes(colour = factor(eval(parse(text = colour_categ))) )
                     #, aes(colour = Legend)