r - 在 lapply 期间将列表对象的名称粘贴到 ggplot 调用中

Question

我有一个 ggplot-objects 列表

library(ggplot2)
library(gridExtra)
p <- ggplot(mtcars, aes(factor(cyl))) + geom_bar()
plots <- list(p,p,p)
names(plots) <- c("A","B","C")

我可以操纵:

plots <- lapply(plots, function(x) x + theme_bw())
grid.arrange(plots[[1]], plots[[2]], plots[[3]])

这很好用。但是，我不能做的是将 ggplot 对象的名称粘贴到 ggtitle 参数中:

plots <- lapply(plots, function(x) x + ggtitle(paste(names(x))))
grid.arrange(plots[[1]], plots[[2]], plots[[3]])

有些东西被粘贴到参数中，但我基本上错过了正确的层次结构级别:

grid.arrange(plots[[1]], plots[[2]], plots[[3]]) ### all titled "data"
names(plots[[1]][1])
[1] "data"

向上移动层次结构不起作用:

plots <- lapply(plots, function(x) x + ggtitle(paste(names(plots[[x]]))))

 Error in plots[[x]] : invalid subscript type 'list'

我记得一个old question of mine for base-R plotting ，但这不可能转移到这里:

plots <- lapply(names(plots), function(x) plots[[x]] + ggtitle(paste(names(x))))
names(plots)
NULL

我哪里失败了？

Answer 1

这是使用 map 的解决方案:

# Your sample plots
library(ggplot2)
library(gridExtra)
p <- ggplot(mtcars, aes(factor(cyl))) + geom_bar()
plots <- list(p,p,p)
names(plots) <- c("A","B","C")
plots <- lapply(plots, function(x) x + theme_bw())

# Add title to ggplots
plots <- Map(function(gg, title) gg + ggtitle(title), plots, names(plots));
grid.arrange(grobs = plots);