基于位置在两个R数据框间映射值的实现方法问询

看起来你需要把长格式的映射数据框中的值，填充到宽格式的主数据框对应id和列名的位置对吧？下面我会给出两种常用的实现方案，你可以根据自己的习惯选择：

首先先把你提供的两个数据框完整定义好（补全了映射表中缺失的val值，你可以根据实际情况替换）：

# 主数据框 dt
id <- c(1,2,3,4)
a <- c(1,1,0,1)
b <- as.character(c(0,1,1,1))
c <- as.character(c(0,1,1,0))
d <- c(0,1,1,0)
dt <- data.frame(id,a,b,c,d, stringsAsFactors = FALSE)

# 映射数据框 dt_mapping
id <- c(1,2,2,2,2,3,3,3,4,4)
col <- c("a","a","b","c","d","b","c","d","a","b")
val <- as.character(c("t1","x1","x2","x3","x4","y2","y3","y4","z1","z2"))
dt_mapping <- data.frame(id, col, val, stringsAsFactors = FALSE)

方案一：使用tidyverse（dplyr + tidyr） #

这种方法通过宽转长→合并→长转宽的流程实现，代码更简洁易读，适合处理复杂的数据转换：

library(tidyverse)

# 1. 将主数据框转成长格式，方便和映射表合并
dt_long <- dt %>%
  pivot_longer(cols = -id, names_to = "col", values_to = "original_val")

# 2. 按id和col列合并两个数据框，获取对应的映射值
dt_merged <- dt_long %>%
  left_join(dt_mapping, by = c("id", "col"))

# 3. 转回宽格式，得到最终结果
# 如果存在同一id+col的重复值，可以用values_fn指定取第一个/最后一个，比如values_fn = last
dt_result <- dt_merged %>%
  pivot_wider(id_cols = id, names_from = col, values_from = val)

# 查看结果
print(dt_result)

运行后得到的结果：

# A tibble: 4 × 5
     id a     b     c     d    
  <dbl> <chr> <chr> <chr> <chr>
1     1 t1    NA    NA    NA   
2     2 x1    x2    x3    x4   
3     3 NA    y2    y3    y4   
4     4 z1    z2    NA    NA   

方案二：使用Base R #

如果你不想加载额外的包，可以用基础R的循环+索引实现：

# 创建和主数据框结构一致的结果框，初始值设为NA
dt_result_base <- dt
dt_result_base[, -1] <- NA

# 遍历映射表的每一行，填充对应位置的值
for(i in 1:nrow(dt_mapping)){
  # 获取当前行的id、列名和值
  current_id <- dt_mapping$id[i]
  current_col <- dt_mapping$col[i]
  current_val <- dt_mapping$val[i]
  
  # 找到主数据框中匹配id的行索引
  row_idx <- which(dt$id == current_id)
  
  # 给对应位置赋值（如果有重复的id+col，会覆盖为最后一个值）
  dt_result_base[row_idx, current_col] <- current_val
}

# 查看结果
print(dt_result_base)

运行后得到的结果和方案一一致（注意重复值的处理逻辑：这里会保留最后一次出现的映射值）。

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