added combined lineage plot
This commit is contained in:
parent
fe292e3717
commit
94454d6fba
10 changed files with 421 additions and 190 deletions
25
scripts/plotting/plotting_thesis/linage_bp_dist_layout.R
Normal file
25
scripts/plotting/plotting_thesis/linage_bp_dist_layout.R
Normal file
|
@ -0,0 +1,25 @@
|
|||
#!/usr/bin/env Rscript
|
||||
|
||||
###########################################
|
||||
my_label_size = 25
|
||||
|
||||
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
|
||||
, 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()
|
Loading…
Add table
Add a link
Reference in a new issue