用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