Trouver toute la liste des correspondances dans les listes de listes

Question

J'ai une liste de vecteurs Je veux trouver tous les vecteurs communs. C'est-à-dire, ceux qui contiennent exactement les mêmes éléments, en gardant le numéro de position de chaque liste dans R. Une commande de doublure si possible.

Voici mylist:

mylist<-list(c("yes", "no"), c("no", "other", "up", 
"down"), c("no", "yes"), c("no", 
"yes"), c("no", "yes", "maybe"), c("no", 
"yes", "maybe"), c("no", "yes", "maybe")) 

sortie souhaitée:

Listes communes sont: Match 1: 1,3,4 Match 2: 5,6,7

Answer 1

Voici une option à l'aide split

Filter(function(x) length(x) >1, split(seq_along(mylist), 
        sapply(mylist, function(x) toString(sort(x))))) 
#$`maybe, no, yes` 
#[1] 5 6 7 

#$`no, yes` 
#[1] 1 3 4 

Answer 2

duplicated accepte les listes comme son argument principal. Vous pouvez donc utiliser

which(duplicated(mylist1) | duplicated(mylist1, fromLast=TRUE)) 
[1] 3 4 5 6 7 

pour votre premier exemple. Notez que ceci ne fera pas la distinction entre les groupes d'éléments de liste avec des éléments communs, mais retournera TRUE uniquement pour les éléments avec des éléments identiques.

Pour le second exemple ensemble de données, vous pouvez utiliser les éléments suivants pour trouver les positions des groupes

# get group values as integers 
groups <- as.integer(factor(sapply(mylist2, 
            function(x) paste(sort(x), collapse="")))) 
# return list of groups 
lapply(seq_len(max(groups)), function(x) which(x == groups)) 
[[1]] 
[1] 2 

[[2]] 
[1] 5 6 7 

[[3]] 
[1] 1 3 4 

données

mylist1 <- 
list(c("yes", "no"), c("no", "other", "up", "down"), c("no", 
"yes", "maybe"), c("no", "yes", "maybe"), c("no", "yes", "maybe" 
), c("no", "yes", "maybe"), c("no", "yes", "maybe")) 

mylist2 <- 
list(c("yes", "no"), c("no", "other", "up", "down"), c("no", 
"yes"), c("no", "yes"), c("no", "yes", "maybe"), c("no", "yes", 
"maybe"), c("no", "yes", "maybe")) 

Answer 3

Cela fonctionne pour moi:

mylist<-list(c("yes", "no"), c("no", "other", "up", 
           "down"), c("no", "yes"), c("no", 
                  "yes"), c("no", "yes", "maybe"), c("no", 
                          "yes", "maybe"), c("no", "yes", "maybe")) 

library(dplyr) 

# function to create a dataframe from your list. Might not be the most efficient way to do this. 
f <- function(data) { 
    nCol <- max(vapply(data, length, 0)) 
    data <- lapply(data, function(row) c(row, rep(NA, nCol-length(row)))) 
    data <- matrix(unlist(data), nrow=length(data), ncol=nCol, byrow=TRUE) 
    data.frame(data) 
} 

# create a dataframe from the list, and add a 'key' column 
df = f(mylist) 
df$key = apply(df , 1 , paste , collapse = "-") 

# find the total times the key occurs 
df_total = df %>% group_by(key) %>% summarise(n =n()) 

# find the indices that belong to the groups 
result = lapply(df_total$key, function(x) which(df$key==x)) 

Résultat:

> result 
[[1]] 
[1] 2 

[[2]] 
[1] 5 6 7 

[[3]] 
[1] 3 4 

[[4]] 
[1] 1 

Espérons que cela aide!

Answer 4

données

mylist <- list(c("yes", "no"), c("no", "other", "up", "down"), c("no", "yes"), 
      c("no", "yes"), c("no", "yes", "maybe"), c("no", "yes", "maybe"), 
      c("no", "yes", "maybe")) 

un (long) one-liner

sapply(unique(unlist(lapply(mylist, function(x) paste(sort(x), collapse = " ")))), function(y) which(y == unlist(lapply(mylist, function(x) paste(sort(x), collapse = " "))))) 

sortie:

$`no yes` 
[1] 1 3 4 

$`down no other up` 
[1] 2 

$`maybe no yes` 
[1] 5 6 7 

Answer 5

En voici une pour s'amuser. Vous pouvez utiliser mtabulate du package qdapTools pour obtenir la trame de données suivante,

d1 <- qdapTools::mtabulate(mylist) 
d1 
# down maybe no other up yes 
#1 0  0 1  0 0 1 
#2 1  0 1  1 1 0 
#3 0  0 1  0 0 1 
#4 0  0 1  0 0 1 
#5 0  1 1  0 0 1 
#6 0  1 1  0 0 1 
#7 0  1 1  0 0 1 

Et vous pouvez le diviser en collant,

l1 <- split(d1, do.call(paste, d1)) 

l1 
#$`0 0 1 0 0 1` 
# down maybe no other up yes 
#1 0  0 1  0 0 1 
#3 0  0 1  0 0 1 
#4 0  0 1  0 0 1 

#$`0 1 1 0 0 1` 
# down maybe no other up yes 
#5 0  1 1  0 0 1 
#6 0  1 1  0 0 1 
#7 0  1 1  0 0 1 

#$`1 0 1 1 1 0` 
# down maybe no other up yes 
#2 1  0 1  1 1 0 

Vous pouvez utiliser cette liste comme vous le voulez, à savoir

Ou encore,

setNames(lapply(l1, rownames), lapply(l1, function(i)toString(names(i)[i[1,] == 1]))) 
#$`no, yes` 
#[1] "1" "3" "4" 

#$`maybe, no, yes` 
#[1] "5" "6" "7" 

#$`down, no, other, up` 
#[1] "2"