函数列表:仅将附加参数应用于可以接受它的函数

我不确定这是否是最安全的方法,但你可以使用 tryCatch 其中,如果有错误,则返回 f(x) 没有任何额外的论据。

show_stats <- function(x) {
  funs <- list(mean = mean, sd = sd, n = length)
  lapply(funs, function(f) tryCatch(f(x, na.rm = TRUE), error = function(e) f(x)))
}
show_stats(x) 

#$mean
#[1] 5.5

#$sd
#[1] 3.02765

#$n
#[1] 11

(一) 问题不清楚预期的产出是什么 length 但如果问题是如何删除NAs,而不管功能是否 na.rm

show_stats2 <- function(x) {
  funs <- list(mean = mean, sd = sd, length = length)
  lapply(funs, function(f) f(na.omit(x)))
}

2个) 允许函数具有任意变化参数的另一种可能性如下。每一个函数都被定义为一个简单的公式,其中包含任何合适的参数。这使用 fn$ 从gsubfn将公式转换为函数`

library(gsubfn)
show_stats3 <- function(x) {
  funs <- list(mean = ~ mean(x, na.rm = TRUE), 
               sd = ~ sd(x, na.rm = TRUE),
               length = ~ length(x))
  fn$lapply(funs, function(f) fn$identity(f)(x))
}

三) function 但同样灵活:

show_stats4 <- function(x) {
  funs <- list(mean = function(x) mean(x, na.rm = TRUE), 
               sd = function(x) sd(x, na.rm = TRUE),
               length = length)
  lapply(funs, function(f) f(x))
}

另一种变化是 Curry

library(functional)
show_stats5 <- function(x) {
  funs <- list(mean = Curry(mean, na.rm = TRUE), 
               sd = Curry(sd, na.rm = TRUE),
               length = length)
  lapply(funs, function(f) f(x))
}

你可以试试 partial 从 purrr

func_factory <- function(x){
  partial(x, na.rm=T)
}

show_stats <- function(x) {
  funs <- list(mean = func_factory(mean), 
               sd = func_factory(sd), n = length)

  lapply(funs, function(f) f(x))
}

show_stats(x)

输出:

> show_stats(x)
$mean
[1] 5.5

$sd
[1] 3.02765

$n
[1] 11

>