r - 将列表拆分为长度为 x 的列表

Question

简单的问题，给定一个列表：

main_list <- list(1:3,
                  4:6,
                  7:9,
                  10:12,
                  13:15)
main_list
# [[1]]
# [1] 1 2 3

# [[2]]
# [1] 4 5 6

# [[3]]
# [1] 7 8 9

# [[4]]
# [1] 10 11 12

# [[5]]
# [1] 13 14 15

我想将列表拆分为多个列表，将原始列表拆分为每个长度的列表x。所以如果我说x = 2，我会得到 3 个长度为 2、2 和剩余 1 的列表：

target <- list(list(1:3,
               4:6),
               list(7:9,
               10:12),
               list(13:15))
target
# [[1]]
# [[1]][[1]]
# [1] 1 2 3

# [[1]][[2]]
# [1] 4 5 6


# [[2]]
# [[2]][[1]]
# [1] 7 8 9

# [[2]][[2]]
# [1] 10 11 12


# [[3]]
# [[3]][[1]]
# [1] 13 14 15

就像是：

my_split <- function(listtest, x) {
  split(listtest, c(1:x))
  }
target <- my_split(main_list, 2)

谢谢

标签： rlistsplitpurrr

Answer 1

这是一个选项gl

split(main_list, as.integer(gl(length(main_list), 2, length(main_list))))

它可以转换为自定义函数

f1 <- function(lstA, n) {
      l1 < length(lstA)
      split(lstA, as.integer(gl(l1, n, l1)))
  }