如何用base R同时填充数据框两列？取首个有效坐标对

你现在的需求是从多组可选的坐标字段里，按1到4的优先级提取第一组同时非NA的LAT和LONG值到新列，现有的嵌套ifelse虽然能实现，但确实存在重复判断的冗余问题。这里给你一个更高效简洁的Base R解决方案，一次性搞定LAT和LONG两列的填充：

核心思路 #

用apply按行遍历数据框，对每一行依次检查四组坐标对，找到第一组同时不为NA的对就返回对应的LAT和LONG，最后把结果合并回原数据框——全程只需要一次行遍历，避免了重复判断。

完整代码 #

# 假设你的原始数据框是set_df
tmp <- apply(set_df, 1, function(row) {
  # 按1→2→3→4的顺序检查每组坐标是否同时非NA
  if (!is.na(row["LAT1"]) && !is.na(row["LONG1"])) {
    return(c(LAT = row["LAT1"], LONG = row["LONG1"]))
  } else if (!is.na(row["LAT2"]) && !is.na(row["LONG2"])) {
    return(c(LAT = row["LAT2"], LONG = row["LONG2"]))
  } else if (!is.na(row["LAT3"]) && !is.na(row["LONG3"])) {
    return(c(LAT = row["LAT3"], LONG = row["LONG3"]))
  } else {
    return(c(LAT = row["LAT4"], LONG = row["LONG4"]))
  }
})

# 转置临时结果并合并到原数据框
set_df <- cbind(set_df, t(tmp))

代码优势 #

• 效率更高：仅一次行遍历完成所有判断，对比嵌套ifelse的两次独立判断，减少了重复计算
• 可读性更强：分支结构清晰，后续如果需要增加更多坐标组（比如LAT5/LONG5），只需添加一个else if分支即可
• 无需额外列名修改：返回值直接指定了LAT和LONG的名称，转置后合并自动匹配列名

用你提供的示例数据测试这段代码，就能得到你期望的输出结果。

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