R语言：如何根据指定向量对向量列表进行排序？

我来帮你搞定这个需求，在R里我们可以通过给列表命名、获取排序索引，再拼接结果这几步来实现。

完整可运行代码 #

# 先定义你的原始向量
a <- c(1, 2)
b <- c(1, 4)
c <- c(1, 1)

# 关键：给列表加上对应向量的名称，这样排序后能关联到a/b/c
x <- list(a = a, b = b, c = c)
v <- c(3, 2, 5)

# 获取让v升序排列的索引
sort_positions <- order(v)

# 对v和列表名称按索引排序
sorted_vals <- v[sort_positions]
sorted_names <- names(x)[sort_positions]

# 按你要的格式拼接成字符串
final_output <- paste(c(rbind(sorted_vals, sorted_names)), collapse = " ")

# 输出结果
cat(final_output, "\n")

代码一步步解释 #

• 给列表命名：list(a = a, b = b, c = c) 这一步很重要，因为默认的list(a,b,c)是没有元素名称的，加了名称后我们才能在排序后对应回原始的向量名。
• 获取排序索引：order(v)会返回一个索引向量，告诉我们怎么排列v才能得到升序结果。这里v = c(3,2,5)，order(v)会返回c(2,1,3)——意思是取v的第2个元素（2）、第1个元素（3）、第3个元素（5），刚好是升序。
• 同步排序值和名称：用上面的索引分别对v和列表名称排序，得到排序后的数值c(2,3,5)和对应的向量名c("b", "a", "c")。
• 拼接成目标格式：rbind(sorted_vals, sorted_names)会把数值和名称按行绑定，转成向量后就是c(2, "b", 3, "a", 5, "c")，再用paste拼接成空格分隔的字符串，就得到了你想要的2 b 3 a 5 c。

如果需要降序排序，只要把order(v)改成order(-v)就行啦。

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