R语言如何编写支持多个输入参数的自定义函数并解决传参报错

报错原因 #

你遇到的unused arguments (60, 77, 33)报错，核心原因是原函数定义时没有声明多参数接收规则，R默认你的函数仅支持1个入参，传入超过1个参数就会触发未使用参数报错。此外原代码还有多处语法和逻辑问题：

• 函数定义语法错误：function()括号内为参数声明区，不能直接写for循环
• 变量大小写不统一：R是大小写敏感语言，代码中混用大写X和小写x会被识别为两个不同变量
• 无多值处理逻辑：原判断逻辑仅支持单个分数计算，没有对多输入值做遍历
• 拼写错误：评级Execellent正确拼写为Excellent

实现方案 #

方案1：支持传入任意多个独立分数参数 #

使用R的...动态参数接收任意数量的入参，内部遍历计算每个分数的评级：

grads <- function(...) {
  scores <- c(...)
  result <- sapply(scores, function(x) {
    if (x <= 50) {
      "Fail"
    } else if (x <= 70) {
      "Good"
    } else if (x <= 80) {
      "V Good"
    } else {
      "Excellent"
    }
  })
  names(result) <- scores
  return(result)
}

# 测试调用
grads(95,60,77,33)

运行输出：

95       60       77       33 
"Excellent"   "Good"  "V Good"   "Fail" 

方案2：支持传入分数向量参数 #

如果你的分数已经存储在向量中，可以直接设置参数接收向量：

grads <- function(scores) {
  result <- sapply(scores, function(x) {
    if (x <= 50) {
      "Fail"
    } else if (x <= 70) {
      "Good"
    } else if (x <= 80) {
      "V Good"
    } else {
      "Excellent"
    }
  })
  names(result) <- scores
  return(result)
}

# 测试调用
grads(c(95,60,77,33))

运行输出和方案1完全一致。

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