如何将多参数R函数仅应用于单个变量？

假设我们的目标函数和向量定义如下：

# 示例多参数函数
myfunction <- function(x, y, z) {
  x + y * z
}

# 需要遍历的向量
myvect <- 1:5

下面提供两种高效且可复用的实现方式，无需每次重定义函数或重复生成参数：

方法1：使用purrr::partial绑定固定参数（推荐） #

purrr包的partial函数可以帮你预先绑定函数的指定参数，生成一个仅需传入剩余参数的新函数，后续可直接用于apply系列或map系列函数：

library(purrr)

# 预先绑定y=10、z=100，生成仅接受x的函数
myfunction_fixed <- partial(myfunction, y = 10, z = 100)

# 用sapply遍历向量
sapply(myvect, myfunction_fixed)
# 输出：[1] 1001 1002 1003 1004 1005

# 或者用purrr的map_dbl返回数值向量（效率更优）
map_dbl(myvect, myfunction_fixed)

这个方法的优势是不修改原函数，新函数可反复复用，参数绑定逻辑清晰。

方法2：修改函数默认参数（基础R实现） #

如果你不想引入额外包，可以复制原函数并修改其默认参数，这样调用时只需传入可变的x参数：

# 复制原函数，避免修改原函数的默认值
myfunction_fixed <- myfunction
# 设置固定参数的默认值
formals(myfunction_fixed)$y <- 10
formals(myfunction_fixed)$z <- 100

# 直接用sapply遍历
sapply(myvect, myfunction_fixed)

注意：如果直接修改原函数的formals会影响其他地方对该函数的调用，因此务必先复制函数再修改。

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