tanu/LSHTM_analysis
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

lf_bp fuckage

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-05 12:46:14 +01:00
parent c0f59bc9c9
commit 31148dfbdc
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
scripts/functions/lf_bp.R
View file

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