我正在尝试创建一个执行以下操作的函数：
input: 1:3
output: 1 2 3 2 3 1 3 1 2
通过这种方式，我想生成输入的所有排列，其中每个给定索引的元素永远不会重叠
1 2 3 and 2 3 1 and 3 1 2
我已经做到了：
sapply(1:4,(function(i){paste0(i,i+1,i+2,i+3)}))
但这不会产生我正在寻找的输出。
【问题讨论】：
标签： r
如果我理解正确
combinat::permn(x = 1:3)
[[1]]
[1] 1 2 3
[[2]]
[1] 1 3 2
[[3]]
[1] 3 1 2
[[4]]
[1] 3 2 1
[[5]]
[1] 2 3 1
[[6]]
[1] 2 1 3
【讨论】：
您还可以使用 gtools 包中的 permutations 函数：
permutations(n=3,r = 3,v = 1:3)
输出是
[,1] [,2] [,3]
[1,] 1 2 3
[2,] 1 3 2
[3,] 2 1 3
[4,] 2 3 1
[5,] 3 1 2
[6,] 3 2 1
【讨论】：
阅读您的评论看起来您可以使用matrix 生成想要的数字，例如：
n <- 2
matrix(1:n, n+1, n)[1:n,]
# [,1] [,2]
#[1,] 1 2
#[2,] 2 1
n <- 3
matrix(1:n, n+1, n)[1:n,]
# [,1] [,2] [,3]
#[1,] 1 2 3
#[2,] 2 3 1
#[3,] 3 1 2
n <- 4
matrix(1:n, n+1, n)[1:n,]
# [,1] [,2] [,3] [,4]
#[1,] 1 2 3 4
#[2,] 2 3 4 1
#[3,] 3 4 1 2
#[4,] 4 1 2 3
n <- 5
matrix(1:n, n+1, n)[1:n,]
# [,1] [,2] [,3] [,4] [,5]
#[1,] 1 2 3 4 5
#[2,] 2 3 4 5 1
#[3,] 3 4 5 1 2
#[4,] 4 5 1 2 3
#[5,] 5 1 2 3 4
我使用expand.grid 在base 中生成all 排列的第一个答案是：
x <- 1:3
do.call(expand.grid, lapply(x, \(i) x)) ->.
.[apply(., 1, anyDuplicated) == 0,]
# Var1 Var2 Var3
#6 3 2 1
#8 2 3 1
#12 3 1 2
#16 1 3 2
#20 2 1 3
#22 1 2 3
【讨论】：
我假设问题是给定 n 并且我们想要一个包含 1:n 的向量，后跟 1:n 的每个排列，其中每个排列的第 i 个元素不是 i。我们生成所有排列，然后针对 1:n 中的所有 i 消除第 i 个位置等于 i 的排列，即如果 P 是 1:n 的排列，那么我们仅在 all(P != 1:n) 为 TRUE 时才接受它。下面的计算会很快变大，但对于小的 n 应该没问题。
library(RcppAlgos)
n <- 2
p <- permuteGeneral(n)
c(cbind(1:n, t(p[apply(t(p) != 1:n, 2, all), , drop = FALSE])))
## [1] 1 2 2 1
n <- 3
p <- permuteGeneral(n)
c(cbind(1:n, t(p[apply(t(p) != 1:n, 2, all), , drop = FALSE])))
## [1] 1 2 3 2 3 1 3 1 2
n <- 4
p <- permuteGeneral(n)
c(cbind(1:n, t(p[apply(t(p) != 1:n, 2, all), , drop = FALSE])))
## [1] 1 2 3 4 2 1 4 3 2 3 4 1 2 4 1 3 3 1 4 2 3 4 1 2 3 4 2 1 4 1 2 3 4 3 1 2 4 3 2 1
【讨论】：