使用 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))