Update plot_repeats.R

R/plot_repeats.R

@@ -7,6 +7,7 @@
 #'
 #' @return A ggplot object displaying both positions and quantities of repeated sequences.
 #' @import dplyr forcats stringr tidyr
+#' @importFrom cowplot plot_grid ggdraw draw_label
 #' @importFrom Biostrings DNAStringSet
 #' @export
 plot_repeats <- function(sequences = DNAStringSet(),
@@ -26,10 +27,21 @@ plot_repeats <- function(sequences = DNAStringSet(),
   pos_pl <- plot_repeat_positions(pos_data)
   quant_pl <- plot_repeat_quantity(quant_data)
 
-  combo_pl <- ggpubr::ggarrange(pos_pl, quant_pl)
-  combo_pl <- ggpubr::annotate_figure(combo_pl, top = ggpubr::text_grob(
-    paste('Repeat', repeat_sequence, 'in', clus_name, 'cluster'),
-    vjust = 0.5, x = 0.01, hjust = 0))
+  combo_pl <- cowplot::plot_grid(pos_pl, quant_pl)
+  title <- ggdraw() +
+    draw_label(
+      paste('Repeat', repeat_sequence, 'in', clus_name, 'cluster'),
+      fontface = 'bold',
+      x = 0,
+      hjust = 0
+    ) +
+    theme(
+      # add margin on the left of the drawing canvas,
+      # so title is aligned with left edge of first plot
+      plot.margin = margin(0, 0, 0, 7)
+    )
+  combo_pl_with_title <- cowplot::plot_grid(title, combo_pl,
+                                            ncol = 1, rel_heights = c(.1, 1))
 
   return(combo_pl)
 }