added katg tables

scripts/plotting/plotting_thesis/lineage_bp_dist_layout.R

@@ -1,5 +1,11 @@
 #!/usr/bin/env Rscript  
-source("/home/tanu/git/LSHTM_analysis/scripts/plotting/plotting_thesis/linage_bp_dist.R")
+source("/home/tanu/git/LSHTM_analysis/scripts/plotting/plotting_thesis/lineage_bp_dist.R")
+
+#=======
+# output
+#=======
+outdir_images = paste0("~/git/Writing/thesis/images/results/", tolower(gene), "/")
+cat("plots will output to:", outdir_images)
 ###########################################
 # TASK: generate plots for lineage
 # Individual plots in 
@@ -38,19 +44,19 @@ linPlots_combined = paste0(outdir_images
 cat("\nOutput plot:", linPlots_combined)
 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,
-#   linP_dm_om,
-#   nrow = 1,
-#   labels = c("", "", "C"),
-#   label_size = my_label_size,
-#   rel_widths = c(35, 3, 52)
-# )
-# dev.off()
+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()