使用for循环对R语言向量降序排序时的追加问题求助

问题分析 #

你原代码的核心问题在于：

• 嵌套循环逻辑错误，同一个元素会被多次追加到结果向量mx中，导致向量长度异常
• append的位置参数使用不当，没有正确找到元素应该插入的位置
• 没有维护好已排序结果的有序状态，每次操作都破坏了之前的排序

正确实现思路（插入排序） #

采用插入排序的逻辑：逐个取出原向量的元素，将其插入到已排序结果向量的合适位置，始终保持结果向量为降序。

代码实现 #

首先生成测试向量：

set.seed(114324)
num <- sample(100,10)
# 得到目标向量：96 4 87 11 74 6 37 45 14 26

然后实现降序排序：

# 初始化空向量存储排序结果
sorted_num <- c()

# 遍历原向量的每个元素
for (x in num) {
  if (length(sorted_num) == 0) {
    # 第一个元素直接加入结果向量
    sorted_num <- c(sorted_num, x)
  } else {
    inserted <- FALSE
    # 遍历已排序向量，寻找插入位置
    for (i in seq_along(sorted_num)) {
      # 找到第一个比当前元素小的位置，插入到它前面
      if (x > sorted_num[i]) {
        sorted_num <- append(sorted_num, x, after = i - 1)
        inserted <- TRUE
        break  # 插入完成后跳出内层循环
      }
    }
    # 如果当前元素比所有已排序元素都小，追加到末尾
    if (!inserted) {
      sorted_num <- c(sorted_num, x)
    }
  }
}

# 输出排序后的向量
print(sorted_num)
# 输出结果：[1] 96 87 74 45 37 26 14 11  6  4

代码说明 #

• 外层循环：逐个处理原向量的每个元素
• 内层循环：在已排序的结果向量中，找到当前元素应该插入的位置（第一个比它小的元素的前方）
• 插入逻辑：用append的after参数指定插入位置，确保结果向量始终保持降序
• 边界处理：当结果向量为空时直接加入第一个元素，当当前元素是最小值时追加到末尾

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