按列标准化：data.table方式

Question

从简单的数据表开始

ID MAX X1 X2 X3 X4
E0 9   2  1  2  3
E0 21  9  0  10 2

我想将X1到X4的所有列标准化为MAX。

不受欢迎的data.frame方式将是

dt$X1 <- dt$X1/dt$MAX

优雅的数据表方式是什么？

我尝试使用dt[, .SD/MAX, by = ID]，但这也会将MAX降低到1。

Answer 1

使用data.table v1.9.7，我们还可以在.SDcols中指定列，循环显示列（lapply(.SD, ...），除以＆＃39; MAX＆＃39}。并将输出（:=）分配回感兴趣的列。

dt[, paste0("X", 1:4) := lapply(.SD, `/`, MAX), .SDcols= X1:X4]
dt
#   ID MAX        X1        X2        X3        X4
#1: E0   9 0.2222222 0.1111111 0.2222222 0.3333333
#2: E0  21 0.4285714 0.0000000 0.4761905 0.0952381