diff --git a/R/combine_cluster_plots_and_save.R b/R/combine_cluster_plots_and_save.R index 19f2458ecff1966cfb798213a426e9270971f845..10284e7d7159e0f41a32952f1c039baba745634f 100644 --- a/R/combine_cluster_plots_and_save.R +++ b/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"))