R：在向量列表中查找唯一向量

Question

我有一个向量列表

list_of_vectors <- list(c("a", "b", "c"), c("a", "c", "b"), c("b", "c", "a"), c("b", "b", "c"), c("c", "c", "b"), c("b", "c", "b"), c("b", "b", "c", "d"), NULL)

对于此列表，我想知道哪些向量在其元素方面是独一无二的。也就是说，我想要以下输出

[[1]]
[1] "a" "b" "c"

[[2]]
[1] "b" "b" "c"

[[3]]
[1] "c" "c" "b"

[[4]]
[1] "b" "b" "c" "d"

[[5]]
[1] NULL

R 中是否有执行此检查的函数？或者我需要通过编写函数来做很多变通方法吗？

我目前不太优雅的解决方案：

# Function for turning vectors into strings ordered by alphabet
stringer <- function(vector) {
  if(is.null(vector)) {
    return(NULL)
  } else {
    vector_ordered <- vector[order(vector)]
    vector_string <- paste(vector_ordered, collapse = "")
    return(vector_string)
  }
}

# Identifying unique strings
vector_strings_unique <- unique(lapply(list_of_vectors, function(vector) 
stringer(vector)))
vector_strings_unique 

[[1]]
[1] "abc"

[[2]]
[1] "bbc"

[[3]]
[1] "bcc"

[[4]]
[1] "bbcd"

[[5]]
NULL

# Function for splitting the strings back into vectors 
splitter <- function(string) {
  if(is.null(string)) {
    return(NULL)
  } else {
    vector <- unlist(strsplit(string, split = ""))
    return(vector)
  }
}

# Applying function
lapply(vector_strings_unique, function(string) splitter(string))

[[1]]
[1] "a" "b" "c"

[[2]]
[1] "b" "b" "c"

[[3]]
[1] "c" "c" "b"

[[4]]
[1] "b" "b" "c" "d"

[[5]]
[1] NULL

它确实有效，可以重写为单个函数，但必须有更优雅的解决方案。

Answer 1

我们可以 sort list 元素，应用 duplicated 来获取唯一元素的逻辑索引，并根据

对 list 进行子集化

list_of_vectors[!duplicated(lapply(list_of_vectors, sort))]
#[[1]]
#[1] "a" "b" "c"

#[[2]]
#[1] "b" "b" "c"

#[[3]]
#[1] "c" "c" "b"

#[[4]]
#[1] "b" "b" "c" "d"

#[[5]]
#NULL

R：在向量列表中查找唯一向量

R: Find unique vectors in list of vectors

r

list

vector

unique