Как написать функцию для преобразования вектора символов в вектор символов уникальных пар его элементов?

Question

Какой будет ввод:

c("a", "b", "c")
[1] "a" "b" "c"

Я хочу функцию, которая возвращает:

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

Мне нужна эта функция, чтобы работать исключительно с ее входов. Я пробовал кое-что с purrr::map() и purrr::reduce(), но мне не удалось получить ничего полезного.

Answer 1

Не точный результат, но, возможно, он может быть полезен:

test<-c("a", "b", "c")
lapply(test,function(x) paste0(x,";",setdiff(test,x)))

Результат:

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

[[2]]
[1] "b;a" "b;c"

[[3]]
[1] "c;a" "c;b"

Answer 2

Мы можем использовать combn из базы R с аргументом FUN как paste

combn(x, 2, FUN = paste, collapse = ";")
#[1] "a;b" "a;c" "b;c"

данные

x <- c("a", "b", "c")