使用lapply生成多个图形，遍历列表以为不工作的图形添加标题

Question

我创建了以下代码以成功地从列表“ hemi_split”中生成所需的图形，但是当我尝试为图形命名时会产生以下错误

`“ hemi_split [i]中的错误：下标类型'list'无效”]

这里是代码

graphs <- lapply(hemi_split, function(i){ 
  ggplot(data=i, aes(x=type, y=shoot.mass))+
    geom_point()+
    facet_wrap(.~host)+ 
    theme_minimal()+
    labs(title=names(hemi_split[i]))
         })

这是我要为每个图命名的列表元素的名称

names(hemi_split)
 [1] "CADE" "CAFO" "CAHI" "CALE" "CAMI" "CARU" "CAWI" "COPI" "REEL" "TRER" "TRVE"

感谢您的帮助！

Answer 1

如果您对列表不满意，则会忘记名称，可以尝试：

Answer 2

使用purrr的imap，您可以访问数据和名称。