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