如何在R中基于列表对向量进行分段同步排序？

嘿，我来帮你解决这个分段排序的小难题！首先得搞清楚你之前的代码为啥不行，然后给你两个好用的方案。

先说说你踩的坑 #

你之前用的x[unlist(sapply(Y, sort))]，其实是在对分段的索引数字排序，而不是对每个分段里的x元素排序。比如Y里的第一个分段是1:7，排序后还是1:7，索引没变化，所以最终输出和原向量一模一样，完全没达到你要的效果~

可行方案1：用基础R的lapply实现 #

咱们换个思路：遍历Y里的每个分段，先把对应位置的x元素取出来，对这些元素排序，最后把所有排序好的分段拼起来就行。代码如下：

# 你的原始数据
x <- c(-1,-1,-1,-1,1,1,1,-1,-1,1,1,-1,-1,1,1,-1,1,-1,1)
Y <- list(1:7, 8:11, 12:15, 16:19)

# 核心处理代码
sorted_x <- unlist(lapply(Y, function(idx) sort(x[idx])))

# 看看结果，就是你想要的！
sorted_x
# 输出：[-1,-1,-1,-1,1,1,1,-1,-1,1,1,-1,-1,1,1,-1,-1,1,1]

代码解释 #

• lapply(Y, function(idx) sort(x[idx]))：逐个处理Y里的每个索引段，先提取x对应位置的元素，再对这些元素排序，得到一个包含4个排序后小向量的列表。
• unlist()：把这个列表拆成一个完整的向量，就是最终的排序结果。

可选方案：用purrr包简化语法 #

如果你平时用tidyverse系列工具，用purrr::map写起来更简洁，效果完全一样：

library(purrr)

sorted_x <- map(Y, ~sort(x[.x])) %>% unlist()

这样写是不是清爽多了？

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