Skip to content
Snippets Groups Projects
Commit a8eca7b1 authored by Simeon's avatar Simeon
Browse files

Update combine_cluster_plots_and_save.R

parent 139a470b
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
R/combine_cluster_plots_and_save.R
+ 1
− 1
View file @ a8eca7b1
...@@ -22,7 +22,7 @@ combine_cluster_plots_and_save <- function(plot_list, cluster, out_path = path, ...@@ -22,7 +22,7 @@ combine_cluster_plots_and_save <- function(plot_list, cluster, out_path = path,
plot_list[[3]] + theme(legend.position = "none"), plot_list[[3]] + theme(legend.position = "none"),
ncol = 3, align = "hv") ncol = 3, align = "hv")
legend <- cowplot::get_legend(plot_list[[3]] + legend <- cowplot::get_legend(plot_list[[3]] +
guides(fill = guide_legend(nrow = 1)) + # guides(fill = guide_legend(nrow = 1)) +
theme(legend.position = "bottom")) theme(legend.position = "bottom"))
title <- ggdraw() + title <- ggdraw() +
draw_label( draw_label(
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment