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

refactored dm om plots and generated the final layout

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-08 16:45:55 +01:00
parent 28510471f0
commit 5bdfd03443
5 changed files with 169 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/functions/lf_bp2.R
View file

@ -18,8 +18,9 @@ lf_bp2 <- function(lf_df #lf_duet
, y_scales = "free_y"
, colour_bp_strip = "khaki2"
, dot_size = 3
, dot_transparency = 1 #0.3: lighter
, dot_transparency = 0.3 #0.3: lighter
, violin_quantiles = c(0.25, 0.5, 0.75) # can be NULL
, line_thickness = 0.65
, my_ats = 22 # axis text size
, my_als = 20 # axis label size
, my_fls = 20 # facet label size
@ -69,6 +70,7 @@ lf_bp2 <- function(lf_df #lf_duet
ggplot2::scale_color_manual(values = lf_bp_colours) +
geom_violin(trim = T
, size = line_thickness
, scale = "width"
, colour = "black"
#, position = position_dodge(width = 0.9)
@ -98,11 +100,11 @@ lf_bp2 <- function(lf_df #lf_duet
, x = ""
, y = "") +
stat_compare_means(comparisons = my_comparisonsL
, method = stat_method
, paired = my_paired
, label = stat_label[2]) +
, label = stat_label[2]
, size = 5) +
geom_quasirandom(
size = dot_size
, alpha = dot_transparency