将组件添加到列表中保存的ggplot对象

Question

假设我创建了一个列表，每个元素都包含一个已保存的ggplot：

lst <- lapply(1:5, function(X) ggplot(data = mtcars, aes(x=X, y=mpg)) + geom_point())

^{在每个list元素中分别找到的5个图的图像。功能}

有没有办法为这些已保存的地块添加其他组件？

我试过了：

>lst[1] + ggtitle('Add Title')

Error in lst[1] + ggtitle("Title") : 
  non-numeric argument to binary operator

Answer 1

这种情况下[[ ]]和[ ]之间的区别非常重要：

lst <- lapply(1:5, function(X) ggplot(data = mtcars, aes(x=X, y=mpg)) + geom_point())

lst[[1]] + ggtitle('Add Title')