R 中基于应用函数命名列表元素

Question

我有一组函数

funs <- c(mean, median, min, max, quantile)

，我想将其应用于数值向量

values

。这可以使用

sapply()

轻松完成，但结果是所有元素都没有名称。我希望每个列表元素根据应用的函数命名。我试过：

funs <- c(mean, median, min, max, quantile)
some_vals <- c(rnorm(14))

stats <- sapply(funs, function(fun) {
    result <- fun(some_vals)
    names(result) <- deparse(substitute(fun))
    return(result)
    }
)

但是每个列表元素都被命名为 X[[i]]。 如何根据应用的功能命名列表元素？

Answer 1

困难在于，一旦将函数对象存储在列表中，它们就不再有名称，除非您在列表中为该对象指定名称。

我会使用字符串作为函数名称，然后在

match.fun

中使用

sapply

。这很容易做到，而且您可以免费获得名称。

funs <- c("mean", "median", "min", "max", "quantile")
some_vals <- c(rnorm(14))

sapply(funs, function(fun) match.fun(fun)(some_vals))
#> $mean
#> [1] -0.06134755
#> 
#> $median
#> [1] -0.3473996
#> 
#> $min
#> [1] -2.140686
#> 
#> $max
#> [1] 1.940046
#> 
#> $quantile
#>         0%        25%        50%        75%       100% 
#> -2.1406864 -0.7488198 -0.3473996  0.7707063  1.9400459

另一种方法是为您的列表命名：

funs <- c(mean = mean, median = median, min = min, max = max, 
          quantile = quantile)

sapply(funs, function(fun) fun(some_vals))
#> $mean
#> [1] -0.06134755
#> 
#> $median
#> [1] -0.3473996
#> 
#> $min
#> [1] -2.140686
#> 
#> $max
#> [1] 1.940046
#> 
#> $quantile
#>         0%        25%        50%        75%       100% 
#> -2.1406864 -0.7488198 -0.3473996  0.7707063  1.9400459

^{创建于 2023-08-21，使用 reprex v2.0.2}