r - 按名称将列表子集化为组，并将这些组保留为列表，以便原始列表将是 R 中的列表列表

Question

我有一个包含七个元素的列表。这个列表的名称是 (a,a,b,b,b,a,b) 每个元素都是一个具有相同列名和不同行数的数据框。我希望我的列表成为列表列表。例如，

original.list<-list(a=data.frame(x=c(1:5), y=c(1:5)),a=data.frame(x=c(1:15), y=c(15:29)),b=data.frame(x=rep(5,10), y=rep(-1,10)), b=data.frame(x=c(1:7), y=c(1:7)),b=data.frame(x=c(2:8), y=c(1:7)),a=data.frame(x=c(10:50), y=c(10:50)),b=data.frame(x=rep(1.2,14), y=rep(10,14)))

 new.list<- list(a=list(original.list[[1]],original.list[[2]],original.list[[6]]),b=list(original.list[[3]],original.list[[4]],original.list[[5]],original.list[[7]]))

Answer 1

您可以按名称拆分原始列表(然后取消命名子列表):

lapply(split(original.list, names(original.list)), unname)

结果如new.list:

identical(new.list, lapply(split(original.list, names(original.list)), unname))
[1] TRUE