如何在R中用split()和append()合并奇偶分组列表并解决覆盖问题

原代码（最小工作示例） #

x <- rnorm(100) # 生成随机值
k <- 4 # 分组数量

y <- split(x, 1:k) # 将值拆分为k个组
y

# 合并奇偶位置的列表
for (i in 1:length(y)) {
  for (j in 1:length(y)) {
    if ((i %% 2 == 1) && (j %% 2 == 0)) {
     res <- append(y[[i]], y[[j]])
    }
  }
}

res

原代码存在的问题 #

• 循环过程中res会被反复覆盖，最终仅保留最后一次循环的结果（即y[[3]]和y[[4]]的合并值）
• 输出结果是单个向量，不符合需求：需要返回列表的列表（与split()返回格式一致），包含两个子列表，分别是y[[1]]与y[[2]]的合并、y[[3]]与y[[4]]的合并

修改后的代码 #

x <- rnorm(100)
k <- 4
y <- split(x, 1:k)

# 初始化res为指定长度的空列表，对应要生成的子列表数量
res <- vector("list", k/2)
# 按步长2遍历奇数索引，直接匹配对应的偶数索引
for (i in seq(1, k, by = 2)) {
  # 计算当前子列表在res中的位置
  idx <- (i + 1)/2
  # 将对应奇偶组合并后存入res的对应位置
  res[[idx]] <- append(y[[i]], y[[i+1]])
}

res

代码说明 #

• 提前初始化res为指定长度的空列表，避免循环中被覆盖
• 用步长为2的序列遍历奇数索引，直接配对相邻的偶数索引，减少不必要的循环次数
• 每次合并结果存入res的对应位置，最终得到结构与split()一致的列表的列表

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