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

15
scripts/functions/bp_lineage.R
View file

@ -13,15 +13,15 @@ lin_count_bp <- function( lf_data = lin_lf
, display_label_col = "p_count"
, 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("grey50", "gray75")
, bar_leg_name = ""
@ -56,7 +56,8 @@ lin_count_bp <- function( lf_data = lin_lf
, axis.title.y = element_text(size = my_yals
, colour = "black")
, legend.position = leg_location
, legend.text = element_text(size = my_lls)) +
, legend.text = element_text(size = my_lls)
, legend.key.size = unit(my_lls, 'pt')) +
geom_label(aes(label = eval(parse(text = display_label_col)))
, size = d_lab_size