From 28852c7cd6013c5eee56fc064f0485f975696b75 Mon Sep 17 00:00:00 2001 From: alexhbnr Date: Wed, 17 Feb 2021 10:50:18 +0100 Subject: [PATCH] Fix adding plot title to Mainbar plot --- R/MainBar.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/MainBar.R b/R/MainBar.R index e9cf791..ddf0001 100644 --- a/R/MainBar.R +++ b/R/MainBar.R @@ -195,7 +195,7 @@ Make_main_bar <- function(Main_bar_data, Q, show_num, ratios, customQ, number_an + geom_hline(yintercept = 0, color = "gray0")) if(!is.na(plot.title)) { - Main_bar_plot <- c(Main_bar_plot + ggtitle(plot.title)) + Main_bar_plot <- (Main_bar_plot + ggtitle(plot.title)) } Main_bar_plot <- ggplotGrob(Main_bar_plot) return(Main_bar_plot)