如何在R语言中定义接收数对参数的两点距离计算函数？

原代码的核心问题 #

1. 参数定义错误：p1=c(x1, y1)这种写法无效，因为x1、y1在参数声明阶段是未定义的变量，R无法识别。函数参数只需要声明变量名，无需预先指定结构，传入时保证是长度为2的向量即可。
2. 语法与公式错误：函数定义末尾缺失右括号，且使用了全角符号ˆ（需替换为半角^）；同时距离公式逻辑错误，正确的欧氏距离应为先计算坐标差的平方和，再开根号。

正确实现写法 #

基础版本

Distance <- function(p1, p2) {
  # 从传入的向量中提取坐标
  x1 <- p1[1]
  y1 <- p1[2]
  x2 <- p2[1]
  y2 <- p2[2]
  # 计算欧氏距离
  sqrt((x2 - x1)^2 + (y2 - y1)^2)
}

使用示例

# 定义两个点的坐标向量
p1 <- c(1, 2)
p2 <- c(4, 6)
# 调用函数计算距离
Distance(p1, p2) # 输出结果：5

带参数校验的优化版本

为避免传入不符合要求的参数，可以增加输入校验：

Distance <- function(p1, p2) {
  # 校验输入是否为长度2的向量
  if (!is.vector(p1) || length(p1) != 2) {
    stop("p1必须是长度为2的向量")
  }
  if (!is.vector(p2) || length(p2) != 2) {
    stop("p2必须是长度为2的向量")
  }
  
  x1 <- p1[1]
  y1 <- p1[2]
  x2 <- p2[1]
  y2 <- p2[2]
  
  sqrt((x2 - x1)^2 + (y2 - y1)^2)
}

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