如何修复R语言自定义均值函数的‘multi-argument returns are not permitted’等报错？

看起来你在写均值计算函数时遇到了两个语法和逻辑上的问题，我来帮你拆解并修正：

先分析你遇到的错误原因 #

1. 调用avg(5)时报错"argument 'no' is missing"：
   你的函数里嵌套了ifelse，但语法写得混乱——尤其是在第二个return里错误地传递了两个参数，加上括号不匹配，导致R解析函数时误以为某个参数（比如ifelse的第三个参数）缺失，从而抛出这个错误。

2. 调用avg("f")时报错"multi-argument returns are not permitted"：
   问题出在这行代码：return("Need to be numeric", ifelse(length(x) <= 1, ...))——R的return()只能返回单个值，你这里给它传了两个参数（字符串和另一个ifelse表达式），自然会触发这个报错。

另外还有个小问题：你用了ifelse来做流程控制，但ifelse是向量化函数，适合对向量的每个元素做判断，而你这里是对整个输入的类型、长度做单次判断，用普通的if/else语句才是正确的选择。

修正后的函数代码 #

我重新写了一个逻辑清晰、符合R规范的版本，用stop()来抛出标准错误提示（这是R中处理错误的常规方式，比返回字符串更直观）：

avg <- function(x) {
  # 检查输入是否为数值类型
  if (!is.numeric(x)) {
    stop("参数必须为数值类型")
  }
  
  # 检查输入长度是否大于1
  if (length(x) <= 1) {
    stop("需要多个数字")
  }
  
  # 计算并返回均值
  sum(x) / length(x)
}

测试一下修正后的函数 #

• 输入单个数字：avg(5) → 抛出错误：Error in avg(5) : 需要多个数字
• 输入非数值：avg("f") → 抛出错误：Error in avg("f") : 参数必须为数值类型
• 输入合法数值向量：avg(c(2,4,6)) → 返回4，符合预期

额外的优化点 #

我用is.numeric()代替了你原来的class(x) == "numeric"，因为is.numeric()更可靠：它会把整数类型也识别为数值（比如class(1L)是"integer"，但is.numeric(1L)返回TRUE），而整数的均值计算也是有效的，这样函数的兼容性更好。

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