我有一个简单的问题,但找不到直接的答案
my.list=list(a=c(1,2,3),random=1,list=matrix(1:10,nrow=2))
其中,我想根据另一个列表('a','list','random')的顺序,或者因此改变列表元素的顺序:名称(my.other.list):
my.other.list=list(a=c(4,5,6),list=matrix(101:110,nrow=2),random=2)
所以目标是获得这个列表:
my.wanted.list=list(a=c(1,2,3),list=matrix(1:10,nrow=2),random=1)
请注意,两个列表(my.list和my.other.list)具有相同的列表名称,并且这些列表不能按字母顺序排序。
我创建了这个循环:
my.wanted.list=list()
for(i in 1:length(my.list)){
my.wanted.list[[i]]=my.list[[names(my.other.list)[i]]]
}
names(my.wanted.list)=names(my.other.list)
但对于一个看似简单的问题来说,这似乎是一个耗时的解决方案。尤其是如果名单更大的话。那么,有没有更简单的方法呢?
谢谢。
您可以简单地使用带名称列表的子设置机制来实现这一点。
my.list = list( a = c(1,2,3), random=1, list = matrix(1:10,nrow=2))
my.other.list = list(a=c(4,5,6), list=matrix(101:110,nrow=2),random=2)
无任何包装
my.list[names(my.other.list)]
#> $a
#> [1] 1 2 3
#>
#> $list
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] 1 3 5 7 9
#> [2,] 2 4 6 8 10
#>
#> $random
#> [1] 1
或者你可以使用一个包作为rlist
my.list %>%
list.subset(names(my.other.list))
#> $a
#> [1] 1 2 3
#>
#> $list
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] 1 3 5 7 9
#> [2,] 2 4 6 8 10
#>
#> $random
#> [1] 1
它按照用于子集设置的名称向量的顺序重新排列您的第一个列表。