R 使用lappy打印标题

我正在绘制一个数据帧列表

以下是数据帧的名称：

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

堆叠我会尝试：

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

我试过了，但是我得到的标题是每个数据帧第一列的名称，而不是数据帧的名称