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 92fd905dea
commit b05f520081
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 , my_paired = FALSE
, stat_label = c("p.format", "p.signif") ){ , stat_label = c("p.format", "p.signif") ){
p1 <- ggplot(lf_df, aes(x = eval(parse(text = x_grp)) fwv = as.formula(paste0("~", facet_var))
, y = eval(parse(text = y_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 , nrow = n_facet_row
, scales = y_scales) + , scales = y_scales) +