R - 从 data.frames 列表中提取信息

我有两个需求，都连接到类似于下面可重现的数据集。我有一个包含 18 个实体的列表，每个实体由 17-19 个 data.frames 的列表组成。可重现的数据集如下（有矩阵而不是 data.frames，但我不认为这有什么区别）：

test <- list(list(matrix(10:(50-1), ncol = 10), matrix(60:(100-1), ncol = 10), matrix(110:(150-1), ncol = 10)),
             list(matrix(200:(500-1), ncol = 10), matrix(600:(1000-1), ncol = 10), matrix(1100:(1500-1), ncol = 10)))

1. 我需要将每个数据帧/矩阵分成两部分（按给定的行数）并保存到新的列表列表
2. 其次，我需要从每个列中提取并保存给定的列data.frame在列表的列表中。

除了for()，但我确信这应该是可能的apply()函数族。

感谢您的阅读

EDIT:

我的预期输出如下：

extractedColumns <- list(list(matrix(10:(50-1), ncol = 10)[, 2], matrix(60:(100-1), ncol = 10)[, 2], matrix(110:(150-1), ncol = 10)[, 2]),
                         list(matrix(200:(500-1), ncol = 10)[, 2], matrix(600:(1000-1), ncol = 10)[, 2], matrix(1100:(1500-1), ncol = 10)[, 2]))


numToSubset <- 3
substetFrames <- list(list(list(matrix(10:(50-1), ncol = 10)["first length - numToSubset rows", ], matrix(10:(50-1), ncol = 10)["last numToSubset rows", ]), 
                           list(matrix(60:(100-1), ncol = 10)["first length - numToSubset rows", ], matrix(60:(100-1), ncol = 10)["last numToSubset rows", ]),
                                list(matrix(110:(150-1), ncol = 10)["first length - numToSubset rows", ], matrix(110:(150-1), ncol = 10)["last numToSubset rows", ])),
                      etc...)

它看起来很混乱，希望你能遵循我的要求。

您可以使用两个嵌套lapplys:

lapply(test, function(x) lapply(x, '[', c(2, 3)))

Ouput:

[[1]]
[[1]][[1]]
[1] 11 12

[[1]][[2]]
[1] 61 62

[[1]][[3]]
[1] 111 112


[[2]]
[[2]][[1]]
[1] 201 202

[[2]][[2]]
[1] 601 602

[[2]][[3]]
[1] 1101 1102

解释

首先lapply将应用于两个列表test。这两个列表中的每一个都包含另一个 3。第二个lapply将迭代这 3 个列表和子集（即'['函数在第二个lapply） 列c(2, 3).

注意：如果是矩阵[将对元素 2 和 3 进行子集化，但在 data.frame 上使用时，相同的函数将对列进行子集化。

行和列的子集化

lapply匿名函数的使用非常灵活。通过将代码更改为：

#change rows and columns into what you need
lapply(test, function(x) lapply(x, function(y) y[rows, columns]))

您可以指定所需的行或列的任意组合。