R语言如何生成匹配指定列名对应行值的新变量？

方法一：基础R索引法（无需额外包） #

这种方法直接利用数据框的行列索引提取对应值，步骤简单易上手：

1. 先构造你的示例数据集（可直接复制测试）：

df <- data.frame(
  `var 1` = c("year1", "year2", "year3"),
  year1 = c(2, 23, 12),
  year2 = c(4, 12, 4.4),
  `year 3` = c(6, 8, 7),
  stringsAsFactors = FALSE
)

2. 生成目标新列foundyearvar：

# 匹配每行var1对应的列号，结合行号定位取值
df$foundyearvar <- df[cbind(1:nrow(df), match(df$`var 1`, colnames(df)))]

关键逻辑解释： #

• match(df$var 1, colnames(df))：将每行var 1的内容与数据框列名匹配，返回对应的列位置（比如第一行"year1"对应列号2）。
• cbind(1:nrow(df), ...)：把行号（1到3）和上述列号组合成矩阵，精准定位每个需要提取的单元格。
• 用这个矩阵索引数据框，直接取出每行对应的值并赋值给新列。

方法二：tidyverse风格（适合习惯管道操作的用户） #

如果你正在学习tidyverse工具链，这种方法逻辑更直观：

1. 先加载所需工具包：

library(dplyr)
library(tidyr)

2. 处理数据生成新列：

df_new <- df %>%
  # 将所有年份列转为长格式
  pivot_longer(cols = starts_with("year"), names_to = "year_col", values_to = "value") %>%
  # 筛选出年份列名与var1匹配的行
  filter(year_col == `var 1`) %>%
  # 整理列名并合并回原数据集
  select(foundyearvar = value) %>%
  bind_cols(df, .)

关键逻辑解释： #

• pivot_longer：把宽格式的年份列转成"年份列名-对应值"的长格式，方便后续筛选匹配项。
• filter：只保留年份列名与var 1内容一致的行，这部分就是我们需要的目标值。
• bind_cols：把筛选得到的foundyearvar列合并回原数据框。

两种方法最终都会得到你想要的目标数据集：

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