如何使用 lapply 或 apply 函数族在 R 函数中调用函数？

Question

如何使用lapply或apply函数族在函数内调用函数？我有一个父函数（即 hrat），它在其中调用姊妹函数（即 drat）。我想将此功能应用于特定向量。我提供了一个代码来证明我的逻辑。我收到以下错误消息。

代码：

 drat <- function(y){
   x <- y * 5
   return(x)
 }

 hrat <- function(z, j, drat){
  y <- z +1
  w <- drat(y) + j
  return(w)
  }

 z <- c(1:5)
 j <- 4
 result <- lapply(z,j, function(x) hrat(x, drat(x)))

错误信息：

 Error in get(as.character(FUN), mode = "function", envir = envir) : 
 object 'j' of mode 'function' was not found

如有任何帮助，我们将不胜感激。谢谢

Answer 1

为避免混淆，最好有匿名函数调用

lapply(z, function(x) hrat(x, drat))

如何使用 lapply 或 apply 函数族在 R 函数中调用函数？

How to use lapply or a family of the apply function for calling a function within a function in R?

r

apply

lapply

mapply

tapply