Применение вложенных функций сложения

Question

Я создал следующую функцию с намерением применить две итерации lapply.

«x» здесь будет список из 10 кадров данных, каждый из которых имеет первый столбец в качестве переменной ответа.

Во-первых, я применяю lapply для запуска 'lm' на этих данных, передавая список, который их содержит, и указывая первый столбец как ответ и выполняющий lm для всех переменных в соответствующем фрейме данных.

Затем я хочу создать столбец в каждом кадре данных, который будет содержать установленные значения после применения «lm».

runit<-function(x){ 
    {lapply(x,function(data){lm(reformulate(termlabels=".", 
     response=names(data)[1]),data)}) 
    } 

    { 
    lapply(x,function(data){data$fitted<-fitted(data)}) 
    } 
    } 

Это не работает. Я получаю 'нуль' в качестве выходного сигнала, как только это будет работать

runit(listcontainingdataframes) 
[[1]] 
NULL 

[[2]] 
NULL 

[[3]] 
NULL 

[[4]] 
NULL 

Answer 1

#No need for two `lapply` 
x<-list(mtcars,iris) 
lapply(x,function(data){ 
        data$result<-lm(reformulate(termlabels=".",response=names(data)[1]),data)$fitted 
    return(data) 
     } 
) 

Answer 2

Это сработало:

hellow<-lapply(x,function(data){ 
    data$result<-fitted(lm(reformulate 
(termlabels=".",response=names(data)[1]),data,na.action="na.exclude")) 
return(data) 
} 
) 

Но теперь, когда я использую

list2env(hellow,.GlobalEnv) 

конвертировать список «Хеллоу 'к отдельным кадрам данных, я получаю

Error in list2env(hellow, .GlobalEnv) : 
    names(x) must be a character vector of the same length as x 

Я понимаю, что в списке нет ни одного имени, следовательно, ошибки. Но как я мог пройти мимо него, не назначая имена для каждого из элементов в списке.

Thanks Metrics and Richard