R递归连接未获预期结果：Excel航班模型迁移遇阻

看起来你需要的是迭代追踪航段链条：从每个入境航段出发，不断找到对应的出境航段作为下一个入境航段，直到找不到匹配项为止，最终把整条链条整理成行。你之前用join_all的方式只能做单次连接，没法实现这种循环匹配的逻辑，下面是具体的解决思路和代码：

步骤1：准备数据与映射表 #

首先我们把示例数据转换成R的数据框，并创建一个快速查找的映射表，方便后续查找每个入境航段对应的出境航段：

# 示例数据（替换成你的实际数据）
flight_data <- data.frame(
  In = c(1, 2, 4, 5),
  Out = c(4, 3, 5, 2),
  stringsAsFactors = FALSE
)

# 创建In到Out的映射表，用命名向量实现快速查找
leg_mapping <- setNames(flight_data$Out, flight_data$In)

步骤2：编写链条生成函数 #

我们写一个循环函数，输入起始航段后，自动追踪完整的航段链条：

build_flight_chain <- function(start_leg) {
  # 初始化链条，从起始航段开始
  chain <- c(start_leg)
  current_leg <- start_leg
  
  # 循环查找下一个航段，直到找不到匹配的入境航段
  while (!is.na(leg_mapping[as.character(current_leg)])) {
    current_leg <- leg_mapping[as.character(current_leg)]
    chain <- c(chain, current_leg)
  }
  
  return(chain)
}

步骤3：生成所有航段链条并整理结果 #

对每个起始入境航段应用上面的函数，然后整理成你需要的格式：

# 为每个起始入境航段生成完整链条
all_chains <- lapply(flight_data$In, build_flight_chain)

# 方式1：整理成数据框（用NA填充较短的行）
max_chain_length <- max(sapply(all_chains, length))
result_df <- do.call(rbind, lapply(all_chains, function(chain) {
  length(chain) <- max_chain_length
  chain
}))
colnames(result_df) <- paste0("Leg_", 1:max_chain_length)

# 方式2：生成和示例一致的字符串格式
result_strings <- sapply(all_chains, paste, collapse = " ")

输出结果 #

运行后，result_strings会和你的预期输出完全一致：

[1] "1 4 5 2 3" "2 3"       "4 5 2 3"   "5 2 3"

为什么你的原有代码无法实现？ #

你之前用join_all的方式只是做了一次表连接，它只能把关联的行合并，但没办法迭代地追踪链条——也就是把前一个出境航段作为下一个入境航段继续查找。而我们上面的循环函数刚好解决了这个迭代匹配的核心需求。

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