从函数调用返回一个包含各种元素的命名列表

Question

问题

我有这样的功能：

myfunc <- function(x){

    a1 = 1
    a2 = c(2,4)
    a3 = data.frame(x = 1:10)
    ...
    an = 'str'
    res = list(a1 = a1,a2 = a2,..., an=an)
    return(res)
}

如我们所见，我用一个命名列表返回我的结果。但是，如果元素的数量很大，我无法一一键入a_i = a_i。我使用下面的代码 sn-p 节省了一半的时间（但我仍然需要在元素名称周围输入"，这是浪费时间）：

res_short = sapply(c('a1','a2',...,'an'),FUN = function(x){list(get(x))})
return(res_short)

请注意，我的元素名称a1,a2,...,an 中可能不存在模式，我只是使用a1,a2...,an 来简化。 p>

我认为我返回一个命名列表很好，因为列表可以存储不同类型的元素。还有其他方法可以编写我的函数返回吗？我要清晰和省时！

Answer 1

1. mget 如下所示使用mget。要返回所有变量使用mget(ls()) 或返回除x 之外的所有变量使用mget(setdiff(ls(), "x"))。 ls 不会返回以点开头的对象名称，除非使用了 all 参数，即 ls(all = TRUE)，它可用于防止返回某些变量。另一种可能性是使用mget 的mode= 参数将返回的对象限制为numeric，例如。见?mget。另一种限制返回对象的方法是在mget 的结果上使用Filter。例如，res <- Filter(is.data.frame, mget(ls())) 只返回数据帧。

   myfunc <- function(x){
       a1 = 1
       a2 = c(2,4)
       a3 = data.frame(x = 1:10)
       an = 'str'
       res = mget(ls(pattern = "^a"))
       return(res)
   }
   myfunc(3) # test
   

2. 环境 另一种可能性是在执行函数中返回环境。函数中的所有对象（不仅仅是以a 开头的对象）都将在环境中。

   myfunc2 <- function(x) {
       a1 = 1
       a2 = c(2,4)
       a3 = data.frame(x = 1:10)
       an = 'str'
       res = environment()
       return(res)
   }
   out <- myfunc2(3) # test
   out$a
   

3. 内 另一种可能性是使用within。只有在内部创建的变量才会被返回。 x 在within 中使用，但未在within 中创建，因此不会返回。

   myfunc3 <- function(x) {
     res <- within(list(), {
      a1 <- x
      a2 <- BOD
     })
     return(res)
   }
   myfunc3(3) # test
   

4. 多个ls在创建要输出的变量的部分之前和之后执行ls()，然后执行mget差异。

   myfunc4 <- function(x) {
     .excl <- ls()
     a1 <- x
     a2 <- BOD
     res <- mget(setdiff(ls(), .excl))
     return(res)
   }
   myfunc4(3) # test
   

Answer 2

如果我理解正确，您的要求非常灵活。您有一堆名称没有模式的变量。您想对每个变量应用不同的计算。好吧，您意识到您确实需要至少输入一次所有内容。一种方法是列出所有可能的变量名称及其计算。然后，您可以将所有这些或一个子集应用于您的输入。以下是 3 个名称和 3 种不同计算的示例。

mycomputer = list(
    add5 = function(x) {
        x + 5
    },
    mymean = function(x) {
        mean(x)
    },
    square = function(x) {
        x*x
    }
)
computeall = function(x) {
    result = lapply(names(mycomputer), function(f) {
        mycomputer[[f]](x)
    })
    names(result) = names(mycomputer)
    result
}

computeall(c(1,2,3))
## $add5
## [1] 6 7 8
## 
## $mymean
## [1] 2
## 
## $square
## [1] 1 4 9