Question

我有多个函数，想要将结果传递给另一个函数（多个函数调用）。这样做的R方式是什么？

实施例

x = function_x() { ... return vector}
y = function_y() { ... return vector}
z = function_z() { ... return vector}
func_abc(x)
func_abc(y)
func_abc(z)

目前我正在创建一个函数向量，并使用lapply在多个函数调用上传递结果：

function_x() { ... return vector}
function_y() { ... return vector}
function_z() { ... return vector}

my_vectors <- c(function_x(), function_y(), function_z())

lapply(my_vectors, function_abc(v) {
  ... do something on v
})

更具体地说，function_x，_y和_z返回向量。我想对他们返回的向量进行一些过滤，这是我的function_abc。然后结合它们。

Answer 1

试试这个例子：

#set seed to make it reproducible
set.seed(1234)

#define functions
function_x <- function(){ sample(1) }
function_y <- function(){ sample(2) }
function_z <- function(){ sample(3) }

#get function results into a list
myList <- list(function_x(), function_y(), function_z())

#loop through the list and row bind
do.call(rbind,
  lapply(myList, function(v) {
    #some calculations, result is a data.frame
    res <- cbind.data.frame(input=v, calculation=v*2)
    return(res)
  }))

#result
#  input calculation
#1     1           2
#2     2           4
#3     1           2
#4     2           4
#5     3           6
#6     1           2

以上可以简化如下：

#define function for calculations
function_abc <- function(x){ x * 2 }

#loop
unlist(lapply(list(function_x(), function_y(), function_z()), function_abc))

#result
# [1] 2 4 2 4 6 2

将不同函数的结果传递给函数R方式

1 个答案: