como encontrar caracteres únicos tanto na ordem para frente quanto para trás em R

Você poderia usar strsplit()para dividir os dois caracteres, então classificá-los em ordem alfabética e colá-los novamente. Isso se transformará "b_a"em "a_b". Então você poderia obter os valores exclusivos das strings classificadas.

l <- c('a_b', 'a_c', 'a_d', 'a_e', 'a_b', 'b_a', 'b_c', 'b_c','c_b')

ll <- strsplit(l, "_")
ll <- sapply(ll, \(x)paste(sort(x), collapse="_"))
unique(ll)
#> [1] "a_b" "a_c" "a_d" "a_e" "b_c"

^{Criado em 2025-02-05 com reprex v2.1.1}

Outra opção seria primeiro classificar os caracteres em cada sequência da sua lista e remover duplicatedas entradas:

l <- c('a_b', 'a_c', 'a_d', 'a_e', 'a_b', 'b_a', 'b_c', 'b_c','c_b')

l[!duplicated(Tmisc::strSort(l))]
#[1] "a_b" "a_c" "a_d" "a_e" "b_c"

Outra maneira de fazer isso é usar a base R utf8toIntpara classificar strings:

l[!duplicated(lapply(l, \(x) sort(utf8ToInt(x))))]
#[1] "a_b" "a_c" "a_d" "a_e" "b_c"

Tomando emprestados dados da solução de @DaveArmstrong , você pode tentar

• Opção 1

with(
    read.table(text = l, sep = "_"),
    unique(paste(pmin(V1, V2), pmax(V1, V2), sep = "_"))
)

• Opção 2

idx <- seq_along(l) < match(l, sub("(\\w+)_(\\w+)", "\\2_\\1", l))
unique(l[replace(idx, is.na(idx), TRUE)])

o que dá

[1] "a_b" "a_c" "a_d" "a_e" "b_c"

Isso é exagero para este exemplo simples, mas conceitualmente eu pensaria nisso como um gráfico não direcionado. Podemos usar strcapture()para criar um data frame do seu vetor le usar igraph::graph_from_data_frame()para construir o gráfico:

library(igraph)
g <- strcapture("(.+)_(.+)", l, data.frame(x = character(), y = character())) |>
    graph_from_data_frame(directed = FALSE) |>
    simplify() # remove duplicate edges

Se plot(g)veríamos algo como:

Podemos então extrair as arestas e paste()juntá-las:

d <- as_data_frame(g, what="edges")
paste0(d$from, "_", d$to)
# [1] "a_b" "a_c" "a_d" "a_e" "b_c"