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

refactoring logo plots to add flame bar

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-06 18:47:54 +01:00
parent f0a9eb4eec
commit c968089cd2
4 changed files with 194 additions and 196 deletions
Download patch file Download diff file Expand all files Collapse all files

35
scripts/functions/lf_bp2.R
View file

@ -54,6 +54,7 @@ lf_bp2 <- function(lf_df = lf_duet
}else{
bp_width = bp_width
}
my_comparisonsL <- list( stat_grp_comp )
ggplot(lf_df, aes_string(x = x_grp, y = y_var)) +
@ -93,39 +94,11 @@ lf_bp2 <- function(lf_df = lf_duet
, x = ""
, y = "") +
if (add_stats){
my_comparisonsL <- list( stat_grp_comp )
stat_compare_means(comparisons = my_comparisonsL
, method = stat_method
, paired = my_paired
, label = stat_label[2])
if (make_boxplot){
geom_boxplot(fill = "white"
, outlier.colour = NA
#, position = position_dodge(width = 0.9)
, width = bp_width) +
geom_quasirandom(#priority = "density"
#, shape = 21
size = dot_size
, alpha = dot_transparency
, show.legend = FALSE
, cex = 0.8
, aes(
colour = factor(
eval(
parse(
text = colour_categ
)
)
)
)
)
} else {
, label = stat_label[2]) +
geom_quasirandom(
size = dot_size
, alpha = dot_transparency
@ -142,8 +115,6 @@ lf_bp2 <- function(lf_df = lf_duet
)
)
)
}
}
}
#lf_bp2(lf_consurf)