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

generated lineage barplots and corr plots for conservation

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-04 19:48:09 +01:00
parent 424c1d184d
commit 14f8f5d6d4
3 changed files with 52 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

12
scripts/plotting/plotting_thesis/lineage_barplots_combined.R
View file

@ -1,5 +1,6 @@
# get plotting_dfs()
# using dfs [lf and wf] from lineage_dfL
# FIXME: add SNP diversity as the title
#===============================
# lineage sample and SNP count
#===============================
@ -54,15 +55,16 @@ lin_diversityP = lin_count_bp_diversity(lf_data = lineage_dfL[['lin_wf']]
#=============================================
lineage_bp_CL = paste0(outdir_images
,tolower(gene)
,"_lineage_bp_CL.svg")
,"_lineage_bp_CL_Tall.svg")
cat("Lineage barplots:", lineage_bp_CL)
svg(lineage_bp_CL, width = 8, height = 15)
cowplot::plot_grid(lin_countP, lin_diversityP
#, labels = c("(a)", "(b)", "(c)", "(d)")
, nrow = 2
, labels = "AUTO"
, label_size = 25)
#, labels = c("(a)", "(b)", "(c)", "(d)")
, nrow = 2
# , ncols = 2
, labels = "AUTO"
, label_size = 25)
dev.off()