r - R：基于另一列，将标题添加到存储在 tibble 列中的 ggplot

Question

我有一个嵌套的小标题，用于存储数据、分组变量和说明数据的图。

考虑以下示例：

library(dplyr)
library(tibble)
library(ggplot2)

test <- tibble(x=c(1,2), p=list(qplot(1), qplot(2)))

列p是图，列x是分组变量。我想根据x相应行中的值为每个图提供一个标题。

我尝试使用 dplyr 的 mutate 函数：

mutate(test, p=p+labs(title=paste("Group:", x)))

但是，此特定代码失败并显示Error: non-numeric argument to binary operator.

如何在 tibble 中向存储的 ggplots 添加另一层？