如何在R语言中按列表索引提取对应位置的行？

要实现给列表中每个数据框提取对应位置的行（如第一个元素取第1行、第二个取第2行、第三个取第3行），可以用以下两种高效方法：

方法1：基础R的mapply函数 #

mapply能同时遍历列表和索引向量，逐个匹配提取：

# 定义每个元素要提取的行索引
row_indices <- c(1, 2, 3)

# 提取对应行，保持结果为列表且每个元素是data.frame
result <- mapply(function(df, idx) df[idx, , drop = FALSE], 
                 lst, row_indices, 
                 SIMPLIFY = FALSE)

# 查看结果
result

运行后输出：

[[1]]
         X1        X2        X3
1 0.2875775 0.8830174 0.5281055

[[2]]
         X1        X2         X3
2 0.9568333 0.5726334 0.24608773

[[3]]
         X1        X2        X3
3 0.8895393 0.9942698 0.5440660

参数说明： #

• drop = FALSE：确保提取后仍为data.frame（避免单行被简化为向量）
• SIMPLIFY = FALSE：强制返回列表类型（而非自动转换为矩阵）

方法2：tidyverse的purrr::map2函数 #

如果你习惯使用tidyverse工具链，map2是更简洁的选择：

library(purrr)

row_indices <- c(1, 2, 3)
result <- map2(lst, row_indices, ~ .x[.y, , drop = FALSE])

该方法逻辑和mapply一致，语法更简洁直观，适合tidyverse用户。

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