使用 lapply 绘制标题

Question

我正在绘制一个数据框列表。

这些是数据框的名称：

names(meltmean)
[1] "A" "B" "C" "D" "E" "F"

我用这个来绘制：

stacked<-lapply(meltmean, 
                function (x) ggplot(x, aes(x=month, y= value, fill=Type))+geom_area()+ggtitle(names(meltmean)))

我想获得每个图中每个数据框的标题，但我只是获得了名字。所以在所有情节中，标题都是“A”。

我也尝试了+ ggtitle(names(x))，但我得到了每个数据框第一列的名称，而不是数据框的名称。

我需要更改什么才能在每个情节中获得正确的名称？

Answer 1

我会尝试：

stacked <- lapply(names(meltmean), 
                function (x) ggplot(meltmean[[x]], aes(x=month, y= value, fill=Type))+geom_area()+ggtitle(x))