如何在R中將for循環轉換為lapply？

Question

我有for循環，用於讀取目錄中的文件並對其進行一些計算。 我想用lapply替換我的for循環，以便能夠使用parralel包使我的計算成為parralel。 有人會幫助我將此for循環轉換為lapply嗎？

for (filename in dir(data.dir))
{


    filename = paste(data.dir,filename,sep="/")
    dfr=read.table(filename,header=TRUE)

    if (ncol(dfr) > 1)
    {
.
.
.

Answer 1

更換for (filename in dir(data.dir)) {...}與lapply(dir(data.dir), function(filename) {...})

大概需要在其中添加某種返回值，但是從代碼中尚不清楚循環的輸出是什么。

Answer 2

files <- list.files(path="...") # fill in the path, if you only want say .txt files then add pattern="txt"
data.list <- lapply(files, function(x) read.table(x,header=T))

您現在有了data.frames列表

res <- lapply(data.list, function(x) {if (ncol(x) > 1) {....}})