用R从另一个列表创建一个列表

Question

我有一个字母清单l

[1] a b c
[2] b c a b

还有字母的向量v

[1] a
[2] b

我的目的是一个接一个地向量v的字母，并创建一个新列表，其中包含该字母之后出现的所有字母。 例如，我取v的第一个字母“ a”，然后创建出现在“ a”之后的字母列表，得到的是：

[1] b c
[2] b

在我拿第二个字母或v（即“ b”）并将其添加到列表后：

[3] c   
[4] c a b

所以最终结果是：

[1] b c
[2] b
[3] c   
[4] c a b

我不知道该怎么做，这似乎很复杂。

我也有这种格式的载体清单

[[1]]
[1] a
[2] b 
[3] c
[[2]]
[1] e
[2] g

Answer 1

嵌套的lapply ：

lapply(v, function(v, l) lapply(l, function(x, v) {
  if (!(v %in% x)) return(x) #the case of no match
  x[-seq_len(which.max(x == v))]
}, v = v), l = l)
#[[1]]
#[[1]][[1]]
#[1] "b" "c"
#
#[[1]][[2]]
#[1] "b"
#
#
#[[2]]
#[[2]][[1]]
#[1] "c"
#
#[[2]][[2]]
#[1] "c" "a" "b"

Answer 2

这是使用lapply的一种方法。

dat <- list( c("a", "b", "c"), c("b", "c", "a", "b"))
v <- c("a", "b")

result <- list()
for (l in v) {
  result[[l]] <- lapply(dat, function(z) z[(which(z == l)[1] + 1):length(z)])
}
result