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

lf

Browse source
This commit is contained in:
Tanushree Tunstall 2022-05-25 23:39:44 +01:00
parent 8e65d75b58
commit 1baf7fa9f0
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
scripts/functions/lf_bp.R
View file

@ -66,14 +66,21 @@ lf_bp <- function(lf_df = lf_duet
, aes(colour = factor(eval(parse(text = colour_categ))) )) , aes(colour = factor(eval(parse(text = colour_categ))) ))
} else { } else {
#Legend=factor(eval(parse(text = colour_categ)))
# ggbeeswarm (better than geom_point) # 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 #, shape = 21
, size = dot_size , size = dot_size
, alpha = dot_transparency , alpha = dot_transparency
, show.legend = FALSE , show.legend = 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)
)
} }
# Add foramtting to graph # Add foramtting to graph