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

fixed lf_bp function with aes_string and reformulate

Browse source
This commit is contained in:
Tanushree Tunstall 2021-09-17 13:33:19 +01:00
parent e2d7a6567e
commit e115c3636c
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/functions/lf_bp.R
View file

@ -30,10 +30,16 @@ lf_bp <- function(lf_df
, my_paired = FALSE
, stat_label = c("p.format", "p.signif") ){
p1 <- ggplot(lf_df, aes(x = eval(parse(text = x_grp))
, y = eval(parse(text = y_var)) )) +
fwv = as.formula(paste0("~", facet_var))
p1 <- ggplot(lf_df, aes_string(x = x_grp, y = y_var)) +
facet_wrap(~ eval(parse(text = facet_var))
#fwv = eval(parse(text = facet_var))
# facet_wrap(~ fwv
# , nrow = n_facet_row
# , scales = y_scales) +
#
# fwv = as.formula(paste0("~", facet_var))
facet_wrap( fwv
, nrow = n_facet_row
, scales = y_scales) +