使用sapply

Question

sapply可以使用原始列表的名称来命名输出的元素。然而，我有点不清楚它是如何做到的：

> base::sapply
function (X, FUN, ..., simplify = TRUE, USE.NAMES = TRUE) 
{
    FUN <- match.fun(FUN)
    answer <- lapply(X = X, FUN = FUN, ...)
    if (USE.NAMES && is.character(X) && is.null(names(answer))) 
        names(answer) <- X # Here it is
    if (!identical(simplify, FALSE) && length(answer)) 
        simplify2array(answer, higher = (simplify == "array"))
    else answer
}

但是我还希望使用列表的原始元素的名称在传递给sapply的函数内部使用。如何在函数中使用我正在迭代的列表元素的名称？

我唯一的解决方法是使用for循环：

for (x in seq_along(list)) {
  y <- FUN(list[[x]]) 
  method(y) <- names(list)[x]
}

Answer 1

如果要同时使用列表的名称和值，可以将名称作为参数传递，并使用它们来访问值。这是一个例子：

int f(int x) 
{
    if(x)
        return  42;
    else
        return  0;
}

如您所见，score <- list(name1 = 1, name2 = 2) sapply(names(score), function(name) score[[name]]*nchar(name)) 同时使用function(name) score[[name]]*nchar(name)和值name。