R中如何基于列指定的索引提取dataframe单元格内容生成新列

以下是针对你的需求的三种常用实现方案：

首先你的示例数据构造代码如下：

x = data.frame(a = c(1:10), b = c(3:12), c = seq(1:2))

• 方案1：基础R矩阵索引法（效率最高，适合大数据量）
  R的矩阵支持传入两列矩阵作为坐标索引，第一列为行号、第二列为列号，可直接逐行取出对应位置的元素：

# 仅取需要索引的a、b两列转成矩阵，构造行列匹配索引取值
x$d <- as.matrix(x[, c("a", "b")])[cbind(1:nrow(x), x$c)]

• 方案2：apply按行遍历法（逻辑直观，适合小数据量）
  逐行读取当前行的c列值作为索引，提取对应列的内容：

x$d <- apply(x, 1, function(cur_row) {
  as.numeric(cur_row[as.numeric(cur_row["c"])])
})

注意apply默认返回字符类型，需要转成数值避免后续运算异常。

• 方案3：tidyverse逐行处理法（适配dplyr语法栈场景）
  用rowwise开启逐行操作模式，配合c_across选中待索引的列后按c列值取值：

library(dplyr)
x <- x |> 
  rowwise() |> 
  mutate(d = c_across(a:b)[c]) |> 
  ungroup()

处理完成后记得调用ungroup取消逐行模式，避免影响后续数据操作。

你之前使用标准索引未得到预期结果，是因为x[, x$c]这类语法是把整个c列作为全局列索引，返回的是重复选中第1、2列的完整矩阵，而非逐行匹配取对应位置的元素。

内容的提问来源于stack exchange，提问作者Михаил Табаков