Добавление меток к участкам в cowplot::gridplot в R

Question

Я строю несколько фигур с использованием сетки, как показано ниже.

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)

Как добавить подзаголовки / заголовки на каждом графике. например, образец № 1, образец № 2 и т. д.?

Answer 1

Вы можете использовать labels и все связанные параметры, такие как hjust чтобы сдвинуть текст по мере необходимости:

l <- list(qplot(1:10, 1:10) , qplot(1:10, (1:10)^2))
plot_grid(plotlist = l, labels = paste0("Sample #", 1:2), hjust = -1)

ht tps://st ackru.com/images/86b4d1f1cee25d887d3a6d3bcbe492655a9eac58.png