R语言如何根据某列值匹配选取对应列值生成新列

不需要硬编码固定列位置，以下三种常用写法都可以实现需求，且适配列顺序调整的场景，不会因为列位置变动取错值：

方法1：Base R 原生实现（无需安装第三方包） #

直接通过行列坐标矩阵定位取值，是base环境下效率最高的写法，无额外依赖：

# 假设原始数据框命名为df，观测年份列名为Year，2010-2020年指标列的列名即为对应年份值
df$matched_value <- df[cbind(
  1:nrow(df),  # 行号：逐行匹配
  match(as.character(df$Year), names(df))  # 列位置：找到当前行Year值对应的列序号
)]

以你举的例子为例：某行Year取值为2015时，match会自动定位到列名为"2015"的列位置，直接提取该行该位置的取值存入新列，不需要手动指定2015对应第6列。

方法2：Tidyverse 实现（适配管道操作习惯） #

如果平时用dplyr处理数据，可以用宽转长再匹配的逻辑，可读性更强，方便后续扩展：

library(dplyr)
library(tidyr)

df <- df %>%
  # 把2010-2020的宽表列转成长表格式，存储年份和对应指标值
  pivot_longer(
    cols = as.character(2010:2020),
    names_to = "tmp_year",
    values_to = "matched_value",
    names_transform = list(tmp_year = as.integer)
  ) %>%
  # 仅保留观测年份和指标年份一致的记录
  filter(Year == tmp_year) %>%
  # 把匹配到的指标值合并回原始数据集
  select(-tmp_year) %>%
  left_join(df, ., by = c("Unit", "Year"))

如果你的年份列名带前缀（比如gdp_2010、pop_2010这类格式），只要调整cols的匹配规则，提取列名中的年份数字做匹配即可。

方法3：data.table 实现（适配大数据量场景） #

如果你的数据集行数在几十万到百万级，用data.table的写法运行速度最快，内存占用最低：

library(data.table)
setDT(df)
# 按Year分组，直接提取对应年份列的取值
df[, matched_value := .SD[[as.character(.BY$Year)]], by = Year]

注意事项 #

• 禁止硬编码列序号（比如固定写死2015年对应第6列），一旦后续增删列、调整列顺序，代码会直接取错值，基于列名匹配的逻辑鲁棒性更强
• 如果Year列是因子类型，先通过as.character()/as.integer()转成字符/整数类型，避免匹配失败
• 运行完代码后可随机抽取3-5行做校验：对比新列取值和对应年份原列的取值是否一致，确认逻辑正确

内容的提问来源于stack exchange，提问作者flâneur