在R语言中如何实现行列位置一一对应的索引匹配取值？

你之前的写法触发的是tibble的标准切片逻辑：传入行向量和列向量时，会返回所有行和列交叉组合的子表，无法得到一一对应位置的取值。可以用以下两种常见方法实现需求：

方法1：基础R矩阵索引（最简洁） #

将行、列位置向量拼接为n行2列的矩阵作为索引，即可直接提取对应位置的值：

library(tibble)

# 示例tibble
my_tibble <- tibble(
  col1 = 1:10,
  col2 = 11:20,
  col3 = 21:30,
  col4 = 31:40,
  col5 = 41:50,
  col6 = 51:60,
  col7 = 61:70
)

# 行列位置向量
row <- c(1,4,6,2,5)
column <- c(2,3,7,3,6)

# 提取结果转列表
my_list <- as.list(my_tibble[cbind(row, column)])

该方法核心逻辑是cbind(row, column)生成的矩阵，每一行对应一组需要提取的坐标，R的data.frame/tibble原生支持这种索引方式。

方法2：purrr迭代实现（tidyverse生态） #

如果你的项目已经在使用tidyverse套件，可以用purrr的map2迭代对应行列对取值，适合后续需要对单个值做额外处理的场景：

library(purrr)

my_list <- map2(row, column, ~ my_tibble[[.y]][.x])

map2会同步遍历两个向量的每一组对应元素，.x对应行位置，.y对应列位置，最终直接返回列表格式的结果。

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