如何用lapply/mapply或tidyverse按索引批量截取列表中不同DataFrame的行？

一、按不同长度截取末尾行（对应你需求中的cutlength场景） #

Base R 实现（修复mapply用法） #

你之前用mapply得到不符合预期的结果，是因为mapply默认会把输出简化为矩阵，只需添加SIMPLIFY = FALSE就能保持列表结构：

listexample <- list(mtcars, mtcars, mtcars)
cutlength <- c(20, 10, 12)
# 一一对应截取每个DataFrame的最后n行，返回列表
listexample_short <- mapply(tail, listexample, cutlength, SIMPLIFY = FALSE)

tidyverse 实现（purrr::map2） #

用purrr的map2函数可以更直观地处理两个对应长度的输入（列表和向量）：

library(purrr)
listexample_short <- map2(listexample, cutlength, tail)

二、按不同起止索引截取行（如第一个取5-20行、第二个取7-12行） #

先定义每个DataFrame对应的起始和结束行索引（向量长度需和列表长度一致）：

start_rows <- c(5, 7, 3)  # 每个DataFrame的起始行
end_rows <- c(20, 12, 15) # 每个DataFrame的结束行

Base R 实现（mapply多参数传递） #

通过匿名函数传递每个DataFrame和对应的起止索引：

listexample_subset <- mapply(function(df, s, e) df[s:e, ],
                             listexample, start_rows, end_rows,
                             SIMPLIFY = FALSE)

tidyverse 实现（purrr::pmap） #

如果需要传递多个参数，用pmap打包参数后处理：

library(purrr)
# 简洁写法：直接传递三个输入，用..1/..2/..3指代对应位置的参数
listexample_subset <- pmap(list(listexample, start_rows, end_rows), ~ ..1[..2:..3, ])

你之前尝试的问题说明 #

• lapply(listexample,tail,cutlength)：lapply会把整个cutlength向量传给每个tail函数，导致每个tail收到长度为3的n参数，触发维度错误；
• lapply(listexample, function(x) x[1:cutlength, ])：1:cutlength会自动取cutlength的第一个元素（20），所以所有DataFrame都截取1-20行；
• mapply(tail,listexample,cutlength)：默认SIMPLIFY = TRUE，把输出简化成了矩阵而非列表，添加SIMPLIFY = FALSE即可修复。

内容的提问来源于stack exchange，提问作者Coconn