如何在R语言中拆分整数向量并排序重组

给定原整数向量：

original_vec <- as.integer(c(16,9,2,17,10,3,18,11,4,19,12,5,20,13,6,21,14,7,22,15,8))

实现步骤 #

• 步骤1：拆分向量为每3个元素一组
  通过生成分组索引，用split()拆分向量：

  grouped_list <- split(original_vec, ceiling(seq_along(original_vec)/3))
  

  拆分后的分组：

  16,9,2
  17,10,3
  18,11,4
  19,12,5
  20,13,6
  21,14,7
  22,15,8
  

• 步骤2：对每组排序
  使用lapply()遍历分组列表，对每个子向量执行排序：

  sorted_groups <- lapply(grouped_list, sort)
  

  排序后的分组：

  2,9,16
  3,10,17
  4,11,18
  5,12,19
  6,13,20
  7,14,21
  8,15,22
  

• 步骤3：合并为最终整数向量
  用unlist()将排序后的列表合并为单一整数向量：

  final_vec <- unlist(sorted_groups)
  

  最终结果：

  > final_vec
  [1]  2  9 16  3 10 17  4 11 18  5 12 19  6 13 20  7 14 21  8 15 22
  

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