根据另一个列表合并列表中的元素

Question

我有以下清单：

L = list()

L[[1]] = c(1,2,3)
L[[2]] = c(4,5)
L[[3]] = c(6,7,8)
L[[4]] = c(9, 10, 11, 12, 13)
L[[5]] = c(14, 15, 16)

我想根据ToUnite列表中给出的值合并L的特定元素：

ToUnite = list()
ToUnite[[1]] = c(1,2,3)
ToUnite[[2]] = c(4,5)

所以结果列表应该包含两个元素，分别对应L的c(1,2,3)和c(4,5)，看起来像这样：

result = list()
result[[1]] = seq(1,8)
result[[2]] = seq(9, 16)

我怎样才能以最有效的方式做到这一点？

Answer 1

我们可以用lapply遍历'ToUnite'，提取'L'和unlist的list元素

lapply(ToUnite, function(x) unlist(L[x]))
#[[1]]
# [1] 1 2 3 4 5 6 7 8

#[[2]]
# [1]  9 10 11 12 13 14 15 16