lf_bp fuckage

This commit is contained in:
Tanushree Tunstall 2022-08-05 12:46:14 +01:00
parent c0f59bc9c9
commit 31148dfbdc

View file

@ -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)