r - R中数组元素的非连续组合

Question

我想生成数组中不相邻元素的所有可能组合。
例如:

array_a <- c("A","B","C")

可能的组合是: AC和 CA我如何在 R 中实现它？

Answer 1

如果不相邻的元素被定义为绝对值中距离大于 1 的元素，那么一种选择可能是:

mat <- which(as.matrix(dist(seq_along(array_a))) > 1, arr.ind = TRUE)
paste0(array_a[mat[, 1]], array_a[mat[, 2]])

 [1] "CA" "DA" "EA" "DB" "EB" "AC" "EC" "AD" "BD" "AE" "BE" "CE"

样本数据:

array_a <- c("A", "B", "C", "D", "E")