刪除 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))