在R中使用split()和append()组合偶数和奇数列表

考虑以下MWE:

x <- rnorm(100) # generate values
k <- 4 # number of groups

y <- split(x, 1:k) # split values into k groups
y

# combine even and odd lists
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

以上工作除

(1) 只有中的列表3和4中的元素 y 包括在内,因为值在的第二次传递过程中被重写 for 环

(2) 我想修改上面的循环,以便 res 返回列表列表(与返回列表的方式相同 split() 。就是这样 物件 应包含一个包含 y[[1]] 和 y[[2]] ,以及第二个列表,其中包含 y[[3]] 和 y[[4]] .