使用lApplication将函数应用于数据帧列表，并将输出保存到具有不同名称的文件

Question

我有一个数据帧列表，并为列表中的每个元素（例如每个数据帧）指定了一个名称：

例如。

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)  

我有一个函数，我想应用到每个数据帧；在这个函数中，我想包括一行写入结果到文件（最终我想做更复杂的事情，如保存每个数据帧的两个变量之间的相关性图但我想我应该从简单开始）

例如。

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

我想使用lApplication（）将此函数应用于列表中的每个数据帧

类似的东西：

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

我不知道如何在lappy的上下文中分配“I”，以便I迭代数据帧列表中的名称，保存与修改的数据帧相对应的多个具有不同名称的文件（在本例中，两个名为A和B）。

Answer 1

有很多选择。例如：

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

或者使用索引：

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

Answer 2

它将用于以下lappy调用：

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