R语言：如何通过向量化方式提取矩阵行/列向量对应的值？

你尝试用results$new=df[vector1,vector2]未得到预期结果，是因为这种写法会生成一个矩阵（每行对应vector1的索引，每列对应vector2的索引），而非按每行的(row,col)对提取单个值。以下是两种可行的向量化解决方案：

方法1：Base R 矩阵索引法（推荐，高效无依赖） #

在R中，将两个索引向量组合成矩阵形式传入[，就能按顺序提取每个(vector1[i], vector2[i])位置的元素：

results$new <- df[cbind(vector1, vector2)]

原理：cbind(vector1, vector2)生成n行2列的索引矩阵，每一行对应一组行、列坐标，df[该矩阵]会逐个提取对应位置的值，完全匹配你的需求，且全程无循环。

方法2：Tidyverse 语法实现（可选） #

如果你习惯使用tidyverse工具链，可以用rowwise()配合mutate实现：

library(dplyr)
results <- results %>%
  rowwise() %>%
  mutate(new = df[vector1, vector2]) %>%
  ungroup()

底层仍是向量化操作，只是语法更贴合tidy风格。

测试验证 #

使用你提供的测试数据，添加随机种子保证结果可复现：

set.seed(123)
vector1 <- sample(1:5, 10, 1)
vector2 <- sample(1:3,10,1)
df <- data.frame(v1=sample(1:10,5,1),
                 v2=sample(1:10,5,1),
                 v3=sample(1:10,5,1))

results <- data.frame(ID=1:10,
                      vector1,
                      vector2
                      )

# 应用方法1
results$new <- df[cbind(vector1, vector2)]
print(results)

运行后即可得到每行ID对应单个提取值的结果，符合预期格式。

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