如何在R中基于匹配字段合并数据集并添加distance列？

完全可以实现，核心是基于两个数据集的匹配列进行关联，提取对应的distance值。下面提供两种常用的实现方式：

1. 使用R内置的merge()函数 #

步骤1：构造示例数据框

先把你提供的样本数据转换成R可识别的数据结构：

# 第一个数据集
df1 <- data.frame(
  state1 = c(1, 2, 3, 4),
  state2 = c(2, 3, 4, 1)
)

# 第二个数据集（保留原列名格式）
df2 <- data.frame(
  `state A` = rep(1:4, each = 4),
  `state B` = rep(1:4, 4),
  distance = c(0,1,1,2, 1,0,2,2, 1,2,0,3, 2,2,3,0)
)

步骤2：执行匹配合并

通过指定匹配列，保留第一个数据集的所有行，并关联第二个数据集的对应distance值：

merged_result <- merge(df1, df2, 
                      by.x = c("state1", "state2"), 
                      by.y = c("state A", "state B"), 
                      all.x = TRUE)

最终结果

运行后得到的merged_result就是你需要的格式：

state1 state2 distance
1      1      2        1
2      2      3        2
3      3      4        3
4      4      1        2

2. 使用dplyr包的left_join()（tidyverse风格） #

如果你习惯用tidyverse工具链，代码会更简洁直观：

library(dplyr)

merged_result <- df1 %>%
  left_join(df2, by = c("state1" = "state A", "state2" = "state B"))

这个方法和merge(df1, df2, all.x = TRUE)效果完全一致，都能保留第一个数据集的全部行，并精准匹配对应的距离值。

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