使用lapply(ggplot + ggtitle)和相应的嵌套列表名称命名多个图

Question

我的问题与这个问题类似，但不同的是，我在列表中的嵌套数据框被命名。How can I make multiple ggplots from a list of dataframes and have them on one pdf page?

下面的代码将相同的标题应用于我的所有图(我在原始图中添加了ggtitle )。

所有四个图都被命名为v1，这是每个df中的第一个列名。我预计绘图应该命名为df1，df2，...，或者可能是[[1]]，[[2]]，...

df1 <- data.frame(v1=c(1:5), v2=c(2:6))
df2 <- data.frame(v1=c(10:50), v2=c(20:60))
df3 <- data.frame(v1=c(100:500), v2=c(200:600))
df4 <- data.frame(v1=c(1000:5000), v2=c(2000:6000))
df.list <- list(df1, df2, df3, df4)

lapply(df.list, function(d) ggplot(data = d, aes(x=v1, y=v2)) + ggtitle(names(d)) + geom_point() )

如何更改我的代码？谢谢!

Answer 1

也可以试试这个：

library(ggplot2)
#Names
names(df.list) <- paste0('df',1:4)
#Code
lapply(seq_along(df.list), function(i) {
  ggplot(df.list[[i]], aes(x=v1, y=v2)) + 
    geom_point()+ 
    ggtitle(names(df.list)[i]) })

输出：

​

​

​

​

​

​

​

​

正如@markus引用的那样，你的列表中需要名字。