使用 R 将数组拆分为更小的数组

Question

我有一个奇数行的一维数组，2435 行。我想把数组拆分成更小的数组，每次都做一个小测试。

首先，我想将大数组拆分为两个较小的数组。

然后我想将我的数组分成 4 个较小的数组，然后分成 8 个小数组，依此类推。

有人可以帮忙吗？

一个例子如下：

A

A1 1,2,3,4,...,1237

A2 1238, 1239,...,2435

提前致谢

Answer 1

为什么不简单地使用split() 函数呢？例如（使用奇数长度会返回警告，但没关系）：

split(x = 1:11, f = 1:2) # to split into 2 distinct list elements
#$`1`
#[1]  1  3  5  7  9 11
#
#$`2`
#[1]  2  4  6  8 10

split(x = 1:11, f = 1:4)
#$`1`
#[1] 1 5 9
#
#$`2`
#[1]  2  6 10
#
#$`3`
#[1]  3  7 11
#
#$`4`
#[1] 4 8

如果您真的热衷于拆分为 2，然后再拆分为 2，您始终可以使用 lapply() 函数，该函数适用于列表的每个元素：

lapply(split(x = 1:11, f = 1:2), split, f = 1:2)
#$`1`
#$`1`$`1`
#[1] 1 5 9
#
#$`1`$`2`
#[1]  3  7 11
#
#
#$`2`
#$`2`$`1`
#[1]  2  6 10
#
#$`2`$`2`
#[1] 4 8

嵌套结构有点麻烦，但还有其他方法可以解决这个问题，例如：

L <- split(x = 1:11, f = 1:2) # the main (first) split
names(L) <- letters[1:length(L)] # names the main split a and b
LL <- lapply(L, split, f = 1:2) # split the main split
unlist(LL, recursive = F)
#$a.1
#[1] 1 5 9
#
#$a.2
#[1]  3  7 11
#
#$b.1
#[1]  2  6 10
#
#$b.2
#[1] 4 8

Answer 2

如果想通过数组中间拆分数据，也可以使用split函数：

a <- 1:2435

divide <- function(x, n = 2)
{
  i <- ceiling(length(x)/n)
  split(x,x%/%i+1)

}

divide(a)

你可以使用更多的部分

divide(a, n = 4)

或者在两次迭代中使用

lapply(divide(a,2),function(x) divide(x,2))

n 值越大，由于舍入问题，大小将不再相等。这保证了使用嵌套方法。