对于循环与lapply

Question

我写了以下循环：

library(data.table)

for(i in seq_along(df)){
  fwrite(df[[i]], paste('Name_', as.character(i), '.csv', sep = ''))
}

# df is a list. Each element of the list is a data.frame

我将df的每个元素 - data.frame列表 - 保存为.csv，根据i为它们指定不同的名称。 如何将该循环转换为lapply语法？我尝试过（不成功）：

lapply(df, function(x) fwrite(x, paste('Name_', as.character(x), '.csv', sep = '')))

和（更糟糕的是，未指定x）：

lapply(df, fwrite, paste('Name_', as.character(x), '.csv', sep = ''))