Update combine_cluster_plots_and_save.R

R/combine_cluster_plots_and_save.R

@@ -20,7 +20,7 @@ combine_cluster_plots_and_save <- function(plot_list, cluster, out_path = path,
   combo_pl <- cowplot::plot_grid(plot_list[[1]] + theme(legend.position = "none"),
                                  plot_list[[2]] + theme(legend.position = "none"),
                                  plot_list[[3]] + theme(legend.position = "none"),
-                                ncol = 3, align = "hv")
+                                ncol = 3, align = "h")
   legend <- cowplot::get_legend(plot_list[[3]] +
     #                             guides(fill = guide_legend(nrow = 1)) +
                                   theme(legend.position = "bottom"))