R应用返回列表的循环

Question

我试图在existant R脚本中用apply循环替换for循环。尽管如此，我的旧函数返回多个数据框列表，如return(list(df1,df2))。对于一些细节，通过实例介绍如下：

旧脚本：

MyFunction = function(input){ 
    df1=array(NA,c(0,1)) 
    df2=array(NA,c(0,1)) 
    for(i in 1:n){ 
    ... 
    df1 = rbind(df1,action1(input)) 
    df2 = rbind(df2,action2(input)) 
    } 
return(list(df1,df2)) 

新的脚本：

Object = do.call(rbind, lapply(1:n,function(i){ 
    df1 = action1(input) 
    df2 = action2(input) 
    return(list(df1,df2)) 
})) 

我获得：

 [,1] [,2] [,3] [,4] [,5] 
[1,] List,2 List,2 List,2 List,2 List,2 
[2,] List,2 List,2 List,2 List,2 List,2 
[3,] … 

我也没办法解决我的问题。任何帮助将不胜感激。

谢谢进步，

B.Gees

Answer 1

do.call(rbind, ...)通常用于行绑定数据帧/矩阵的列表。您有一个数据框列表列表，并且您想要相应地绑定它们，您可以尝试以下模式。

Object = do.call(Map, c(f = rbind, lapply(1:n,function(i){ 
    df1 = action1(input) 
    df2 = action2(input) 
    return(list(df1,df2)) 
}))) 

do.call(Map, ...)经过lapply作为参数传递给它Map然后从相同的位置上传递的所有数据帧到rbind返回的所有列表。即所有df1将被绑定在一起，并且所有df2将被绑定在一起。