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

36
scripts/plotting/plotting_thesis/linage_bp_dist_layout.R
View file

@ -1,23 +1,47 @@
#!/usr/bin/env Rscript
source("/home/tanu/git/LSHTM_analysis/scripts/plotting/plotting_thesis/linage_bp_dist.R")
###########################################
# TASK: generate plots for lineage
# Individual plots in
#lineage_bp_both.R
#linage_dist_ens_stability.R
###########################################
my_label_size = 25
# svg
# my_label_size = 12
# linPlots_combined = paste0(outdir_images
# , tolower(gene)
# ,"_linP_combined.svg")
#
# cat("\nOutput plot:", linPlots_combined)
# svg(linPlots_combined, width = 18, height = 12)
#
# cowplot::plot_grid(
# cowplot::plot_grid(lin_countP, lin_diversityP
# , nrow = 2
# , rel_heights = c(1.2,1)
# , labels = "AUTO"
# , label_size = my_label_size),
# NULL,
# linP_dm_om,
# nrow = 1,
# labels = c("", "", "C"),
# label_size = my_label_size,
# rel_widths = c(35, 3, 52)
# )
# dev.off()
# png
linPlots_combined = paste0(outdir_images
, tolower(gene)
,"_linP_combined.svg")
, tolower(gene)
,"_linP_combined.png")
cat("\nOutput plot:", linPlots_combined)
svg(linPlots_combined, width = 18, height = 12)
png(linPlots_combined, width = 9, height = 6, units = "in" ,res = 300)
cowplot::plot_grid(
cowplot::plot_grid(lin_countP, lin_diversityP
, nrow = 2
, rel_heights = c(1.2,1)
, labels = "AUTO"
, label_size = my_label_size),
NULL,
@ -27,4 +51,4 @@ cowplot::plot_grid(
label_size = my_label_size,
rel_widths = c(35, 3, 52)
)
dev.off()
dev.off()