30 lines
No EOL
780 B
R
30 lines
No EOL
780 B
R
#!/usr/bin/env Rscript
|
|
|
|
###########################################
|
|
# TASK: generate plots for lineage
|
|
# Individual plots in
|
|
#lineage_bp_both.R
|
|
#linage_dist_ens_stability.R
|
|
###########################################
|
|
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() |