映射多个参数，其中一个参数是常量（数据）

我正在努力在我构建的函数上使用 mapply，因为我在一个更大的环境中编程，所以我需要一个或多个参数，例如，如果我编写一个函数，其中一个参数是data.

fun_test <- function(data,col,val1,val2){return(data[col][1,] * val1-val2)}

So data and col例如可以是恒定的，但我想根据不同的情况改变函数的输出val1 and val2:

> mapply(FUN=fun_test,mtcars,"cyl",mtcars$cyl,mtcars$cyl*2)
Error in data[col][1, ] : incorrect number of dimensions

我试图了解 mapply 是如何工作的；我肯定不能通过 mtcars 和“cyl”作为向量，可以吗？

EDIT：我的环境中数据可能会有所不同，例如有时我使用 mtcars，有时它是另一个数据集。所以我无法将数据硬编码到函数中

EDIT2： 1）我有一些数据集的数据， 2）我有不同的Excel文件读入R， 3）我创建了一个查找函数，可以从 R 中的这些 Excel 文件中提取信息， 4）当我进入我创建的查找函数并提取信息时，对于一个或两个变量（来自数据集）。

因此，这些查找函数取决于数据（我需要查找的变量）和我用来查找的 Excel 文件。

mapply是一个多维的lapply。这意味着它不是只迭代一个对象（即 data.frame 的列或向量的元素），而是同时迭代多个对象。唯一的条件是这些对象的长度必须相同，即 data.frame 的列和向量的长度。因此，您不能传递常量（除非您传入相同常量的向量来匹配长度，但为什么要这样做）。

尝试一个简单的示例（对向量的相同索引求和）：

mapply(sum, 1:10, 11:20)

因此，在您的情况下，只需将常量直接传递到函数中即可：

fun_test <- function(val1, val2){return(mtcars['cyl'] * val1 - val2)}

mapply(FUN=fun_test, mtcars$cyl, mtcars$cyl*2)

Update:

那么我认为你需要的是包括mapply在你的职能范围内。通过这种方式，您可以添加任何您喜欢的参数（常量和变量）。它看起来像这样：

myfunc <- function(data, col, val1, val2) {

  fun_test <- function(val1, val2) {
    data[col] * val1 - val2 
  }

  mapply(FUN=fun_test, val1, val2)

}

myfunc(mtcars, 'cyl', mtcars$cyl, mtcars$cyl*2)