saving work

scripts/plotting/other_plots.R

@@ -21,6 +21,10 @@ source("other_plots_data.R")
 dr_other_combined = "dr_other_muts.svg"
 plot_dr_other_combined  =  paste0(plotdir,"/", dr_other_combined)
 
+dr_other_combined_labelled = "dr_other_muts_labelled.svg"
+plot_dr_other_combined_labelled  =  paste0(plotdir,"/", dr_other_combined_labelled)
+
+
 dr_other_foldx = "dr_other_muts_foldx.svg"
 plot_dr_other_foldx  =  paste0(plotdir,"/", dr_other_foldx)
 
@@ -214,6 +218,8 @@ svg(plot_dr_other_combined, width = 24, height = 12)
 
 # first combine fold and lig plots (2 and 3)
 c1 = cowplot::plot_grid(p2, p3
+                        , labels = c("(b)", "(c)")
+                        , label_size = 25
                         , nrow = 1
                         , rel_widths = c(1/6, 5/6))
 c1
@@ -223,6 +229,22 @@ OutPlot = cowplot::plot_grid(p1, c1
 print(OutPlot)
 dev.off()
 
+#==========================================
+# labelled
+cat("Output plot:", plot_dr_other_combined_labelled)
+svg(plot_dr_other_combined_labelled, width = 24, height = 12)
+plot_dr_other_combined_labelled
+
+Outplot_labelled = cowplot::plot_grid(p1, c1
+                        , nrow = 2
+                        , labels = c("(a)", "", "")
+                        , label_size = 25)
+
+print(Outplot_labelled)
+
+dev.off()
+
+
 #---------
 # plot 3: legend
 #---------