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

stuff

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-30 12:10:49 +01:00
parent d7f348318c
commit 317b97bc9c
1 changed files with 5 additions and 88 deletions
Download patch file Download diff file Expand all files Collapse all files

91
scripts/functions/lf_bp.R
View file

@ -18,10 +18,10 @@ lf_bp <- function(lf_df = lf_duet
, dot_size = 3
, dot_transparency = 0.3
, violin_quantiles = c(0.25, 0.5, 0.75) # can be NULL
, my_ats = 22 # axis text size
, my_als = 20 # axis label size
, my_fls = 20 # facet label size
, my_pts = 22 # plot title size)
, my_ats = 11 # axis text size
, my_als = 10 # axis label size
, my_fls = 10 # facet label size
, my_pts = 11 # plot title size)
, make_boxplot = FALSE
, bp_width = c("auto", 0.5)
, add_stats = TRUE
@ -141,86 +141,3 @@ lf_bp <- function(lf_df = lf_duet
return(OutPlot)
}
#############################
# Barplot NO stats: plotly
# violin +/-
# barplot +/
# beeswarm
# TODO: plot_ly()
#############################
# lf_bp_plotly <- function(lf_df
# , p_title = ""
# , colour_categ = ""
# , x_grp = mutation_info
# , y_var = param_value
# , facet_var = param_type
# , n_facet_row = 1
# , y_scales = "free_y"
# , colour_bp_strip = "khaki2"
# , dot_size = 3
# , dot_transparency = 0.3
# , violin_quantiles = c(0.25, 0.5, 0.75) # can be NULL
# , my_ats = 20 # axis text size
# , my_als = 18 # axis label size
# , my_fls = 18 # facet label size
# , my_pts = 22 # plot title size)
# #, make_boxplot = FALSE
# , bp_width = c("auto", 0.5)
# #, add_stats = FALSE
# #, stat_grp_comp = c("DM", "OM")
# #, stat_method = "wilcox.test"
# #, my_paired = FALSE
# #, stat_label = c("p.format", "p.signif")
# ){
#
# OutPlotly = ggplot(lf_df, aes(x = eval(parse(text = x_grp))
# , y = eval(parse(text = y_var))
# , label1 = x_grp
# , label2 = y_var
# , lable3 = colour_categ) ) +
#
# facet_wrap(~ eval(parse(text = facet_var))
# , nrow = n_facet_row
# , scales = y_scales) +
#
# geom_violin(trim = T
# , scale = "width"
# , draw_quantiles = violin_quantiles) +
#
# geom_beeswarm(priority = "density"
# , size = dot_size
# , alpha = dot_transparency
# , show.legend = FALSE
# , cex = 0.8
# , aes(colour = factor(eval(parse(text = colour_categ) ) ) ) ) +
# theme(axis.text.x = element_text(size = my_ats)
# , axis.text.y = element_text(size = my_ats
# , angle = 0
# , hjust = 1
# , vjust = 0)
# , axis.title.x = element_text(size = my_ats)
# , axis.title.y = element_text(size = my_ats)
# , plot.title = element_text(size = my_pts
# , hjust = 0.5
# , colour = "black"
# , face = "bold")
# , strip.background = element_rect(fill = colour_bp_strip)
# , strip.text.x = element_text(size = my_fls
# , colour = "black")
# , legend.title = element_text(color = "black"
# , size = my_als)
# , legend.text = element_text(size = my_ats)
# , legend.position = "none")+
#
# labs(title = p_title
# , x = ""
# , y = "")
#
# OutPlotly = ggplotly(OutPlotly
# #, tooltip = c("label")
# )
# return(OutPlotly)
#
# }