R применить цикл с возвратным списком

Question

Я попытался заменить цикл for на apply цикл в существующем сценарии R. Тем не менее, моя старая функция возвращает несколько списков dataFrames, таких как 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)) 

New Script:

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 будут связаны вместе.