排序删除数值向量首尾元素后，如何在不改变现有策略的前提下恢复其原始顺序

你的思路本身没问题，但直接排序后删除元素会丢失原始顺序的信息，所以没法直接用原来的order恢复。不过我们可以换个思路：先记录原始向量中哪些元素属于要保留的中间部分，再直接从原始向量中提取这些元素，这样自然就能保持原始顺序了。

这里有两种可靠的实现方式：

方法一：利用排序索引定位保留元素 #

这种方法能精准控制要删除的极值数量，哪怕向量中有重复值也不会出错：

set.seed(3758)
test.x <- rnorm(1000)

# 获取原始向量排序后的索引（test.x[ord]就是排序后的向量）
ord <- order(test.x)

# 确定要保留的元素对应的原始索引：排序后第31到第970位的元素（1000-30=970）
keep_idx <- ord[31:(length(test.x)-30)]

# 按原始顺序提取保留元素：对索引排序后再取子集
test.x_keep <- test.x[sort(keep_idx)]

解释一下：

• ord是原始向量从小到大排序后的元素索引，ord[1:30]就是最小30个元素的原始位置，ord[971:1000]是最大30个的位置。
• sort(keep_idx)把保留元素的原始索引按从小到大排列，这样提取出来的元素就是原始向量中保留部分的顺序。

方法二：利用秩筛选（适合无重复值的场景） #

如果你的向量没有重复值，用rank函数会更简洁：

set.seed(3758)
test.x <- rnorm(1000)

# 计算每个元素的秩（从小到大的排名）
r <- rank(test.x)

# 筛选出排名在31到970之间的元素
test.x_keep <- test.x[r > 30 & r <= length(test.x)-30]

注意：如果向量中有重复值，rank的默认处理（ties.method="average"）会给重复元素相同的秩，可能导致筛选出的元素数量不是预期的940，这时候优先用方法一。

验证一下：

• 原始向量长度1000，length(test.x_keep)应该是940，符合预期。
• test.x_keep的顺序和原始test.x中保留元素的顺序完全一致。

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