如何使用 Pipe 和 purrr 获取列表名称和切片名称

我想知道在使用 purrr 的管道操作时如何获取列表名称或组名称作为标志。例如：我想使用传递给 ggsave 函数的每个列表名称的动态参数。

require(purrr)
require(ggplot2)
lst=list(a1=data.frame(x=1:10,y=2:11),a2=data.frame(x=1:10,y=-1*2:11))
df=rbind(transform(lst[[1]],id="a1"),transform(lst[[2]],id="a2"))
lst %>% map(~ggsave(plot=qplot(data=.,x="x",y="y",geom="line"),file=paste(listname(.),".png")))
df %>% slice_rows("id") %>%
  by_slice(~ggsave(plot=qplot(data=.,x="x",y="y",geom="line"),file=paste("slicename(.)",".png")))

slicename(.) 应该类似于 unique(.[["id"]]) ，但在使用 slice_rows 时它不起作用。

值得一提的是，使用purrr::walk2人们可以避免创建一个新列表lst and names(lst)要素：

lst=list(a1=data.frame(x=1:10,y=2:11),a2=data.frame(x=1:10,y=-1*2:11))

purrr::walk2(
  lst,
  names(lst),
  ~ ggsave(plot=qplot(data=.x,x=x,y=y,geom="line"),filename=paste(.y,".png"))
)

更新于2017-08-30：新的“索引”地图功能系列已经介绍 https://github.com/tidyverse/purrr/blob/master/NEWS.md in purrr0.2.3 提供了简写walk2(lst, names(lst)):

lst=list(a1=data.frame(x=1:10,y=2:11),a2=data.frame(x=1:10,y=-1*2:11))

purrr::iwalk(
  lst,
  ~ ggsave(plot=qplot(data=.x,x=x,y=y,geom="line"),filename=paste(.y,".png"))
)