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

11
scripts/functions/lineage_dist.R
View file

@ -20,11 +20,11 @@ lineage_distP <- function(plotdf
, fill_categ = "mutation_info_labels"
, fill_categ_cols = c("#E69F00", "#999999")
, label_categories = c("LABEL1", "LABEL2")
, my_ats = 15 # axis text size
, my_als = 20 # axis label size
, my_leg_ts = 16
, my_leg_title = 16
, my_strip_ts = 20
, my_ats = 15 # 15 axis text size
, my_als = 20 # 20 axis label size
, my_leg_ts = 16 #16
, my_leg_title = 16 #16
, my_strip_ts = 20 #20
, leg_pos = c(0.8, 0.9)
, leg_pos_wf = c("top", "left", "bottom", "right")
, leg_dir_wf = c("horizontal", "vertical")
@ -57,6 +57,7 @@ lineage_distP <- function(plotdf
, axis.title.y = element_blank()
, strip.text = element_text(size = my_strip_ts)
, legend.text = element_text(size = my_leg_ts)
, legend.key.size = unit(my_leg_ts, 'pt')
, legend.title = element_text(size = my_leg_title)
, legend.position = c(0.8, 0.9)) +
labs(x = x_lab