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

saving minor update to function fix

Browse source
This commit is contained in:
Tanushree Tunstall 2021-09-17 13:35:48 +01:00
parent b05f520081
commit 903b61e6ea
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/functions/lf_bp.R
View file

@ -31,14 +31,10 @@ lf_bp <- function(lf_df
, stat_label = c("p.format", "p.signif") ){ , stat_label = c("p.format", "p.signif") ){
fwv = as.formula(paste0("~", facet_var)) fwv = as.formula(paste0("~", facet_var))
#fwv = reformulate(facet_var)
p1 <- ggplot(lf_df, aes_string(x = x_grp, y = y_var)) + p1 <- ggplot(lf_df, aes_string(x = x_grp, y = y_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 facet_wrap( fwv
, nrow = n_facet_row , nrow = n_facet_row
, scales = y_scales) + , scales = y_scales) +