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

lots of per-plot configs

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-22 21:56:13 +01:00
parent 13999a477d
commit 04253b961f
36 changed files with 5121 additions and 540 deletions
Download patch file Download diff file Expand all files Collapse all files

13
scripts/functions/bp_lineage_diversity.R
View file

@ -14,15 +14,15 @@ lin_count_bp_diversity <- function( lf_data = lin_wf
, display_label_col = "snp_diversity_f"
, bar_stat_stype = "identity"
, x_lab_angle = 90
, d_lab_size = 5
, d_lab_size = 2.3
, d_lab_hjust = 0.5
, d_lab_vjust = 0.5
, d_lab_col = "black"
, my_xats = 20 # x axis text size
, my_yats = 20 # y axis text size
, my_xals = 22 # x axis label size
, my_yals = 22 # y axis label size
, my_lls = 22 # legend label size
, my_xats = 8 # x axis text size
, my_yats = 8 # y axis text size
, my_xals = 10 # x axis label size
, my_yals = 10 # y axis label size
, my_lls = 10 # legend label size
, bar_col_labels = "" #c("Mutations", "Total Samples")
, bar_col_values = c("gray50", "gray75")
, bar_leg_name = ""
@ -64,6 +64,7 @@ lin_count_bp_diversity <- function( lf_data = lin_wf
, colour = "black")
, legend.position = leg_location
, legend.text = element_text(size = my_lls)
, legend.key.size = unit(my_lls, 'pt')
, plot.title = element_text(size = my_lls
, colour = title_colour
, hjust = 0.5)