Korzystanie lapply zastosować funkcję na liście ramek danych i zapisywania danych wyjściowych do plików o różnych nazwach

Question

Mam listę ramek danych i dały każdy element na liście (np każda ramka danych) nazwę:

na przykład

df1 <- data.frame(x = c(1:5), y = c(11:15)) 
df2 <- data.frame(x = c(1:5), y = c(11:15)) 
mylist <- list(A = df1, B = df2) 

Mam funkcję, którą chcę zastosować do każdej ramki danych; W tej funkcji chcę dołączyć wiersz do zapisywania wyników do pliku (ewentualnie chcę zrobić bardziej skomplikowane rzeczy, takie jak zapisywanie wykresów korelacji między dwiema zmiennymi dla każdej ramki danych, ale myślę, że zaczynam prosty)

na przykład

NewVar <- function(mydata, whichVar, i) { 
mydata$newVar <- mydata[, whichVar] + 1 
write.csv(mydata, file = i) 
} 

chcę użyć lapply() zastosować tę funkcję do każdej ramki danych w moim liście

coś takiego:

hh<-lapply(mylist, NewVar, whichVar = "y") 

nie mogę dowiedzieć się, jak przypisać „ja” w kontekście lapply, aby i iterowało nad nazwami na liście ramek danych, zapisując wiele plików o różnych nazwach (w tym przypadku dwóch plikach o nazwach A i B), które odpowiadają zmodyfikowanemu klatki ta.

Answer 1

Będzie pracować z następującym lapply rozmowy:

lapply(names(mylist), function(x) NewVar(mylist[[x]], "y", x)) 

Answer 2

Istnieje wiele opcji. Na przykład:

lapply(names(mylist), 
     function(x)write.csv(mylist[x], 
           file =paste0(x,'.csv'))) 

lub za pomocą indeksów:

lapply(seq_along(mylist), 
    function(i)write.csv(mylist[i], 
          file =paste0(names(mylist)[i],'.csv')))