2
我经常在循环内部执行循环,然后最终将列表融合到数据框中进行绘图。命名融合的迭代映射列表在遍历中
ac<-list("BB","AA")
ca<-list(a=c(1,2,3),b=c(6,5,4))
cc<-map(a,function(y) map(ca,~paste0(.x,y)))
reshape2::melt(cc)
Q1:是否有这样做的地图内的地图,而不诉诸function(y)
然而另一种方式,因为我的名单往往是无名我倾向于列表的值添加为名称如下:
map_test<-function(list_in,...){
if (is.null(names(list_in))){
names(list_in)<-list_in
}
map(list_in,...)
}
cc2=map_test(ac,function(y) map_test(ca,~paste0(.x,y)))
df=reshape2::melt(cc2)
由此产生的df有名字L2和L1,我宁愿如果名字分别是ca和ac。
nam.cons<-NULL
map_test2<-function(list_in,...){
nam.cons<<-c(nam.cons,deparse(substitute(list_in)))
if (is.null(names(list_in))){
names(list_in)<-list_in
}
map(list_in,...)
}
cc3=map_test2(ac,function(y) map_test2(ca,~paste0(.x,y)))
cc4<-reshape2::melt(cc3)
names(cc4)<-c("value",rev(unique(nam.cons)))
现在,如果我忘了复位nam.cons
变量这会导致混乱非常快。我可以创建1,2,3,4..n在不同的功能的这个版本,但
Q2:是否有可能创建一个 melt_map功能,将允许双方接受遍历正不同的列表和那最后还会把n个不同的列表名称保存为列名?