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