如何对向量进行交替排序？将向量x从c(4,4,5,5)转为c(4,5,4,5)

你需要把初始向量：

x <- c(4,4,5,5)
# 输出：[1] 4 4 5 5

转换为交替排列的结果：

# 目标：[1] 4 5 4 5

以下是几种直接可行的实现方式：

方法1：矩阵转置法（最简洁） #

利用矩阵的转置操作快速重组元素，适用于每个重复元素出现次数相同的场景：

x <- c(4,4,5,5)
# 将向量按列拆分为2列的矩阵，转置后扁平化
result <- as.vector(t(matrix(x, ncol = 2)))
print(result)
# 输出：[1] 4 5 4 5

原理：矩阵默认按列填充，拆分后得到cbind(c(4,4), c(5,5))，转置后变为每行是c(4,5)，扁平化后就得到交替排列的向量。

方法2：重复元素遍历法 #

通过提取唯一值，再按次数重复生成交替序列：

x <- c(4,4,5,5)
# 获取向量中的唯一值
unique_vals <- unique(x)
# 按交替规则重复生成序列
result <- rep(unique_vals, times = length(x)/length(unique_vals))
print(result)
# 输出：[1] 4 5 4 5

原理：rep函数的times参数指定重复整个唯一值序列的次数，这里向量长度为4，唯一值数量为2，所以重复2次即可得到目标结果。

方法3：分组映射法 #

通过拆分向量为元素组，再逐组交替提取元素：

x <- c(4,4,5,5)
# 按元素值拆分向量为两个组：list(c(4,4), c(5,5))
groups <- split(x, x)
# 逐位置配对两个组的元素并合并
result <- unlist(Map(function(a, b) c(a, b), groups[[1]], groups[[2]]))
print(result)
# 输出：[1] 4 5 4 5

原理：Map函数会分别取两个组的第1个、第2个元素配对，生成c(4,5)和c(4,5)，最后合并为一个向量。

注意：你之前尝试的TRUE/FALSE参数可能是针对sort函数的排序方向，但这里的需求不是排序，而是重复元素的交替重组，因此sort无法直接实现目标效果。

内容的提问来源于stack exchange，提问作者TarJae