I am plotting several figures using grid plot like following.
p.list <- list()
for (i in 1:length(paths)){
p <- plotQC(get(paste0("sce_",i)), type = "highest-expression")
p.list[[i]] <- p
}
cowplot::plot_grid(plotlist = p.list)
How to add sub headers/titles on each plot. for example Sample#1, Sample#2 etc?