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

added placeholder defaults for functions in R to make sure that R shiny layput works with a data set for meeting tomorrow

Browse source
This commit is contained in:
Tanushree Tunstall 2022-02-14 19:33:00 +00:00
parent 0460ca1708
commit d38521e03a
11 changed files with 120 additions and 83 deletions
Download patch file Download diff file Expand all files Collapse all files

15
scripts/functions/bp_lineage.R
View file

@ -4,11 +4,11 @@
# Lineage Diversity barplot
########################################
lin_count_bp <- function( lf_data
, x_categ = ""
, y_count = ""
, bar_fill_categ = ""
, display_label_col = ""
lin_count_bp <- function( lf_data = lin_lf
, x_categ = "sel_lineages"
, y_count = "p_count"
, bar_fill_categ = "count_categ"
, display_label_col = "p_count"
, bar_stat_stype = "identity"
, x_lab_angle = 90
, d_lab_size = 5
@ -20,13 +20,14 @@ lin_count_bp <- function( lf_data
, my_xals = 22 # x axis label size
, my_yals = 22 # y axis label size
, my_lls = 22 # legend label size
, bar_col_labels = ""
, bar_col_values = ""
, bar_col_labels = c("Mutations", "Total Samples")
, bar_col_values = c("grey50", "gray75")
, bar_leg_name = ""
, leg_location = "top"
, y_log10 = FALSE
, y_scale_percent = FALSE
, y_label = c("Count", "SNP diversity")
#, y_label = c("Count")
) {
g = ggplot(lf_data
, aes( x = factor( eval(parse(text = x_categ)), ordered = T )