在 data.tables 列表中应用列智能函数

Question

我已经阅读了一个带有lapply函数的Excel 文件文件夹，现在有一个包含 data.tables 的列表。各个 data.tables 具有不同的维度和列名。

现在我必须在这个列表上应用一系列函数来清理它。我遇到的问题是：如何在此列表中的每个 data.table 上应用按列的函数？

library(data.table)

# make a list of data.tables
set.seed(123)
dt = data.table(x = runif(10), y = runif(10))
dt2 = data.table(a = runif(10), y = runif(10), z = runif(10))

l = list(dt, dt2)
names(l) = c("dt", "dt2")

# sample function to be applied
func = function(x) {
  y = x * 2
}

# how it would work for an invidual data.table
dt[, lapply(.SD, func)]

Answer 1

我们遍历listwithlapply并在每个list元素中按列应用函数。

lapply(l, function(x) x[,lapply(.SD, func)])