如何在 R 中每 10 个项目拆分列表？

Question

我有一个包含 100 个项目的清单。我想在代码 1 中的每第 10 个项目之后拆分它。代码 2 是关于两个前列表的列表，并将其拆分为 20 个列表，每个列表 10 个项目。

代码 1

预期输出：10 个包含 10 个项目的列表。

A <- 100
a <- rnorm(A) # [1:100]
n <- 10
str(a)

# Not resulting in equal size of chunks with vectors so reject
# 
#d <- split(d, ceiling(seq_along(d)/(length(d)/n)))

# Works for vectors but not with lists
# 
#d <- function(d,n) split(d, cut(seq_along(d), n, labels = FALSE)) 

str(d)

测试代码2

输入：两个列表的列表

aa <- list(a, rnorm(a))

预期输出：20 个列表，10 个项目大小

测试 Loki 的回答

segmentLists <- function(A, segmentSize) {
  res <- lapply(A, function(x) split(unlist(x), cut(seq_along(unlist(x)), segmentSize, labels = F)))

  #print(res)    
  res <- unlist(res, recursive = F)
}

segmentLists(aa, 10)

输出：循环继续，永不停止

OS：Debian 8.5
R: 3.3.1

Answer 1

您可以使用 lapply。

aa <- list(a, rnorm(a))
aa
n <- 10

x <- lapply(aa, function(x) split(unlist(x), cut(seq_along(unlist(x)), n, labels = F)))
y <- unlist(x, recursive = F)
str(y)
# List of 20
# $ 1 : num [1:10] 1.0895 -0.0477 0.225 -0.6308 -0.1558 ...
# $ 2 : num [1:10] -0.469 -0.381 0.709 -0.798 1.183 ...
# $ 3 : num [1:10] 0.757 -1.128 -1.394 -0.712 0.494 ...
# $ 4 : num [1:10] 1.135 0.324 0.75 -0.83 0.794 ...
# $ 5 : num [1:10] -0.786 -0.068 -0.179 0.354 -0.597 ...
# $ 6 : num [1:10] -0.115 0.164 -0.365 -1.827 -2.036 ...
...

length(y)
# [1] 20

要删除 y 中列表元素的名称（$ 1、$ 2 等），您可以使用 unname()

str(unname(y))
# List of 20
# $ : num [1:10] 1.0895 -0.0477 0.225 -0.6308 -0.1558 ...
# $ : num [1:10] -0.469 -0.381 0.709 -0.798 1.183 ...
# $ : num [1:10] 0.757 -1.128 -1.394 -0.712 0.494 ...
# $ : num [1:10] 1.135 0.324 0.75 -0.83 0.794 ...
# $ : num [1:10] -0.786 -0.068 -0.179 0.354 -0.597 ...
...

使用函数，必须在函数的末尾return res。

segmentLists <- function(A, segmentSize)
{
  res <- lapply(A, function(x) split(unlist(x), cut(seq_along(unlist(x)), segmentSize, labels = F)))

  #print(res)

  res <- unlist(res, recursive = F)
  res <- unname(res)
  res
}

如何在 R 中每 10 个项目拆分列表？

How to split list at every 10th item in R?

split

r

list

chunks

代码 1

测试代码2

测试 Loki 的回答