将自定义函数应用于多个data.table列

library(data.table)

# 创建一个示例的data.table对象
dt <- data.table(
  col1 = c(1, 2, 3),
  col2 = c(4, 5, 6),
  col3 = c(7, 8, 9)
)

# 自定义函数，将每个元素加1
my_function <- function(x) {
  x + 1
}

# 对多个列应用自定义函数
dt[, c("col1", "col2", "col3") := lapply(.SD, my_function), .SDcols = c("col1", "col2", "col3")]

# 输出结果
dt

   col1 col2 col3
1:    2    5    8
2:    3    6    9
3:    4    7   10