something like this
text <- "example title"
# Create a text grob
tgrob <- text_grob(text,size = 20)
# Draw the text
plot_0 <- as_ggplot(tgrob) + theme(plot.margin = margin(0,3,0,0, "cm"))
ggarrange(plot_0,NULL,plot_1, plot_2,
ncol = 2,nrow = 2,heights = c(1,5))
