删除 R 中列表列表中的常见列表元素

Question

我有一个列表列表，我想删除这些子列表之间的公共元素。

例如

mylist = list(
c(1, 2, 3, 4),
c(2, 5, 6, 7),
c(4, 2, 8, 9)
)

变成

mylist = list(
c(1, 3),
c(5, 6, 7),
c(8, 9)
)

我首先创建了一个通用元素列表，并尝试从子列表中提取此列表，但它不起作用

common_elements = list(Reduce(intersect, mylist))
mylist = mylist[!(mylist %in% common_elements)]

你可以帮帮我吗？ 谢谢 ！

Answer 1

根据更新，它是一个vector list 。 使用 enframe 将list转换为两列 tibble/ enframe ，获取要filter的不同元素的计数并split回vector list

library(dplyr)
library(tibble)
library(tidyr)
enframe(mylist) %>%     
    unnest(value) %>%
    group_by(value) %>%
    filter(n_distinct(name) == 1) %>% 
    with(., split(value, name)) %>%
    unname

-输出

[[1]]
[1] 1 3

[[2]]
[1] 5 6 7

[[3]]
[1] 8 9

数据

mylist <- list(c(1, 2, 3, 4), c(2, 5, 6, 7), c(4, 2, 8, 9))

Answer 2

一个基础 R 选项

> lut <- table(unlist(mylist))

> comm <- as.numeric(names(lut[lut > 1]))

> lapply(mylist, function(x) x[!x %in% comm])
[[1]]
[1] 1 3

[[2]]
[1] 5 6 7

[[3]]
[1] 8 9

数据

mylist <- list(1:4, c(2, 5:7), c(4, 2, 8, 9))

Answer 3

列表列表的 tidyverse 选项。

library(tidyverse)

ls %>%
  enframe() %>%
  unnest(value) %>%
  mutate(dupes = if_else(duplicated(value) == T, as.integer(value), NA_integer_)) %>%
  filter(!value %in% dupes) %>%
  group_by(name) %>%
  mutate(X = list(value)) %>%
  ungroup() %>%
  distinct(X) %>%
  deframe()

# [[1]]
# [[1]][[1]]
# [1] 1
# 
# [[1]][[2]]
# [1] 3
# 
# 
# [[2]]
# [[2]][[1]]
# [1] 5
# 
# [[2]][[2]]
# [1] 6
# 
# [[2]][[3]]
# [1] 7
# 
# 
# [[3]]
# [[3]][[1]]
# [1] 8
# 
# [[3]][[2]]
# [1] 9

数据

ls <- list(list(1, 2, 3, 4), list(2, 5, 6, 7), list(4, 2, 8, 9))