使用setdiff：

ls <- list(c(7, 4, 9), c(5, 9, 2, 19), c(3, 13, 4, 2))

foo <- function(x) {
  for (i in seq_along(x)[-1]) {
    x[[i]] <- setdiff(ls[[i]], unlist(ls[seq_len(i - 1)]))
  }
  x
}

ls2 <- foo(ls)
#[[1]]
#[1] 7 4 9
#
#[[2]]
#[1]  5  2 19
#
#[[3]]
#[1]  3 13

对每个元素使用setdiff()，删除所有以前看到的元素。首先，我们需要列出以前看到的元素：

ls <- list(c(7, 4, 9), c(5, 9, 2, 19), c(3, 13, 4, 2))

accumulated <- Reduce(union, ls, accumulate = TRUE)
accumulated
#> [[1]]
#> [1] 7 4 9
#> 
#> [[2]]
#> [1]  7  4  9  5  2 19
#> 
#> [[3]]
#> [1]  7  4  9  5  2 19  3 13

然后，对于列表中的每个元素，我们将其与先前看到的元素的累积列表进行比较。注意，我们需要分隔列表的第一个元素：

c(ls[1],
  lapply(seq_along(ls)[-1],
         \(i) setdiff(ls[[i]], accumulated[[i - 1]])))
#> [[1]]
#> [1] 7 4 9
#> 
#> [[2]]
#> [1]  5  2 19
#> 
#> [[3]]
#> [1]  3 13

您可以unlist并检查duplicated值，然后relist并使用索引删除重复项：

dup <- relist(duplicated(unlist(ls)), skeleton = ls)
mapply(function(x, y) x[!y], ls, dup)

# [[1]]
# [1] 7 4 9
# 
# [[2]]
# [1]  5  2 19
# 
# [[3]]
# [1]  3 13

我们可以尝试stack + subset + unstack

unstack(
    subset(
        stack(setNames(lst, seq_along(lst))),
        !duplicated(values)
    )
)

它给出了

$`1`
[1] 7 4 9

$`2`
[1]  5  2 19

$`3`
[1]  3 13