如何按vector年份匹配提取data frame对应列的单元格值？

不需要用循环，R的向量化操作更高效简洁，下面提供两种常用实现方法：

方法1：基础R原生操作 #

假设你的年份向量名为year_vec，数据框名为df：

• 第一步：匹配每个目标年份在数据框Year列中的行索引
• 第二步：直接提取对应位置的数值列值，完成匹配

代码示例：

# 模拟测试数据（实际替换为你的真实数据）
year_vec <- c(2050, 2045, 2047) # 示例3个年份，实际为97个
df <- data.frame(
  Year = c(2045, 2047, 2050, 2020, 2021),
  `1` = c(10, 20, 30, 5.663, 9.344),
  `2` = c(15, 25, 35, 6.774, 10.455),
  `3` = c(12, 22, 32, 7.885, 11.566)
)

# 核心提取逻辑
row_indices <- match(year_vec, df$Year)
# 提取对应年份的数值列，转置后得到「列→目标年份值」的对应结果
final_result <- t(df[row_indices, -1])

方法2：tidyverse风格实现 #

如果你习惯用tidyverse工具链，可通过数据格式转换完成匹配：

library(dplyr)
library(tidyr)

# 模拟数据同方法1
year_vec <- c(2050, 2045, 2047)
df <- data.frame(
  Year = c(2045, 2047, 2050, 2020, 2021),
  `1` = c(10, 20, 30, 5.663, 9.344),
  `2` = c(15, 25, 35, 6.774, 10.455),
  `3` = c(12, 22, 32, 7.885, 11.566)
)

# 转成长格式并匹配目标年份
result <- df %>%
  pivot_longer(cols = -Year, names_to = "Column", values_to = "Value") %>%
  inner_join(tibble(Column = as.character(1:length(year_vec)), Target_Year = year_vec), by = "Column") %>%
  filter(Year == Target_Year) %>%
  select(Column, Value)

为什么不推荐循环？ #

R的for循环在处理数据时，无法利用底层C语言的优化，效率远低于向量化操作。哪怕是97个元素的规模，向量化代码不仅更简洁易读，运行速度也会更快，是R处理这类匹配问题的标准最优方案。

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