diff --git a/R/combine_cluster_plots_and_save.R b/R/combine_cluster_plots_and_save.R index b8afff087982981f21aaccff01c1806c38fe38e0..828a5955ce613eefbeb0efd96b0ac6045b05f044 100644 --- a/R/combine_cluster_plots_and_save.R +++ b/R/combine_cluster_plots_and_save.R @@ -24,6 +24,6 @@ combine_cluster_plots_and_save <- function(plot_list, cluster, out_path = path, ncol = 1, rel_heights = c(1, .1)) + ggtitle(paste("Cluster:", cluster)) ggsave(file.path(out_path, paste0("Cluster_overview_", cluster, ".pdf")), - combo_pl, width = w, height = h, units = "cm") - return(combo_pl) + combo_pl_with_legend, width = w, height = h, units = "cm") + return(combo_pl_with_legend) }