Uma solução é ordenar cada uma das strings e compará-las duas a duas.
lista <- data.frame(frutas = c("banana, abacate, laranja","limao, abacate","laranja, banana, abacate"))
ltemp <- sapply(strsplit(lista$frutas, ""), \(x) {
trimws(paste(sort(x), collapse = ""))
})
res <- combn(ltemp, 2, \(x) x[[1]] == x[[2]])
rm(ltemp)
setNames(res, combn(length(res), 2, \(x) paste(x, collapse = ".")))
#> 1.2 1.3 2.3
#> FALSE TRUE FALSE
Created on 2022-07-22 by the reprex package (v2.0.1)
Edição
No seguimento da resposta do Carlos Eduardo Lagosta, pode-se usar outer
para criar uma matrix lógica de comparações.
lista <- data.frame(frutas = c("banana, abacate, laranja","limao, abacate","laranja, banana, abacate"))
ltemp <- sapply(strsplit(lista$frutas, ""), \(x) {
trimws(paste(sort(x), collapse = ""))
})
outer(ltemp, ltemp, `==`)
#> [,1] [,2] [,3]
#> [1,] TRUE FALSE TRUE
#> [2,] FALSE TRUE FALSE
#> [3,] TRUE FALSE TRUE
Created on 2022-07-23 by the reprex package (v2.0.1)
Com os dados aumentados da mesma resposta.
df <- data.frame(frutas = c(
"banana, abacate, laranja",
"limao, abacate",
"laranja, banana, abacate",
"abacate, laranja, banana",
"laranja, banana"))
ltemp2 <- sapply(strsplit(df$frutas, ""), \(x) {
trimws(paste(sort(x), collapse = ""))
})
outer(ltemp2, ltemp2, `==`)
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] TRUE FALSE TRUE TRUE FALSE
#> [2,] FALSE TRUE FALSE FALSE FALSE
#> [3,] TRUE FALSE TRUE TRUE FALSE
#> [4,] TRUE FALSE TRUE TRUE FALSE
#> [5,] FALSE FALSE FALSE FALSE TRUE
Created on 2022-07-23 by the reprex package (v2.0.1)