小编pun*_*n11的帖子

我有两个需求，都连接到一个类似于下面可重现的数据集。我有一个 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()函数系列一起使用。

感谢您阅读

编辑：

我的预期输出如下所示：

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 <- …